compare two textboxes

[R17]

i have textbox txtfrdate and txttodate. i'd like to give a message whenever txttodate is less than txtfrdate.

how do i do that?

 

[bon011]

In case of character input:
you can do it this way:
if len(alltrim(thisform.txtfrdate.value))<len(alltrim(thisform.txtdate.value))
messagebox(....)
endif

Put this code in lost focus property of yours textboxes


In case of date input
if thisform.txtfrdate.value<thisform.txtdate.value
messagebox(....)
endif

 

[Mike Lewis]

R17,

IF THISFORM.txtfrdate.value >= THISFORM.txttodate.value
MESSAGEBOX(&quot;Here is my message&quot
ENDIF

Mike


Mike Lewis
Edinburgh, Scotland

http://www.ml-consult.demon.co.uk

 

[ramani]

Hi

The user can enter txtfrdate and txttodate
The user can enter txtfrdate only
The user can enter txttodate only
The user need not enter on both..

So the way to go is..

In the Forms Init event..
ThisForm.txtfrdate.Value = DATE()
ThisForm.txttodate.Value = DATE()

In the LostFocus of
ThisForm.txtfrdate
IF ThisForm.txtfrdate.Value > ThisForm.txttodate.Value
ThisForm.txttodate.Value = ThisForm.txtfrdate.Value
ENDIF

In the LostFocus of
ThisForm.txttodate
IF ThisForm.txttodate.Value < ThisForm.txtfrdate.Value
** either
ThisForm.txttodate.Value = ThisForm.txtfrdate.Value
NODEFAUT
** OR
=MESSAGEBOX(&quot;UnAcceptable Date value&quot;,0+16)
NODEFAULT
ENDIF


You can also force validation and set focus back, just before you start your report or before data update.



____________________________________________
Ramani - (Subramanian.G)

http://winnersoft.coolfreepages.com/

When you ask VFP questions, please add VFP version.