Salve!
Fiz uma funcao para gravar em um arquivo de texto o log de determinada operacao feita pelo usuario no sistema mas toda fez que eu gravo algo no arquivo ele apaga o que tinha antes e coloca somente o valor que esta na variavel. como eu faco para gravar o conteudo da variavel no final do arquivo?
On Error Resume Next
Dim sCurrLog As String
sCurrLog = Format(lIDlog, "0000") & " - " & Now & " - " & sMsg
With Form_fm_principal.txtLogs
.SetFocus
.Locked = False
.Text = .Text & vbCrLf & sCurrLog & vbCrLf
.Locked = True
.SelStart = Len(.Text)
End With
SetAttr Application.CurrentProject.Path & "\_syslog.dat", vbNormal
Open Application.CurrentProject.Path & "\_syslog.dat" For Output As #10
Print #10, Form_fm_principal.txtLogs.Text
Close #10
SetAttr Application.CurrentProject.Path & "\_syslog.dat", vbHidden
