MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 94
    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 Ter Abr 07, 2020 12:59 pm

    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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2816
    Registrado : 21/11/2016

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

    Mensagem  DamascenoJr. Ter Abr 07, 2020 1:52 pm



    .................................................................................
    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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 94
    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 Ter Abr 07, 2020 3:36 pm

    Solução atende perfeitamente, muito obrigado!


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

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2816
    Registrado : 21/11/2016

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

    Mensagem  DamascenoJr. Qua Abr 08, 2020 5:02 pm

    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: Qui Jun 17, 2021 11:52 am