MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Validar dois Campos de Preenchimento Obrigatorio

    Compartilhe

    rionide
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 01/03/2014

    [Resolvido]Validar dois Campos de Preenchimento Obrigatorio

    Mensagem  rionide em Sex 25 Abr 2014, 16:19

    Bom Dia amigos do Fórum. Eu já aprendi que pra se validar um campo de preenchimento obrigatório se usa esse Código aqui:
    If IsNull(MeuCampo) Then
    MsgBox "O Campo 'MeuCampo' Não Pode Ficar em BRANCO", vbInformation, "OBSERVAÇÃO"
    TxtCampo1.SetFocus
    DoCmd.CancelEvent
    End
    End If
    Nesse caso uso este Código para cada um dos campos quero que seja de preenchimento obrigatório.

    Mais agora eu tenho dois campos e somente um deles vai precisar ser preenchido obrigatoriamente o outro pode ficar em branco. Então como fazer este código pra verificar os dois campos ao mesmo tempo e só me retornar a msgBox caso os dois esteja em branco.
    Obrigado pela atenção.

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Validar dois Campos de Preenchimento Obrigatorio

    Mensagem  Alexandre Neves em Sex 25 Abr 2014, 16:59

    Boa tarde,
    If IsNull(MeuCampoA) and IsNull(MeuCampoB) Then
    MsgBox "Um dos campos 'MeuCampoA' e 'MeuCampoB' não pode ficar em BRANCO", vbInformation, "OBSERVAÇÃO"
    TxtCampo1.SetFocus
    DoCmd.CancelEvent
    End
    End If


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

    rionide
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 01/03/2014

    Agradecimentos pela ajuda

    Mensagem  rionide em Sex 25 Abr 2014, 18:59

    Valeu Alexandre Neves, isto mesmo que eu preciso, ficou perfeito. Meu muito Obrigado pela ajuda.

      Data/hora atual: Sab 10 Dez 2016, 04:58