this is what I got until now:
Dim dteBeg As Date, dteEnd As Date
If IsDate(Me.txtBegDate__txtStartDate) Then
dteBeg = Me.txtBegDate__txtStartDate
Else
dteBeg = DMin("CreatedDate", "qrySearchCalDat", [])
End If
If IsDate(Me.txtEndDate) Then
dteEnd = Me.txtEndDate
Else
dteEnd...