Predmet:Re: problem sa datumom u vba

---

Dim DatumS as string

DatumS="#" & Format(Me.datum,"mm-dd-yyyy") & "#"

Uslov="SELECT * FROM tblPK WHERE periodD=" & Datums

ovako hoće

hvala zxz

a hoće i ovako pomoću ove funkcije

Function SQLDate(varDate As Variant) As String
'Purpose: Return a delimited string in the date format used natively by JET SQL.
'Argument: A date/time value.
'Note: Returns just the date format if the argument has no time component,
' or a date/time format if it does.
'Author: Allen Browne. allen@allenbrowne.com, June 2006.
If IsDate(varDate) Then
If DateValue(varDate) = varDate Then
SQLDate = Format$(varDate, "\#mm\/dd\/yyyy\#")
Else
SQLDate = Format$(varDate, "\#mm\/dd\/yyyy hh\:nn\:ss\#")
End If
End If
End Function

e jesam se pošteno namučio

pozdrav