-Ïîèñê ïî äíåâíèêó

Ïîèñê ñîîáùåíèé â 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


 

Äîáàâèòü êîììåíòàðèé:
Òåêñò êîììåíòàðèÿ: ñìàéëèêè

Ïðîâåðêà îðôîãðàôèè: (íàéòè îøèáêè)

Ïðèêðåïèòü êàðòèíêó:

 Ïåðåâîäèòü URL â ññûëêó
 Ïîäïèñàòüñÿ íà êîììåíòàðèè
 Ïîäïèñàòü êàðòèíêó