Rapport maken op basis van twee zoekfilters in formulier

[hippetitus]

Geachte forumleden,

Ik probeer via een formulier, waarin twee zoekfilters op staan, een rapport te openen die dan weer die zoekcriteria meeneemt.

Achter knop23 zit een VBA code:

Private Sub Knop23_Click()
On Error GoTo Err_Knop23_Click

Dim stDocName As String
Dim strWhere1 As String
Dim strWhere2 As String

stDocName = "objecten"

strWhere1 = "projectnaam=" & CStr(Me![kiesproject])
strWhere2 = strWhere1 & "OR leverancier= & CStr(Me![kiesleverancier]) "

DoCmd.OpenReport stDocName, acPreview, , strWhere2

Exit_Knop23_Click:
Exit Sub
Err_Knop23_Click:
MsgBox Err.Description
Resume Exit_Knop23_Click

End Sub


Ik krijg een fout melding en weet er geen raad mee. Mijn dank zal groot zijn als iemand mij met dit probleem kan helpen .

Bekijk bijlage Database191.zip

 

[OctaFish]

Dat de code het niet doet is vrij logisch, want er zitten een paar foutjes in (nog afgezien van het feit dat je code niet is opgemaakt met de CODE knop ). Als je de code afvangt in een Inputbox, zie je dat deze code wordt gegenereerd in strWHERE2:

projectnaam=3OR leverancier= & CStr(Me![kiesleverancier])

En daarin zitten minstens 3 fouten:
1. geen spatie tussen (in het voorbeeld) 3 en OR
2. De variabele leverancier laat de VBA code zien, niet de waarde.
3. Je gegevenstypes komen niet overeen: leverancier is een tekstveld, en je behandelt het als een numeriek veld