|
|
|
Кто изменял запись
|
|||
|---|---|---|---|
|
#18+
Доброго времени суток всем!!!! У меня вход сделан через логин и пароль, а именно: 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 Как мне сделать, что бы при изменении в строке табличной формы появилась информация кто изменял запись? Надо создавать отдельное имя в поле в таблице? А в форме скрытое поле надо ставить? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.10.2018, 15:51 |
|
||
|
Кто изменял запись
|
|||
|---|---|---|---|
|
#18+
OlegusnemoДоброго времени суток всем!!!! У меня вход сделан через логин и пароль, а именно: 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 Как мне сделать, что бы при изменении в строке табличной формы появилась информация кто изменял запись? Надо создавать отдельное имя в поле в таблице? А в форме скрытое поле надо ставить? да, и вешать процедуру на событие после обновления записи(или формы?) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.10.2018, 16:07 |
|
||
|
|
start [/forum/topic.php?fid=45&msg=39722279&tid=1611086]: |
0ms |
get settings: |
5ms |
get forum list: |
16ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
17ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
45ms |
get tp. blocked users: |
2ms |
| others: | 208ms |
| total: | 308ms |
| 0 / 0 |
