Ñðåäà, 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
-
Çàïèñü ïîíðàâèëàñü
-
0
Ïðîöèòèðîâàëè
-
0
Ñîõðàíèëè
-