SQL statement op basis van meerdere criteria

[patRRick900RR]

Beste mensen, ik probeer een SQL (strSQL) statement uit te breiden met een tweede criterium, nl. [Onderhoudsjaar], dit criterium komt vanuit een inputbox, die ik strOnderhoudsjaar heb genoemd. Helaas krijg ik de code niet werkend. Inmiddels heb ik alle combinaties aanhalingstekens, dubbele aanhalingstekens al geprobeerd. Wie kan mij helpen? En heeft er iemand een link naar een handleiding over de syntax van dergelijke sql statements?

Thanks!

'Procedure om onderhoudsregels te schrijven naar qry_onderhoudsregels
'Stelt DAO in.
Dim iPFX As DAO.Database
Set iPFX = CurrentDb
Dim strSQL As String
Dim strOnderhoudsjaar As Integer
Dim rst As DAO.Recordset, rst2 As DAO.Recordset
strOnderhoudsjaar = InputBox("Van welk jaar wilt u het onderhoud invoeren?")


strSQL = "SELECT * FROM qry_onderhoudsregels WHERE [Locatienaam] ='" & Me.Locatienaam & "'" And [Onderhoudsjaar] = "strOnderhoudsjaar" '"

 

[michaelvdnet]

Allereerst waarom noem je het strOnderhoudsjaar als je het als Integer defineerd, ten 2e je syntax is fout. Probeer dit:

strSQL = "SELECT * FROM qry_onderhoudsregels WHERE [Locatienaam] ='" & Me.Locatienaam & "' And [Onderhoudsjaar] = '" & strOnderhoudsjaar & "'"

 

[patRRick900RR]

Bedankt Michael, bedankt voor je info. Allereerst strOnderhoudsjaar verandert in intOnderhoudsjaar, helaas werkt de code met jouw syntax niet.

strSQL = "SELECT * FROM qry_onderhoudsregels WHERE [Locatienaam] ='" & Me.Locatienaam & "'" And [Onderhoudsjaar]='"& intOnderhoudsjaar &"'"

Ik krijg de melding: Complile Error: Expected: expression.

Nog suggesties? Alvast bedankt!

 

[michaelvdnet]

strSQL = "SELECT * FROM qry_onderhoudsregels WHERE [Locatienaam] ='" & Me.Locatienaam & "'[u]"[/u] And [Onderhoudsjaar]="& intOnderhoudsjaar &""

wat doet die " daar? (die breekt de syntax)

Dit is het effect van die ene dubbele comma visueel uitgebeeld:



(Is alleen heel erg klein, klikken om te vergroten)

correcte regel:

strSQL = "SELECT * FROM qry_onderhoudsregels WHERE [Locatienaam] ='" & Me.Locatienaam & "' And [Onderhoudsjaar]="& intOnderhoudsjaar

 

[patRRick900RR]

Thanks Michael! Heb ik overheen gelezen, de code werkt nu! Nogmaals dank.