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

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

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!

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.

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!

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.

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"

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