VB scriptje met een fout melding

[Jordy J]

Heb volgende code maar deze geeft een fout melding. zie plaatje.

Private Sub Knop12_Click()
On Error GoTo Err_Knop12_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "AU_Invoer-gegevens Query"

stLinkCriteria = "[AU_resultaten_ID]= " & Me![AU_resultaten_ID] & " And [Hoofd categorie]= " & Me![T set-up]

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Knop12_Click:
Exit Sub

Err_Knop12_Click:
MsgBox Err.Description
Resume Exit_Knop12_Click



Wie heeft een oplossing voor mij,
Alvast bedankt chris

 

[OctaFish]

Dit:

stLinkCriteria = "[AU_resultaten_ID]= " & Me![AU_resultaten_ID] & " And [Hoofd categorie]= '" & Me![T set-up] & "'"

Tekstfilters moet je tussen quootjes zetten. Omdat een dubbel aanhalingsteken een beetje lastig is, gebruik je in dit geval een enkel quootje.