Cláudio Machado 8/5/2019, 20:47
Boa tarde.
Não seria mais fácil e viável se você fizesse esse "Insert" direto no form de login?
Já levaria todos os dados corretamente e não precisaria carregar dados no form principal.
Tipo:
- Código:
Private Sub abrirLogin_Click()
If txtUsuario = Me.usuarioTab.Value And txtSenha = Me.senhaTab Then
DoCmd.OpenForm "frm_principal", , acNormal
CurrentDb.Execute "INSERT INTO tbl_log_usuarios (nome_usuario, data_entrou, hora_entrou) Values (""" & usuarioTab & """,""" & Format(Date, "DD/MM/YYYY") & """,""" & Format(Time, "HH:MM:SS") & """)"
DoCmd.Close acForm, "frm_login"
Else
MsgBox "Campos Inválidos", vbInformation, "Arquivamento-Login"
Me.txtSenha = ""
Me.txtUsuario = ""
End If
End Sub
Quanto a "nova linha" ao sair, realmente isso tem de acontecer, você está inserindo um registro na tabela de log, quando na verdade deveria atualizar o último login do usuário.
Utilize o método Dmax para encontrar a última data de log do usuário e atualize os campos necessários.
No aguardo
Última edição por Cláudio Machado em 8/5/2019, 21:02, editado 1 vez(es)
.................................................................................
" Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus, morreu de braços abertos."Agradeça e feche o tópico clicando no botão
Resolvido. Se não sabe como, veja
AQUI.
Não esqueça de clicar no Joinha
para agradecer a dica que solucionou seu problema.