EU não consigo atualizar ele se for outro usuario cair para outra linha sem apagar os outro.
Não vejo como coloca o update nessa linha, pos o into ou rs vai ver aonde está o nome de cada tabela, o bloco não tem.
O objetivo não é continuar com os log na tabela, se não vai enchendo.
A parte do mesmo usuário(entou e sai) seria na mesma linha
Não vejo como coloca o update nessa linha, pos o into ou rs vai ver aonde está o nome de cada tabela, o bloco não tem.
O objetivo não é continuar com os log na tabela, se não vai enchendo.
A parte do mesmo usuário(entou e sai) seria na mesma linha
- Código:
Private Sub btEntrou_Click()
strFicheiro = Application.CurrentProject.Path & "\teste.txt"
Open strFicheiro For Output As #1
Print #1, "Entrou " & Me.txtUsuario.Column(1) & "-"; Me.txtData
Close #1
End Sub
Private Sub btSaiu_Click()
' If Me.intIdAcesso = 0 Then Exit Sub
strFicheiro = Application.CurrentProject.Path & "\teste.txt"
Open strFicheiro For Output As #1
Print #1, "Saiu " & Me.txtUsuario.Column(1) & "-"; Me.txtData
Close #1
End Sub
Private Sub txtUsuario_Click()
Me.intIdAcesso = Me.txtUsuario.Column(0)
End Sub
- Anexos
Log Externo.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (15 Kb) Baixado 6 vez(es)