Andrew Jensen wrote:
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
this works... but just thinking ahead here... where is it controlled
that the field is short date? It's not controlled on the form itself (I
tested) and it is not controlled by an underlying field 'cause there
isn't one. obviously, by using left, mid, and right, we are expecting to
not have the format change on us.
I'm learnin' here :)
thanks!
WalterAM
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
