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

5 participantes

    Função para Verificar Campos Vazios Personalizada

    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    Função para Verificar Campos Vazios Personalizada Empty Função para Verificar Campos Vazios Personalizada

    Mensagem  good guy 15/12/2015, 19:02

    Espero que gostem. Em vez de utilizar funções que apenas digam que existem campos vazios, por que não indicar quais seriam esses campos? Por exemplo, "AVISO: o campo Telefone está vazio !!!". Logicamente, você deverá sinalizar com (-1) somente os campos obrigatórios para preenchimento.

    Código:

    Public Function VerificarCamposVazios()

    '#Código de Eduardo Machado (Good Guy) - 2015
    On Error Resume Next
    Dim strMsg As String
    Dim intRetVal As Integer
    Dim ctl As control
    Dim sCampoX As Variant


    strMsg = "Verificar dados?"
    intRetVal = MsgBox(strMsg, vbQuestion + vbYesNo, "Impressão de Relatório")
    Select Case intRetVal
    Case Is = vbYes

    Const conVinculado = -1      'Colocar -1 na propriedade Marca da aba Outra de cada campo do formulário que deseja verificar

    For Each ctl In Me.Controls
        If ctl.Tag = conVinculado Then
            Select Case ctl.ControlType
            Case acTextBox, acComboBox
            If ctl.Value = "" Or ctl.Value = Null Then
                
            sCampoX = ctl.Name
          
            MsgBox "O campo " & sCampoX & " está vazio. Verifique !!!", vbInformation, "Checa Campos"  'Ou, com vbCritical
            End If
            End Select
        End If
    Next ctl
    Case Is = vbNo
    DoCmd.RunCommand acCmdSaveRecord
    MsgBox "OK", vbExclamation, "Fim da Verificação"
    End Select

    End Function


    Última edição por good guy em 26/1/2016, 14:07, editado 1 vez(es)

    lindomar.silva e WEBE gostam desta mensagem

    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7715
    Registrado : 15/03/2013

    Função para Verificar Campos Vazios Personalizada Empty Re: Função para Verificar Campos Vazios Personalizada

    Mensagem  Alvaro Teixeira 23/12/2015, 13:00

    Olá Eduardo, obrigado pela partilha!
    Abraço e Bom Natal
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Função para Verificar Campos Vazios Personalizada Empty Re: Função para Verificar Campos Vazios Personalizada

    Mensagem  Alexandre Neves 23/12/2015, 18:25

    Boa tarde,
    Parabéns. Código simples e funcional.
    Santo Natal


    .................................................................................
    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
    jr_amil
    jr_amil
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 12/02/2012

    Função para Verificar Campos Vazios Personalizada Empty Verificar Campos Vazios

    Mensagem  jr_amil 27/4/2016, 17:26

    Bom dia valeu pelo compartilhamento
    uma unica coisa que verifiquei é que algum campos texto , só fez a veriricação com a sintaxe isnull(campo)

    If IsNull(ctl.Value) Or ctl.Value = "" Or ctl.Value = Null Then

    Mas obrigado
    Att
    Amilton

    lindomar.silva gosta desta mensagem

    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    Função para Verificar Campos Vazios Personalizada Empty Função para Verificar Campos Vazios Personalizada

    Mensagem  good guy 11/5/2018, 15:35

    Perfeito jr_amil. Obrigado !!!

    lindomar.silva gosta desta mensagem

    lindomar.silva
    lindomar.silva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 136
    Registrado : 27/08/2010

    Função para Verificar Campos Vazios Personalizada Empty Re: Função para Verificar Campos Vazios Personalizada

    Mensagem  lindomar.silva 11/12/2022, 21:06

    Praticamente 7 anos após a postagem inicial e as informações compartilhadas ainda continuam sendo muito úteis. Acabei de usar e deu certo!
    Muito obrigado! Very Happy

      Data/hora atual: 8/2/2023, 00:10