Capturar Botão que o Usuário Clica

[tganet 0]

Olá, preciso que quando o usuário clica, seja capturado o nome do "botão", e a hora e mês, para que eu possa analisar quais relatórios estam sendo acessados, depois preciso que este dados sejam gravados em um tabela para gerar consultas e depois relatórios. Quem puder me ajudar.

[Julien.Sorel 0]

Olá,

 

Abaixo segue uma das possibilidades para realizar esta rotina - esta é a função que deve ser chamada pelo comandos, no envento de click:

 

Exemplo - o nome do "botão" deve ser informado como parâmetro...

 

Private Sub importCommand_Click()

    Call modClick("importCommand")

End Sub[/Code]

 

 

[Code]Sub modClick(strNmCmd As String)
Dim SQL As String

On Error GoTo Err_Click

DoCmd.SetWarnings False 'Aviso de execução
SQL = "INSERT INTO itblLogCmd ( NmCmd, DtLog, MesLog, HrLog ) " & _
"SELECT '" & strNmCmd & "' AS NmCmd, Date() AS DtLog, MonthName(Month(Date())) AS MesLog, Time() AS HrLog"
DoCmd.RunSQL SQL 'Consulta insert que incui as informações selecionadas na table de log


Exit_Click:
Exit Sub

Err_Click:
modMsgErr

Resume Exit_Click

End Sub[/Code]

 

 

 

 

 

Sem mais,

 

Julien Sorel