[Resolvido]Fazer logs externos.

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

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


up

Boa noite damasceno.
Mesmo se acrescentar ele apaga o log do dia anterior.

PEnsei que mesma linha do print #1 iria deixar ele na mesma linha.
Mas já está de grande valia, o objetivo era tirar os dados da tabela.
Obg Damasceno.
Deixo aqui como ficou, para outros colaboradores.
-

Código:

Private Sub btEntrar_Click()
strFicheiro = Application.CurrentProject.Path & "\teste.txt"
        Open strFicheiro For Append As #1
        Print #1, vbNewLine & "Entrou • " &  Me.cboUsuario.Column(1) & " - "; Me.txtData; "" ' Aqui eu quebrei a linha porque no bloco tem cabeçalho
Close #1
End Sub
Private Sub btSaiu_Click()
strFicheiro = Application.CurrentProject.Path & "\teste.txt"
        Open strFicheiro For Append As #1
        Print #1, "Saiu • " & Me.cboUsuario.Column(1) & " - "; Me.txtData; ""
        Print #1, "--------------------------------------------"
Close #1
End Sub