VB in Access

A

Adriangh

Dim sqlbonhead As String
Dim Datain As Date
Dim Datasf As Date

Datain = Forms!CreareBonuri!DataInceput
Datasf = Forms!CreareBonuri!DataSfarsit

sqlbonhead = "SELECT Magazii.CodMagazie, IesiriFIFO.DataElib,
Proiecte.DenumirePR, Persoane.Sectia " & _
"FROM ((IesiriFIFO LEFT JOIN Magazii ON
IesiriFIFO.CodMagazie=Magazii.CodMagazie) INNER JOIN Proiecte ON
IesiriFIFO.NRPR=Proiecte.NrPR) INNER JOIN Persoane ON
IesiriFIFO.MarcaP=Persoane.MarcaP " & _
"WHERE(((IesiriFIFO.NrDocDL) = 0) And ((IesiriFIFO.DataElib)>= " &
FormatDateTime(Forms!CreareBonuri!DataInceput$, vbShortDate) & " And
(IesiriFIFO.DataElib)<=" & FormatDateTime(Forms!CreareBonuri!DataSfarsit,
vbShortDate) & "))" & _
"GROUP BY Magazii.CodMagazie, Proiecte.DenumirePR, Persoane.Sectia,
IesiriFIFO.DataElib;"

This is The code for Query.When I executed this code I was having some
errors like this:
Run-Time error '3075':
Syntax error in number in guery expresion(...).
I don't have any ideea whay or where is de problem for my code.I thank you
very much.
 
G

George Nicholson

Not sure if this will solve your 3075 problem, but if IesiriFIFO.DataElib is
a DateTime field, you need to include the # date delimiter when building the
criteria clause:

...."WHERE(((IesiriFIFO.NrDocDL) = 0) And ((IesiriFIFO.DataElib)>= #" &
FormatDateTime(Forms!CreareBonuri!DataInceput$, vbShortDate) & "# And .....

HTH,
 
Top