Pergunte aqui

Histórico de revisões [voltar]

clique para ocultar/mostrar a revisão 1
Versão inicial

Segue @Júnio Vieira

Só não coloque ao pegar foco, pois vai entrar em loop infinito.

Sub PegarNomeControle

    Dim txtField as Object
    Dim txtFieldName as String

    txtField = Dialog1.GetControl("txtField1")
    txtFieldName = txtField.Modal.Name

    MsgBox txtFieldName

End Sub

Segue @Júnio Vieira

Só não coloque ao pegar foco, pois vai entrar em loop infinito.

Sub PegarNomeControle

    Dim txtField as Object
    Dim txtFieldName as String

    txtField = Dialog1.GetControl("txtField1")
    txtFieldName = txtField.Modal.Name
txtField.Model.Name

    MsgBox txtFieldName

End Sub