TEXTO DA STATUSBARTEXT

LUCIANORW 27/07/2010 16:34:55
#348618
Estou montando um form, onde a descrição dos label[ô]s é muito extensa, então deixei a descrição completa na StatusBarText e estou tentando pegar este conteudo e colocar num label para que que o usuário tenha uma noção clara do que é solicitado, vejam o que montei, mas não sei em qual evento colocar no form, isso mesmo, evento no form, para não ter que colocar em cada campo deste form.
Function Msg(frm As Form)
For Each ctl In frm.Controls
If ctl.ControlType <> acLabel Then
If ctl.StatusBarText <> [Ô][Ô] Then
Me.rotmsg.Caption = ctl.StatusBarText
End If
End If
Next ctl
End Function

Att
Luciano
Access2003
MICROSCHEME 27/07/2010 18:04:36
#348633
Cara:

StatusBar utiliza painéis pra exibição de informações, então deveria ser:

nomedatuastatusbar.Panels(i), onde o i corresponde ao numero do painel, seja text ou não

. . .
LUCIANORW 27/07/2010 19:27:04
#348642
Ola Microsheme,
Estou fazendo no access.
Veja como ficou:

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    Me.rotmsg.Caption = Me.ActiveControl.Controls(0).Caption & vbCrLf & Me.ActiveControl.StatusBarText
End Sub

Att
MICROSCHEME 27/07/2010 19:43:26
#348644
E ai, funfou ? ? ?

. . .
LUCIANORW 28/07/2010 08:05:10
#348672
Bom dia!!!
Funfou legal.
Valeu atenção!!!
Luciano
Tópico encerrado , respostas não são mais permitidas
Voltar