Форумы HiProg.com - MS ACCESS, VBA, VB

ник: час
првека наличия

Public Function Proverka_Nalichiya(nomer As String, Data_Dok As Date, Kod_Tovara As String) As Boolean Proverka_Nalichiya = False       Dim rstGde As DAO.Recordset 'Объявляем рекордсет       Dim BAZAName1 As DAO.Database 'Объявляем базу Set BAZAName1 = CurrentDb Set rstGde = BAZAName1.OpenRecordset("DOK_Prihod_TBL") With rstGde If .EOF = True Then GoTo Exit_Function         .MoveFirst         .MoveLast     If .RecordCount = 0 Then GoTo Exit_Function     .MoveFirst    Do Until .EOF   If !Номер_документа = nomer Then             If !Дата_документа = Data_Dok Then                      If !Код_Товара = Kod_Tovara Then                      Proverka_Nalichiya = True                      GoTo Exit_Function:                      End If             End If     End If     .MoveNext     Loop End With Exit_Function:   rstGde.Close   Set rstGde = Nothing   BAZAName1.Close   Set BAZAName1 = Nothing End Function