Hi,
Using this code in a project with two editfields. Code in editfield1
LostFocus. Run. Enter date (8/8) in editfield1 then tab. The result
is the msgbox TWICE and NEVER moving to editfield2. Looks like a BUG
to me. Seems to me that the focus should move, with the tab, to the
next window before getting the msgbox.
Dim d As New date// Add NEW
Dim b As boolean
b=parsedate(editfield1.text,d)
// Check the parsed date for incorrect entry.
If b <> True Then
MsgBox "Invalid Date format!"
// editfield1.SetFocus//Go back to fix date
Else
If d.DayOfWeek <> 7 Then // 7 is Saturday
MsgBox "That is not a Saturday"
editfield1.text=d.ShortDate
Else
// was a Sat., update display to a longdate
editfield1.text=d.LongDate
End If
End If
Tia,
Robert Poland
[EMAIL PROTECTED]
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
