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

4 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 : 1305
    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)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  ahteixeira 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 : 8004
    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
    good guy
    good guy
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1305
    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 !!!

      Data/hora atual: 4/8/2021, 12:56