-

   rss_sql_ru_access_programming

 - e-mail

 

 -

 LiveInternet.ru:
: 16.03.2006
:
:
: 4

:


, 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


: [1] []
 

:
: 

: ( )

:

  URL