[Resolvido]comparar campos

Olá Pessoal

tenho esse código para Data funciona Certinho , gostaria de comparar dois campos Numero Inicial e Numero Final
Obs. ambos campos São texto e não numero


If DateDiff("d", Me.txtdatai, Me.txtdataf) < 0 Then
MsgBox "A Data Final não pode ser menor que a Data Inicial.", vbExclamation, "Mensagem"
Me.txtdataf.SetFocus
Exit Sub

Boa tarde. Se são números, porque não definir como número o campo?

No mais, para comparar os campos precisará converter para integer antes. Então fica assim:

If Cint(Me.SeuCampoInicio) < Cint(Me.SeuCampoFim) Then

Ola Marcelo David

coloquei assim , mas não deu lembrando são campos não acoplados coloquei formato como numero conforme você me orientou

If CInt(Me.txtInicio) < CInt(Me.txtFinal) Then
MsgBox "O Numero Final não pode ser menor que o Inicial.", vbExclamation, "Mensagem"
Me.txtFinal.SetFocus
Exit Sub
End If

Ah sim, basta inverter o sinal de comparação. Ponha assim:

If CInt(Me.txtInicio) > CInt(Me.txtFinal) Then
MsgBox "O Numero Final não pode ser menor que o Inicial.", vbExclamation, "Mensagem"
Me.txtFinal.SetFocus
Exit Sub
End If

Ola Marcelo David

Agora funcionou muito obrigado

Ola Marcelo David

desculpe esqueci o resolvido.

Opa! Grato pelo retorno!