, 24 2018 . 15:51
+
!!!!
, :
Private Sub ok_Click()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("Select * from tblusersotpp where username='" & txtUser & "'")
If rst.RecordCount <= 0 Then
MsgBox " ", vbCritical
txtUser.SetFocus
Else
If rst("password") <> txtPassword Then
MsgBox " ", vbCritical
txtPassword.SetFocus
Else
DoCmd.Close
DoCmd.OpenForm " "
End If
End If
End Sub , ?
? ?
http://www.sql.ru/forum/1304355/kto-izmenyal-zapis