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]Validação de Campo no formulário com runtime

    Compartilhe

    Tuta
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 104
    Registrado : 17/05/2015

    [Resolvido]Validação de Campo no formulário com runtime

    Mensagem  Tuta em Qui 14 Abr 2016, 03:51

    Prezados,

    [justify]Preciso que ajudem-me a fazer com que a validação de um campo funcione no formulário que está em rede com a opção /runtime. Se eu usar o formulário sem as opção /runtime, a validação do campo funciona perfeitamente. Todavia, se eu configurar em /runtime, há validação do campo mas em seguida o sistema fecha o formulário sem que haja oportunidade de preencher o campo que foi validado.
    Alguém poderia ajudar-me?
    Segue o script que escrevi:
    If IsNull(TxtNTT) Then
    MsgBox ("Você não preencheu o campo NTT.")
    TxtNTT.SetFocus
    TxtNTT.BackColor = 7852
    DoCmd.CancelEvent
    End
    End If
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Validação de Campo no formulário com runtime

    Mensagem  ahteixeira em Qui 14 Abr 2016, 13:26

    Olá Batista, tente uma das seguinte formar e veja o resultado:

    Opção 1
    Código:
    If IsNull(TxtNTT) Then
        MsgBox ("Você não preencheu o campo NTT.")
        TxtNTT.SetFocus
        TxtNTT.BackColor = 7852
        DoCmd.CancelEvent
        Exit Sub
    End If

    Opção 2
    Código:
    If Len(TxtNTT & "") = 0 Then
        MsgBox ("Você não preencheu o campo NTT.")
        TxtNTT.SetFocus
        TxtNTT.BackColor = 7852
        DoCmd.CancelEvent
        Exit Sub
    End If

    Opção 3 (comentar linhas para verificar erro)
    Código:
    If Len(TxtNTT & "") = 0 Then
        MsgBox ("Você não preencheu o campo NTT.")
        'TxtNTT.SetFocus
        'TxtNTT.BackColor = 7852
        'DoCmd.CancelEvent
        'Exit Sub
    End If

    Fica a sugestão.
    Caso se mantenha, poste base de dados com parte envolvida para podermos testar.
    Abraço

    Tuta
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 104
    Registrado : 17/05/2015

    Re: [Resolvido]Validação de Campo no formulário com runtime

    Mensagem  Tuta em Qui 14 Abr 2016, 20:52

    Amigão, boa tarde!

    Logo na primeira opção funcionou como eu queria.
    Muito obrigado pela ajuda mais uma vez.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Validação de Campo no formulário com runtime

    Mensagem  ahteixeira em Qui 14 Abr 2016, 21:22

    Olá Batista, obrigado pelo retorno.
    Os utilizadores do fórum agradecem.
    Abraço

      Data/hora atual: Dom 20 Ago 2017, 18:26