Format Ημερομηνίας

[Dangel82]

Δημήτρη καλησπέρα,

ρίξε μια ματιά στο παρακάτω:

Function SQLDate(vDate As Variant) As String
        If IsDate(vDate) Then
            SQLDate = Format$(vDate, "mm\/dd\/yyyy")
        End If
    End Function

Dim varWhere As Variant
If Me.fromdeldate > "" Then
    varWhere = varWhere & "[DEL_DATE] >=#" & SQLDate(Me.fromdeldate) & "# AND "

Αυτό θα σου λύσει το θέμα σου με τις αναζητήσεις..


Φιλικά, Άγγελος