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

    [Resolvido]Erro ao não preencher todos campos

    Compartilhe
    avatar
    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    [Resolvido]Erro ao não preencher todos campos

    Mensagem  Caio em Sex 03 Jul 2015, 14:18

    Como faço pra quando fechar um formulário exibir uma mensagem com os campos que precisam e não foram preenchidos?

    PepeTuga
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 83
    Registrado : 17/10/2013

    Re: [Resolvido]Erro ao não preencher todos campos

    Mensagem  PepeTuga em Ter 14 Jul 2015, 17:58

    Caio,
    Não sei se já resolveu o seu problema mas aqui vai uma sugestão:

    Código:

    If IsNull(Me.SeuCampo1) Or IsNull(Me.SeuCampo2) Then
    MsgBox "Existem campos vazios de preenchimento obrigatório!", vbExclamation, "Aviso"
    Cancel = True
    Else
    DoCmd.Close acForm, "NomeDoSeuFormulário"
    End If

    É só adaptar e testar.
    Cumprimentos,
    Pepe
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2934
    Registrado : 06/11/2009

    Re: [Resolvido]Erro ao não preencher todos campos

    Mensagem  Assis em Ter 14 Jul 2015, 18:08

    Boa tarde
    Se der uma busca no forum

    Aqui


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Erro ao não preencher todos campos

    Mensagem  Caio em Seg 20 Jul 2015, 13:38

    Resolvido Smile

      Data/hora atual: Seg 25 Set 2017, 17:51