MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Função para Verificar Campos Vazios Personalizada

    Compartilhe
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

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

    Função para Verificar Campos Vazios Personalizada

    Mensagem  good guy em 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)
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: Função para Verificar Campos Vazios Personalizada

    Mensagem  ahteixeira em 23/12/2015, 13:00

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

    Respeito às Regras 100%

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

    Re: Função para Verificar Campos Vazios Personalizada

    Mensagem  Alexandre Neves em 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
    avatar
    jr_amil
    Novato
    Novato

    Respeito às Regras 100%

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

    Verificar Campos Vazios

    Mensagem  jr_amil em 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
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

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

    Função para Verificar Campos Vazios Personalizada

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

    Perfeito jr_amil. Obrigado !!!

      Data/hora atual: 15/8/2018, 19:29