[Resolvido]Como alertar e continuar no campo quando o usuário digitar uma data inferior a data do ultimo registro

Bom dia pessoal !! gostaria de uma ajuda de vocês:

Criei um formulário simples com dois campos:

Código       Data
  1        01/01/2023
  2        02/01/2023
  3        03/01/2023
  4        01/01/2023 (caso o usuário digite uma data inferior a data anterior (03/01/2023) apareça uma mensagem de alerta, e o cursor volte ao campo data até o usuário digitar uma data posterior a anterior).

Aguardo e obrigado.

Cássio Oliveira

Bom dia,
No evento antes de atualizar do campo que receberá a data, verifique com a função DLast se a data inserida é maior que a data retornada pelo DLast, se não for, exiba uma msgbox com a mensagem que preferir e use o Cancel - True para manter o campo em foco e não salvar a data indesejada.

Boa tarde Marcelo, obrigado pela ajuda, mas como eu não sou programador, tenho dificuldades, teria como você escrever o código pra mim por favor.

Aguardo e agradeço.

Poste aqui o seu banco para fazermos para você ou detalhe o nome dos objetos (todos envolvidos) que também montamos o código aqui.

Segue anexo o arquivo

Att.:


Cássio

não sei se o anexo foi,

o nome da tabela é mercadorias

nome dos campos - tipo
codigo número
data data/hora


formulário com os campos - modo padrão (continuo)

codigo
data

No evento antes de atualizar do campo Data, ponha o código abaixo:

Código:

If DLast("data_x","mercadorias") < Me.Data_X Then
  MsgBox "Data deve ser posterior a última data registrada!", vbExclamation, "Atenção"
  Cancel = True
End If

Os campos campos data da tabela e do formulário, alterei o nome para data_x.
Sugiro que no seu sistema você altere também, pois poderá gerar conflitos no Access usar
objetos com nomes Data, pois se trata de uma palavra reservada.

Se não der certo, tente anexar novamente o arquivo, compactando em ZIP.

Marcelo, eu não consigo anexar o arquivo, e ele só tem 23kb, dá uma mensagem  que o arquivo nao é valido......

Meu e-mail é cassiojoseoliveira@gmail.com se voce alguem puder me retornar pelo e-mail eu o arquivo, porque nao nao sei porque por aqui eu nao conseguir anexar o arguivo, mesmo zipado.

Olá,
rapaz, não sei onde eu estava com a cabeça.
Inverti a comparação das datas...

O correto é verificar se a última data cadastrada é maior que a data que está sendo inserida.
Então, basta alterar o sinal de compração. Ficará assim o código:

Código:

If DLast("data_x","mercadorias") > Me.Data_X Then
  MsgBox "Data deve ser posterior a última data registrada!", vbExclamation, "Atenção"
  Cancel = True
End If

Valeu Marcelo, muito obrigado pela ajuda.

Cássio Oliveira

Opa, maravilha.
Deu certo então? Se sim, marque como resolvido o tópico.

Como não houve retorno a minha mensagem anterior, concluo que o tópico esteja resolvido. Não esquecer das próximas vezes você
mesmo marcar como resolvido.
*Se não estiver resolvido, por favor, reabra.