Supervisão do click em botões-VBA

Gostaria de supervisionar o click de um determinado botão(Comando0) em um determinado formulário(teste1) sem usar o onclick das propriedades do referido botão.

Tentei:

if teste1!Controls!Comando0.onclick = true then .... e não funciona

Como devo fazer?

Obrigado

Bom dia...seja bem vindo ao fórum...

Não entendi o que quer dizer com o " supervisionar " !
Sempre haverá um evento " ao clicar ( on click) " em qualquer botão, afinal botões foram para serem clicados e são ativados por procedimentos de eventos.
Se puder ser mais claro, agradecemos !

Podes criar uma Tag dentro do evento click

EX:

Private Sub CommandButton1_Click()
Tag = "EDITAR"

End Sub


If Tag = "EDITAR" Then

'executa ação
Tag = "" 'zera a tag para nova conferencia do click
Else

End If


Podes criar uma variável também para contar quantos clicks foram dados.


Dim x As Integer

Private Sub CommandButton1_Click()
x = x + 1

End Sub

Private Sub exenplo()

If x >= 1 Then

'executa ação
Else

End If

End Sub

Caros

Acho que não fui claro. Não gostaria de usar o evento click das propriedades do botão.

Gostaria de saber como seria o código em VBA para usar um botão em um formulário sem ser no evento click.

Att

Alcibiades

Bom dia....

Amarcial....para que então colocar um botão de comando em um formulário.......se não vai usar ele ?

Estou até agora sem entender o que deseja...o que pretende...e o que quer afinal !

Em sua primeira mensagem, no exemplo do código, já deu para ver um click na linha....

Ou.......você deseja saber quantos cliques aquele determinado botão recebeu ?

Caro

Muito obrigado pela atenção.

Na verdade quero saber como utilizar um botão ou qualquer outro comando de formulário utilizando VBA, ou seja, como se as SUB's, ao clicar, ao focar, etc., não existissem.

Obrigado

Alcibiades

Explore a seguinte opção

Bom dia, amarcial.


Private Sub Form_Load()
Me.KeyPreview = True
End Sub



'Sendo o botão que quer ativar com o nome OK e pressionando o ENTER

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
Call OK_Click
End If
End Sub

Veja
https://www.maximoaccess.com/t18339-resolvidocomo-resolver-o-erro-2501-de-uma-ribbon