MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Variáveis foram declaradas mas não aparecem na Janela de Variáveis Locais

    Compartilhe

    fabricioamaral
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 07/10/2014

    Variáveis foram declaradas mas não aparecem na Janela de Variáveis Locais

    Mensagem  fabricioamaral em Ter 07 Out 2014, 17:33

    Boa tarde!

    Se alguém puder me ajudar, agradeço.  Very Happy
    As variáveis foram declaradas mas não aparecem na Janela de Variáveis Locais e quando executo o módulo, o log de alterações é criado mas sem os dados de data, usuário, máquina e evento.
    Eis o código:

    Option Compare Database
    Option Explicit
    Function CriarLOG(Evento As String)
    On Error GoTo TratarErro
    Dim DataHora As Variant
    Dim Usuario As String
    Dim Maquina As String
    Dim Arquivo As String

    DataHora = Date
    Usuario = Environ("username")
    Maquina = Environ("computername")

    Arquivo = CriarArquivoLOG

    Open Arquivo For Append As #1
       Print #1, DataHora & ";" & Usuario & ";" & Maquina; ";" & Evento
    Close #1

    SairFunction:
    Exit Function

    TratarErro
    MsgBox Err.Description, vbCritical, "Erro " & Err.Number
    Resume SairFuncition
    End Function
    Function CriarArquivoLOG()
    On Error GoTo TratarErro
    Dim Cabecalho As String
    Dim Arquivo As String

    Arquivo = "C:\Teste\Meu log_" & Format(Date, "YYYY-MM") & ".log"

    If Dir("C:\Teste", vbDirectory) = "" Then MkDir "C:\Teste"
    If Dir("C:\Teste\Meu log_" & Format(Date, "YYYY-MM") & ".log", vbDirectory) = "" Then

       Cabecalho = "DATA E HORA;USUÁRIO;MÁQUINA;EVENTO"
       Open Arquivo For Output As #1
           Print #1, Cabecalho
       Close #1

    End If

    CriarArquivoLOG = Arquivo

    SairFunction:
    Exit Function

    TratarErro:
    MsgBox Err.Description, vbCritical, " Erro " & Err.Number
    Resume SairFunction
    End Function

    LiveBrain
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

    Re: Variáveis foram declaradas mas não aparecem na Janela de Variáveis Locais

    Mensagem  LiveBrain em Ter 07 Out 2014, 17:58

    Declare suas variáveis em vez de DIM como Global em algum módulo existente no seu projeto


    .................................................................................
    Abraços

    Live Brain Tutoriais

    "Fraca é a pessoa que não conhece a força que possui nos amigos"

      Data/hora atual: Sab 10 Dez 2016, 06:53