By the way the other option is to change the code to this
sub onSearchDate( oEv )
dim dtSearch
dim oForm
oForm = oEv.Source.Model.Parent
dtSearch= oForm.getByName( "dtDateFilter" )
dtStr = dtSearch.date
oForm.Filter = "startDate = " & "{D '" & left( dtStr, 4 ) & "-" & mid(
dtStr, 5, 2 ) & "-" & right( dtStr, 2 ) & "' }"
oForm.ApplyFilter = True
oForm.Reload
end sub
Drew
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
