[Resolvido]KM Inicias Não podem ser menores que os KM Finais

Eu supostamente já tinha a funcionar, mas deixou de funcionar

Irei disponibilizar a base de dados só com esta parte, ele já tem um limite de KM ou seja, os Finais não podem passar +1000 dos inicias, mas só mesmo os inicias menor que os finais é que não funciona

Alguma solução?

Obrigado

Base de Dados Donwload

Bom dia diogoisaias21

Veja se esta conforme sua necessidade.

perfeito,

Só gostava de saber o porque do outro código estar a dar errado

Obrigado



o código que tinha antes era este:

Código:

If Me.KMFinal < Me.KMInicial Or Me.KMInicial = "" Then
MsgBox "KM Inicial não pode ser menor que o Inicial.", vbInformation, "Aviso"
Me.KMFinal = ""
Me.NCODU.SetFocus 'No lugar do * coloque algum controle que não seja bloqueado e que não seja requerido (Obrigação de preenchimento).
Me.KMFinal.SetFocus
Else

diogoisaias21 que bom que resolveu.

Neste código ele esta comparando os valores como exemplo abaixo.

KMInicial (Como Valor Numérico)

KMFinal (Como valor Texto)

Então todas as vezes dava como o Inicial era maior que o final.

O que eu fiz foi criar uma variável do tipo "Long" (Valor numérico inteiro) para guardar os valores dos campos e depois a mesma formula para compara-los.

Código:

Dim VarKMIni As Long
Dim VarKMFin As Long
VarKMIni = Me.KMInicial
VarKMFin = Me.KMFinal
If VarKMIni > VarKMFin Then
MsgBox "KM INICIAL MENOR QUE O FINAL", vbCritical
Me.KMFinal = Null
Me.KMInicial.SetFocus
Me.KMFinal.SetFocus
Else
End If

Não se esqueça de marcar o resolvido

obrigado pelo esclarecimento