[Resolvido]Procedimento para todas as txtBox de um formulário

Bom dia!

Venho mais uma vez pedir a vossa ajuda.

Preciso de ao clicar em qualquer controlo num formulário, caso click numa txtBox o código execute.

Algo do tipo:

Código:

Sub Form_ClickQualquerControlo()

Dim ctl As Control

For Each ctl In Forms("frm_teste").Detail.Controls
    If ctl.ControlType = acTextBox Then

       corre código

    End If
Next ctl
End Sub

Obrigado

Olá Carlos,

Utilize o evento Gotfocus (Evento "ao Receber foco")

Ex.:

Private Sub SeuCampo_GotFocus()
    Call Form_ClickQualquerControlo()
End Sub

Espero ter ajudado.

boa sorte

Obrigado Alexandre pelo retorno,

Assim funciona, o problema é que terei que colocar o código em cada campo, exactamente o que eu queria evitar.

Imagine um form com 50 txtBox, terei que colocar o código em cada uma.

O que eu procuro é uma forma de fazer isso com um procedimento só.

Obrigado

Bom dia,
qual erro ocorre?
E qual código acontece o erro?

Bom dia!

Encontrei uma solução, salvo melhor opinião deixo aqui o resultado da minha pesquisa para quem precisar.

Num Módulo:

Código:

Public Function pbFindClickedControl()
    
On Error GoTo errHere


MsgBox "Consegui!"
'Restante Código

ExitHere:
    Exit Function

errHere:
    MsgBox "Error " & err & " - " & err.Description
    Resume ExitHere

End Function


No Evento Ao Abrir do Formulário:

Código:

Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
Dim ctl As Control
    
For Each ctl In Me.Controls
    With ctl
        If .ControlType = acTextBox Or .ControlType = acComboBox Then  'acCommandButton para Botão
            '.OnClick = "=pbFindClickedControl()" '--> Não Finciona com ComboBox
            .OnGotFocus = "=pbFindClickedControl()"
        End If
    End With
Next ctl

End Sub

Obrigado