[Resolvido]Fazer logs externos.

Meu bore, boa noite.
Pesquisei por aqui e tentei criar, mas sem sucesso.
Sempre faço registro de log de usuário dentro do Bd, queria fazer para fora( o sistema gravasse no bloco de nota)

Use a mesma lógica que já usa para gravar na tabela para salvar em arquivo txt usando a instrução OPEN

Boa tarde Dasmaceno.
ele não vai escrever e atualizar, pois uso o recordset.
O bloco não tem como a tabela.
estou refazendo aqui, Perai

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

Pensei que gostaria apenas de acrescentar informações linha a linha no txt. Mas como você deseja atualizar linhas anteriores, talves o artigo abaixo ajude

macoratti.net/vb_ini.htm

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

Experimente trocar

For Output

por

For Append

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