[Resolvido]Exibir nome do rótulo do campo associado.

Pessoal boa tarde!

Como posso exibir o nome do rótulo de um campo associado, por exemplo em uma msgbox?

veja o a imagem abaixo.



neste caso gostaria que fosse exibido em uma mensagem o nome "Rótulo2 "

att;

Sidney

Damaceno, bom dia!!

Então, acho que não me expressei bem, eu tenho um programa que antes de atualizar o fomulario ele buscar os campos que por ventura ficou em branco, obrigando o usuários a digitar, neste programa ele me mostra o nome do campo, atraves de um loop que ele faz, só que em vez dele mostrar o nome do campo, quero que me mostre o nome do rótulo, porque assim fica mais explicito a questão para o usuário, veja o exemplo abaixo de como está a mensagem para o usuário,




'este funçãodo joão paulo foi adapatdo,

Código:

Public Function ValidaPreenchimento(c As Form) As Boolean
'By JPaulo Maximo Access
Dim ctl As control
For Each ctl In c.Controls
    If ctl.ControlType = acTextBox Or ctl.ControlType = acOptionGroup Or ctl.ControlType = acCheckBox Or ctl.ControlType = acComboBox Then
        If ctl.Tag = -2 Then
            If IsNull(ctl.Value) Or ctl.Value = "" Or IsEmpty(ctl.Value) Then
                MsgBox "O Campo '" & ctl.Name & "' não pode ficar em branco", vbCritical, "Campo obrigatório."
                ctl.SetFocus
                ValidaPreenchimento = True
                Exit Function
            End If
        End If
    End If
Next

e é neste momento que eu quero um dito programa para complementar o código acima, em vez do nome do campo o nome do rotulo, e pelo que eu entedi do seu buscar o rútulo de um campo expecifico se for espeficicado o nome, me corriga se eu estiver enganado, e não deu certo.

att

Sidney

Boa tarde
Adaptei. Será isto?

Código:

Public Function ValidaPreenchimento(c As Form) As Boolean
'By JPaulo Maximo Access
'Adaptado por Alexandre Neves para mostrar o nome do campo do controlo
Dim ctl As control
For Each ctl In c.Controls
    If ctl.ControlType = acTextBox Or ctl.ControlType = acOptionGroup Or ctl.ControlType = acCheckBox Or ctl.ControlType = acComboBox Then
        If ctl.Tag = -2 Then
            If IsNull(ctl.Value) Or ctl.Value = "" Or IsEmpty(ctl.Value) Then
                MsgBox "O Campo '" & ctl.Controlsource & "' não pode ficar em branco", vbCritical, "Campo obrigatório."
                ctl.SetFocus
                ValidaPreenchimento = True
                Exit Function
            End If
        End If
    End If
Next

Prezados Boa Tarde!!

Me desculpem a demora para responder, estive ausente estes dias, Damasceno a vesão é o 365.

att; Sidney

A sugestão é que use a propriedade texto da barra de status de cada controle para informar o rótulo.
Ao passar:

Código:

MsgBox "O Campo '" & ctl.StatusBarText & "' não pode ficar em branco", vbCritical, "Campo obrigatório."

tente adptar:

If Len(seucampo & "") = 0 Then
MsgBox "O campo seucampo é obrigatório.", vbCritical, ""
End If

Bom dia!! Pessoal,

Damasceno, o código deu certo, mas tive que renomerar o nome do rótulo com o mesmo nome da legenda, ai ficou perfeto,

obrigadão!

e aos demais que opnaram, muito obrigado tambem.

att;

Sidney