ник: час
пример:
Используется таблица для combobox - "PRODUCTS_STOREMAN_TBL"
' Поиск в таблице "PRODUCTS_STOREMAN_TBL" уже загруженного заказа STR_ORDER_NUMBER
Dim db As Database
Dim RST As Recordset
Dim STR_ORDER_NUMBER as string
' присвоим переменной - значение поля
STR_ORDER_NUMBER = Me!Поле1
Set db = CurrentDb
Set RST = db.OpenRecordset("PRODUCTS_STOREMAN_TBL", dbOpenDynaset)
If Not RST.EOF Or Not RST.BOF Then
RST.MoveLast
RST.MoveFirst
End If
If RST.RecordCount <> 0 Then
'Поиск первой записи, удовлетворяющей критерию отбора
RST.MoveFirst
RST.FindFirst "[ORDER_NUMBER] = '" & STR_ORDER_NUMBER & "'"' для строкового значения
If RST.NoMatch = False Then Msgbox "Есть такое!" ' найдено
End If
RST.Close
db.Close
Set db = Nothing
Set RST = Nothing
|