Разработка системы автоматизации документооборота


Разработка системы автоматизации документооборота - стр. 91


Источником ошибки является: " _

            & Err.Source & ". Нажмите клавишу F1 для вывода справки."

    ' В противном случае ошибке соответствует код ошибки Visual Basic.

    Else

    Msg = "Эта ошибка (# " & Err.Number & ") имеет код ошибки Visual" & _

    " Basic. Для вывода раздела справки Visual Basic нажмите" & _

            " кнопку 'Справка' или клавишу F1."

    End If

    MsgBox Msg, , "Ошибка объекта", Err.HelpFile, Err.HelpContext

    Err.Number = 0

    Resume Exit_Кнопка347_Click

ДатаОпределение:

    strSQLДата = "SELECT DISTINCTROW ДанныеДляАвансОтчета.КодЗаказчика, ДанныеДляАвансОтчета.КодСчета, ДанныеДляАвансОтчета.КодСистемы, ДанныеДляАвансОтчета.КоличествоМС, Max(АвансовыйОтчет.Месяц) AS Max_Месяц FROM [ДанныеДляАвансОтчета] INNER JOIN [АвансовыйОтчет] ON ДанныеДляАвансОтчета.Код = АвансовыйОтчет.ИдентКод GROUP BY ДанныеДляАвансОтчета.КодЗаказчика, ДанныеДляАвансОтчета.КодСчета, ДанныеДляАвансОтчета.КодСистемы, ДанныеДляАвансОтчета.КоличествоМС HAVING (((ДанныеДляАвансОтчета.КодЗаказчика)=" & Forms![Просмотр]![КодЗаказчика] & ") AND ((ДанныеДляАвансОтчета.КодСистемы)=" & rstПоCчету![КодСистемы] & ") AND ((ДанныеДляАвансОтчета.КоличествоМС)<>0));"

    Set rstПоДате = dbs.OpenRecordset(strSQLДата)

    rstПоДате.MoveLast

    ДатаПМС = rstПоДате![Max_Месяц]

    flagДата = True

    rstПоДате.Close

    GoTo Дата

End Sub

3)   Просмотр информации по счетам и системам выбранного заказчика.

Private Sub Счет_Click()

Dim rst, rstTMP As Recordset

Dim dbs As Database

Dim i, j As Integer

Dim strSQL As String

Dim Дата As Date

Set dbs = CurrentDb

strSQL = "SELECT DISTINCTROW Заказчики.КодЗаказчика, ОсновныеСчета.НомерСчета, ОсновныеСчета.ОплатаСчета, ОсновныеСчета.ДатаСчета, ОсновныеСчета.СрокДействияСчета, Дистрибутивы.КодСистемы, Дистрибутивы.Код, Дистрибутивы.КоличествоМ, Дистрибутивы.Цена, Дистрибутивы.Сопровождение, Дистрибутивы.Скидки, Дистрибутивы.СкидкиС, Дистрибутивы.СпецвупыскИлиНет FROM ([Заказчики] INNER JOIN [ОсновныеСчета] ON Заказчики.КодЗаказчика = ОсновныеСчета.КодЗаказчика) INNER JOIN Дистрибутивы ON ОсновныеСчета.КодСчета = Дистрибутивы.КодСчета WHERE (((Заказчики.КодЗаказчика)=" & Me![КодЗаказчика] & "));"




Начало  Назад  Вперед



Книжный магазин