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]Retornar o nome do rótulo do campo

    josé waldick
    josé waldick
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 84
    Registrado : 06/06/2017

    [Resolvido]Retornar o nome do rótulo do campo Empty [Resolvido]Retornar o nome do rótulo do campo

    Mensagem  josé waldick em 7/4/2020, 19:59

    Olá pessoas!
    Conforme código abaixo cedido gentilmente pelo colega JPaulo, gostaria de saber se existe uma possibilidade de retornar o nome do rótulo do controle, uma vez que irei condicionar quais serão os campos obrigatórios na propriedade 'tag'. Lembrando que usaremos a propriedade 'tag' com um parâmetro para defenir quais serão os campos obrigatórios para preenchimento.
    Código:
    Public Function ValidaPreenchimento() As Boolean
    'By JPaulo :registered: Maximo Access
    Dim ctl As Control
    For Each ctl In Me.Controls
    If ctl.ControlType = acTextBox Then
    If IsNull(ctl.Value) Then
    MsgBox "O Campo '" & ctl.Tag & "' não pode ficar em branco"
    ctl.SetFocus
    Exit Function
    End If
    End If
    Next
    End Function

    Private Sub SeuBotão_Click()
    Call ValidaPreenchimento
    End Sub

    'Segue o código editado: ..................................

    Public Function ValidaPreenchimento() As Boolean
    Dim ctl As Control
    For Each ctl In Me.Controls
    If ctl.ControlType = acTextBox Then
    If IsNull(ctl.Value) and ctl.Tag= 1 Then
    ' MsgBox "O Campo '" & ctl.nome_do_rotulo & "' não pode ficar em branco"
    ctl.SetFocus
    Exit Function
    End If
    End If
    Next
    End Function

    Private Sub SeuBotão_Click()
    Call ValidaPreenchimento
    End Sub


    .................................................................................
    Deus é bom e fiel!
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Retornar o nome do rótulo do campo Empty Re: [Resolvido]Retornar o nome do rótulo do campo

    Mensagem  DamascenoJr. em 7/4/2020, 20:52



    .................................................................................
    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.
    josé waldick
    josé waldick
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 84
    Registrado : 06/06/2017

    [Resolvido]Retornar o nome do rótulo do campo Empty Re: [Resolvido]Retornar o nome do rótulo do campo

    Mensagem  josé waldick em 7/4/2020, 22:36

    Solução atende perfeitamente, muito obrigado!


    .................................................................................
    Deus é bom e fiel!
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Retornar o nome do rótulo do campo Empty Re: [Resolvido]Retornar o nome do rótulo do campo

    Mensagem  DamascenoJr. em 9/4/2020, 00:02

    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.

      Data/hora atual: 5/12/2020, 08:50