MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Sidney
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 411
    Registrado : 08/10/2012

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

    Mensagem  Sidney em 29/1/2020, 18:01

    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.

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

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

    att;

    Sidney
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2229
    Registrado : 22/11/2016

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

    Mensagem  DamascenoJr. em 30/1/2020, 00:11

    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.")


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Sidney
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 411
    Registrado : 08/10/2012

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

    Mensagem  Sidney em 5/2/2020, 12:38

    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,

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


    '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

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7704
    Registrado : 05/11/2009

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

    Mensagem  Alexandre Neves em 5/2/2020, 17:59

    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


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2229
    Registrado : 22/11/2016

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

    Mensagem  DamascenoJr. em 8/2/2020, 22:40

    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


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Sidney
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 411
    Registrado : 08/10/2012

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

    Mensagem  Sidney em 18/2/2020, 20:43

    Prezados Boa Tarde!!

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

    att; Sidney
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2229
    Registrado : 22/11/2016

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

    Mensagem  DamascenoJr. em 19/2/2020, 02:37

    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


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    yourV
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 1
    Registrado : 06/02/2020

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

    Mensagem  yourV em 19/2/2020, 08:09

    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."
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1224
    Registrado : 07/12/2011

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

    Mensagem  tauron em 19/2/2020, 09:26

    tente adptar:

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 411
    Registrado : 08/10/2012

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

    Mensagem  Sidney em 19/2/2020, 12:33

    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
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2229
    Registrado : 22/11/2016

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

    Mensagem  DamascenoJr. em 19/2/2020, 19:24

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2229
    Registrado : 22/11/2016

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

    Mensagem  DamascenoJr. em 20/2/2020, 20:49

    Adaptação, meu nobre

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


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 1/10/2020, 04:22