Boa tarde,
Antes de tudo agradeço a oportunidade.
Estou com um problema em um formulário, o qual, já consigo registrar a data e a hora que meu formulário foi alterado pela última vez, mas não consigo salvar o usuário logado.
frm_Login:
Private Sub txtUsuário_AfterUpdate()
txtUsuáriotb = txtUsuário.Column(0)
txtSenhatb = txtUsuário.Column(1)
End Sub
Form_Fiscalização de Madeira
Private Sub Form_BeforeUpdate(Cancel As Integer)
txtDataMod = Now()
txtHoramod = Now()
If MsgBox("Deseja salvar as alterações?", vbYesNo + vbQuestion, "Confirme!") = vbNo Then
Me.Undo
Else
End If
End Sub
No Form_Fiscalização de Madeira coloquei o txtOperador para ficar registrado as alterações.
Antes de tudo agradeço a oportunidade.
Estou com um problema em um formulário, o qual, já consigo registrar a data e a hora que meu formulário foi alterado pela última vez, mas não consigo salvar o usuário logado.
frm_Login:
Private Sub txtUsuário_AfterUpdate()
txtUsuáriotb = txtUsuário.Column(0)
txtSenhatb = txtUsuário.Column(1)
End Sub
Form_Fiscalização de Madeira
Private Sub Form_BeforeUpdate(Cancel As Integer)
txtDataMod = Now()
txtHoramod = Now()
If MsgBox("Deseja salvar as alterações?", vbYesNo + vbQuestion, "Confirme!") = vbNo Then
Me.Undo
Else
End If
End Sub
No Form_Fiscalização de Madeira coloquei o txtOperador para ficar registrado as alterações.