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]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 : 65
    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

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3214
    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 : 65
    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.

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3214
    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: Qua 07 Dez 2016, 18:17