[octapus]

καλημέρα
ευχαριστώ πολύ γιώργο
δουλέυει μια χαρά
προσπαθώ να καταλάβω πως δουλεύει
αν έχεις χρόνο και την όρεξη να μου πεις μερικά πράγματα
If IsDate(Me.txtFrom) Then
strF = "clng([DateGenPrwtokol])>=" & CLng(Me.txtFrom)
αν κατάλαβα το clng μετατρέπει τις ημερομηνίες σε αριθμούς
το strF τι ορίζει;

End If
If IsDate(Me.txtTo) Then
If strF <> "" Then strF = strF & " And "
strF = strF & "clng([DateGenPrwtokol])<=" & CLng(Me.txtTo)
End If
DoCmd.OpenForm "FrmPrwtokolloFullo", acFormDS, , strF

ευχαριστώ πολύ

παναγιωτης