[Resolvido]Atribuir caminho de um controle de um formulário a uma variável

Amigos do fórum,

É possível atribuir a uma variável o caminho de um controle no formulário ao passar o mouse sobre ele?

Ex.: Ao mover o mouse sobre o controle cujo caminho é forms![Formulário exemplo]![Controle exemplo], esse caminho ser armazenado em uma variável?

A variável X (string) automaticamente receberá esse caminho "forms![Formulário exemplo]![Controle exemplo]" ao mover o mouse.

Eu não estou me referindo a colocar no evento ao mover o mouse 'X = "forms![Formulário exemplo]![Controle exemplo]".

Falo automaticamente.

Espero que me entendam.

Não entendi muito bem não. Desenvolva o raciocínio.

Acho que entendi. O VBA pode realizar esta digitão pra gente.

Passo 1: Faça o VBA montar o evento "OnMouseMove" , chamando uma função que irá passar o nome do formulário atual e nome do Controle que receber o ponteiro do mouse. Vamos usar o evento "ao abrir" do formulário

Código:

Private Sub Form_Open(Cancel As Integer)
Dim ctl As Control
    For Each ctl In Me.Controls
        Select Case ctl.ControlType
          Case acTextBox ', acComboBox, acListBox
              If (ctl.OnMouseMove = vbNullString) Then
                ctl.OnMouseMove = "=fncX('" & Me.Name & "','" & ctl.Name & "')"
              End If
          End Select
    Next
End Sub

Ao abrir o formulário o evento "onMouseMove" da cada caixa de texto receberá a função fncX() com seus respectivos valores de Nome do formulário e Nome do Controle.

Passo 2: Agora a função que será disparada quando o Mouse passar sobre cada campo texto:

Código:

Public Function fncX(NomeForm As String, NomeControl As String)
MsgBox "forms(" & NomeForm & ")!" & NomeControl
End Function

Depois dos testes, substitua o Msgbox pela variável global X

x = "forms(" & NomeForm & ")!" & NomeControl


Sucesso!

Obrigado por responderem, amigos e mestres.

Ao Avelino: Vou tentar esse vba que você me passou, amigo. Depois retorno se deu tudo certo.


Ao Criquio: Eu quero que no evento Onmousemove de um controle qualquer (botão de comando, caixa de texto, etc) uma variável receba todo o caminho para chegar a esse controle.
Ex.: Ao passar o mouse sobre o botão de comando btTESTE do formulário FORMTESTE, a variável escolhida receba, automáticamente, o texto "forms![FORMTESTE]![btTESTE]". E assim, em todos os controles escolhidos.

Ok, teste e dê um retorno.

Amanhã estarei lançando um artigo sobre "pintar campo que possui o foco" que usa exatamente esta função que te passei. Cadastre-se no meu site, para vc receber meu newsletter.

Sucesso!

Funcionou perfeitamente, mestre Avelino.

Eu só não soube mudar atributos de controles usando essa variável.

Ex.: Se armazenei em uma variável X o caminho 'Forms![formulário 1]![controle 1]', eu não soube como realizar 'X.BorderStyle = 1' como se fosse 'Forms![formulário 1]![controle 1].Borderstyle = 1'. Eu devo estar meio burro hoje.

Por que armazenar numa variável se já pode executar na função?

exemplo:

Código:

Public Function fncX(NomeForm As String, NomeControl As String)
Forms(NomeForm)(NomeControl).BorderStyle = 1
End Function

Sucesso!

Como eu disse, eu hoje tô me sentindo burro total.

Mais q perfeito, Avelino.

Funcionou super bem.

Obrigado ao Mestre.

Se você puder mandar o endereço de teu site para eu me cadastrar, posso considerar o tópico resolvido.

http://www.usandoaccess.com.br

Sucesso!