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

2 participantes

    Não avançar do campo sem corrigir a condição

    avatar
    anvs
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 75
    Registrado : 26/06/2012

    Não avançar do campo sem corrigir a condição Empty Não avançar do campo sem corrigir a condição

    Mensagem  anvs 1/11/2021, 21:31

    Vivam!

    Tenho em OnCurrent de um formulário e em After Update do campo, o seguinte:

    Private Sub DtLimiteProj_AfterUpdate()
    If DtLimiteProj < DtEntradaProj Then
    MsgBox "A data limite para a entrega do projeto tem de ser a mesma ou posterior à data da entrada"
    End If
    End Sub

    A mensagem de erro funciona bem nas condições colocadas. Contudo, após o Enter passa para o campo seguinte.
    O que pretendo é que o cursor fique 'retido' no campo DtLimiteProj, se a data for anterior à DtEntradaProj, enquanto a condição não for cumprida.
    Já tentei com SetFocus mas não resultou.

    Agradeço qualquer ideia.
    Antecipadamente agradecido.

    anvs
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3329
    Registrado : 22/11/2016

    Não avançar do campo sem corrigir a condição Empty Re: Não avançar do campo sem corrigir a condição

    Mensagem  DamascenoJr. 1/11/2021, 22:40

    O evento correto é "Antes de Atualizar".

    Código:
    If DtLimiteProj < DtEntradaProj Then
    MsgBox "A data limite para a entrega do projeto tem de ser a mesma ou posterior à data da entrada"
    Cancel = True 'cancelando a atualização do campo com o valor que está, ou seja, não permitindo perder foco
    End If

    Não esqueça de dar o tópico como resolvido!


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    anvs
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 75
    Registrado : 26/06/2012

    Não avançar do campo sem corrigir a condição Empty Não avançar do campo sem corrigir a condição

    Mensagem  anvs 1/11/2021, 22:49

    DamascenoJr

    Agradeço a sua pronta resposta.

    Colocando a sua solução em AfterUpdate e em OnCurrent, acontece exatamente o mesmo: avança para o campo seguinte e deixa ficar uma data que não cumpre a condição.

    anvs
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3329
    Registrado : 22/11/2016

    Não avançar do campo sem corrigir a condição Empty Re: Não avançar do campo sem corrigir a condição

    Mensagem  DamascenoJr. 1/11/2021, 22:56

    Antes de Atualizar/BeforeUpdate


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    anvs
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 75
    Registrado : 26/06/2012

    Não avançar do campo sem corrigir a condição Empty Não avançar do campo sem corrigir a condição

    Mensagem  anvs 1/11/2021, 23:16

    Perfeito!

    Muito obrigado, pela pronta resposta e pela solução!
    anvs
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3329
    Registrado : 22/11/2016

    Não avançar do campo sem corrigir a condição Empty Re: Não avançar do campo sem corrigir a condição

    Mensagem  DamascenoJr. 2/11/2021, 12:17

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 30/11/2021, 00:03