MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Fazer logs externos.

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2695
    Registrado : 23/01/2018

    [Resolvido]Fazer logs externos. Empty [Resolvido]Fazer logs externos.

    Mensagem  crysostomo 27/1/2023, 21:36

    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)



    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Fazer logs externos. Empty Re: [Resolvido]Fazer logs externos.

    Mensagem  DamascenoJr. 28/1/2023, 14:38

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


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2695
    Registrado : 23/01/2018

    [Resolvido]Fazer logs externos. Empty Re: [Resolvido]Fazer logs externos.

    Mensagem  crysostomo 28/1/2023, 16:59

    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


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2695
    Registrado : 23/01/2018

    [Resolvido]Fazer logs externos. Empty Re: [Resolvido]Fazer logs externos.

    Mensagem  crysostomo 28/1/2023, 17:26

    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
    Anexos
    [Resolvido]Fazer logs externos. AttachmentLog Externo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (15 Kb) Baixado 6 vez(es)


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2695
    Registrado : 23/01/2018

    [Resolvido]Fazer logs externos. Empty Re: [Resolvido]Fazer logs externos.

    Mensagem  crysostomo 7/2/2023, 12:53

    up


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Fazer logs externos. Empty Re: [Resolvido]Fazer logs externos.

    Mensagem  DamascenoJr. 9/2/2023, 01:39

    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


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2695
    Registrado : 23/01/2018

    [Resolvido]Fazer logs externos. Empty Re: [Resolvido]Fazer logs externos.

    Mensagem  crysostomo 9/2/2023, 02:57

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


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Fazer logs externos. Empty Re: [Resolvido]Fazer logs externos.

    Mensagem  DamascenoJr. 14/2/2023, 03:02

    Experimente trocar

    For Output

    por

    For Append


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2695
    Registrado : 23/01/2018

    [Resolvido]Fazer logs externos. Empty Re: [Resolvido]Fazer logs externos.

    Mensagem  crysostomo 14/2/2023, 15:27

    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


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    Conteúdo patrocinado


    [Resolvido]Fazer logs externos. Empty Re: [Resolvido]Fazer logs externos.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/7/2024, 04:30