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]Registrar nome de formulário (ao carregar) em tabela

    avatar
    Jonatan
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 234
    Registrado : 03/05/2012

    [Resolvido]Registrar nome de formulário (ao carregar) em tabela Empty [Resolvido]Registrar nome de formulário (ao carregar) em tabela

    Mensagem  Jonatan 6/5/2016, 14:57

    Bom dia, amigos

    Tem alguma forma de registrar o nome de um fomulário numa tabela ao carregar? Entendo que é possível com INSERT INTO, mas não sei como captar o nome dos formulários.


    Grato
    ruggerib
    ruggerib
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 47
    Registrado : 14/01/2014

    [Resolvido]Registrar nome de formulário (ao carregar) em tabela Empty RE; Registrar nome de formulário (ao carregar) em tabela

    Mensagem  ruggerib 6/5/2016, 19:51

    Boa tarde Jonatan,

    Pode utilizar uma funcao simples
    Me.Name   'retorna o nome do objeto atual(Form,Tbl,Report)

    e completa com a funcao ao abrir o formulario

    Dim NomeFormulario As String
    Dim DataAtual As Data   'Caso seu objetivo for gerar log de abertura de formularios no seu sistema

    NomeFormulario = "'" & Me.Name &  "'"

    DataAtual = "#" & Now() & "#"

    DoCmd.RunSQL("INSERT INTO SUATBLDELOG(FORMULARIO,DATAHORA) VALUES (" & NomeFormulario & ", " & DataAtual & ")" )




    Espero ter ajudado , abs!
    avatar
    Jonatan
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 234
    Registrado : 03/05/2012

    [Resolvido]Registrar nome de formulário (ao carregar) em tabela Empty Re: [Resolvido]Registrar nome de formulário (ao carregar) em tabela

    Mensagem  Jonatan 6/5/2016, 21:24

    Olá, obrigado pela ajuda

    Está ocorrendo erro na seguinte linha:
    Dim DataAtual As Data

    Erro de compilação: o tipo definido pelo usuário não foi definido.
    ruggerib
    ruggerib
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 47
    Registrado : 14/01/2014

    [Resolvido]Registrar nome de formulário (ao carregar) em tabela Empty Re: [Resolvido]Registrar nome de formulário (ao carregar) em tabela

    Mensagem  ruggerib 6/5/2016, 21:36

    Perdao, tipo Date, erro de digitacao rs


    Dim NomeFormulario As String
    Dim DataAtual As Date   'Caso seu objetivo for gerar log de abertura de formularios no seu sistema

    NomeFormulario = "'" & Me.Name &  "'"

    DataAtual = "#" & Now() & "#"

    DoCmd.RunSQL("INSERT INTO SUATBLDELOG(FORMULARIO,DATAHORA) VALUES (" & NomeFormulario & ", " & DataAtual & ")" )



    posta seu exemplo pra gente testar!

    Abs!
    avatar
    Jonatan
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 234
    Registrado : 03/05/2012

    [Resolvido]Registrar nome de formulário (ao carregar) em tabela Empty Re: [Resolvido]Registrar nome de formulário (ao carregar) em tabela

    Mensagem  Jonatan 6/5/2016, 23:34

    Olá

    Fiz algumas mudanças:

    Dim NomeFormulario As String
    Dim DataAtual As Date   'Caso seu objetivo for gerar log de abertura de formularios no seu sistema
    NomeFormulario = "'" & Me.Name & "'"
    CurrentDb.Execute "INSERT INTO Tabela1(fNome,DataAcesso) VALUES (" & NomeFormulario & ", Now())"


    Estava dando erro na 4ª linha: dados incompatíveis. E Docmd.RunSQL para CurrentDb.Execute



    Funcionou perfeitamente.

    Muito obrigado, amigo.
    ruggerib
    ruggerib
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 47
    Registrado : 14/01/2014

    [Resolvido]Registrar nome de formulário (ao carregar) em tabela Empty Re: [Resolvido]Registrar nome de formulário (ao carregar) em tabela

    Mensagem  ruggerib 6/5/2016, 23:43

    Que ótima noticia, fico feliz de ter ajudado. O runsql deveria funcionar também, depois vou testar direitinho pra ver o que aconteceu.

    Abs!

    Não esqueça de por "Resolvido"
    avatar
    Jonatan
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 234
    Registrado : 03/05/2012

    [Resolvido]Registrar nome de formulário (ao carregar) em tabela Empty Re: [Resolvido]Registrar nome de formulário (ao carregar) em tabela

    Mensagem  Jonatan 7/5/2016, 02:51

    E funcionou. Mas precisava sempre confirmar a inclusão de registro e eu não queria desativar as ações de consulta. Por isso CurrentDb.Execute.




    Obrigado

    Conteúdo patrocinado


    [Resolvido]Registrar nome de formulário (ao carregar) em tabela Empty Re: [Resolvido]Registrar nome de formulário (ao carregar) em tabela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 00:18