ник: никк
Код:
Private Sub retailIn_Click()
Dim dbStock As DAO.Database
Dim rst1 As DAO.Recordset
Dim qdf1 As QueryDef
Set dbStock = CurrentDb()
Set rst1 = dbStock.OpenRecordset("SELECT t1товар.*FROM t1товар WHERE t1товар.приходID = " & Me.приходID)
If rst1.AbsolutePosition = -1 Then
Else
End if