[Resolvido]Função fncX do Avelino

Desculpe incomodar, amigo Avelino.

Segui teus passos e ficou perfeito.

-------------

Função em um módulo que recebe o nome do formulário e do controle e muda sua borda:


Public Function fncX(NomeForm As String, NomeControl As String)

MouseCursor (32649)
FORMULA = NomeForm ' variável global
CONTROLA = NomeControl ' variável global
Forms(FORMULA)(CONTROLA).BorderStyle = 1


End Function

--------------------------

No ao abrir dos formulárioa:
Coloca, automaticamente, nos ao mover o mouse dos controles do formulário a função que mudará sua borda.

For Each ctl In Me.Controls
Select Case ctl.ControlType
Case acImage
If (ctl.OnMouseMove = vbNullString) Then
ctl.OnMouseMove = "=fncX('" & Name & "','" & ctl.Name & "')"
End If
End Select
Next

-------------------------------

No ao mover mouse do form (detalhe, rodapé, cabeçalho) para tirar a borda:

If FORMULA <> "" Then
For Each ctl In Me.Controls
Select Case ctl.ControlType
Case acImage
FORMULA = Format(Me.Name)
CONTROLA = Format(ctl.Name)
Forms(FORMULA)(CONTROLA).BorderStyle = 0
End Select
Next
End If
FORMULA = ""

-------------------------------

Só que não consigo realizar a mesma coisa com um controle que está em uma página de uma guia que está em um formulário?????

Me dê uma luz.

Obrigado

Olá

Veja se nos comentários deste meu artigo, teria a solução para o seu caso:

http://www.usandoaccess.com.br/tutoriais/tuto53.asp?id=1#inicio

Amanhã agente se comunica.

Sucesso!

leoni

Volte ao artigo e baixe novamente o arquivo exemplo. Fiz alterações significativas nos códigos e acrescentei subform, form continuo e botões

Sucesso!

Obrigado, amigo Avelino.

Como você me sugeriu, fui aos comentários de seu artigo e tudo resolvido.

Forms(Formprincipal)(SubForm).Form(controle no subformulário que está em uma pg de um controle guia do FormPrincipal).BorderStyle = 1

Mais uma vez obrigado ao mestre.

Obrigado a todos do Forum.

Vou colocar o tópico como resolvido.