[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

Tentei reproduzir isso no meu Access 2007 e 2010 e não consegui de modo algum encontrar na folha de propriedades uma que se chamasse "Nome do Rótulo". Mas segue abaixo um código que pode te auxiliar. Insira-o no evento "ao carregar" do seu formulário que, nos conformes do formulário da sua imagem, buscará dentre as propriedades da textbox a que retorna o nome do rótulo associado em questão e assim mostrará como usar tal propriedade para exibir seu valor em uma caixa de mensagem.

Código:

On Error Resume Next

    Dim prp As Property
    Dim vl As String
   
    For Each prp In Me!txt_Campo1.Properties
   
        vl = prp.Value
       
        If Err Then
            Err.Clear
        ElseIf vl = "Rótulo2" Then
            Call MsgBox("O nome da propriedade que tem o nome do rótulo associado é: " & prp.Name)
            Call MsgBox("Para exibi-la em uma mensagem basta usar: " & vbNewLine & vbNewLine & "msgbox me.SeuCampo." & prp.Name)
            Exit Sub
        End If
   
    Next prp
   
    Call MsgBox("A propriedade com o nome do rótulo associado não encontrada.")

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

Sidney, qual a versão do seu Access?

Lembro de já ter visto uma função pronta para isto feita pelo Dilson. Você também poderia salvar um nome mais amigável na propriedade "Tag/Marca" no textbox e na validação dos campos exibí-la com um ctl.Tag

Prezados Boa Tarde!!

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

att; Sidney

Adquiri o office 365 e utilizando o código que informei na mensagem de número 2 descobri que a propriedade que você procura se chama "LabelName". Não sei se ela está disponível para todas as versões anteriores, mas na minha versão do access 2007 do office não funcionou.

Mas continuando no 365 e no código que você utiliza, então bastaria usar --> ctl.properties("LabelName").value

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.properties("LabelName").value & "' não pode ficar em branco", vbCritical, "Campo obrigatório."
                ctl.SetFocus
                ValidaPreenchimento = True
                Exit Function
            End If
        End If
    End If
Next

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

O fórum agradece o retorno. Sucesso.

Adaptação, meu nobre

me(ctl.properties("LabelName").value).caption