[VBA] MsgBox probleempje

[Lief Adje]

Deze code levert

code:

Private Sub knpWissen_Click()
'On Error GoTo Err_knpWissen_Click

If MsgBox("U staat op het punt alle plaatsingsgegevens te verwijderen. Wilt u dat?", vbYesNo) = vbYes Then  'Message box met vraag en mogelijkheid tot cancel
    DoCmd.OpenQuery "qriOpschonen"
End If

If MsgBox("U staat op het punt alle inschrijvingsgegevens te verwijderen. Wilt u dat?", vbYesNo) = vbYes Then  'Message box met vraag en mogelijkheid tot cancel
    DoCmd.OpenQuery "qriOpschonen2"
End If

If MsgBox("Wilt u de specifieke gegevens voor deze keuzemodule periode van deze studenten verwijderen?", vbYesNo) = vbYes Then 'Message box met vraag en mogelijkheid tot cancel
    DoCmd.OpenQuery "qriOpschonen3"
    DoCmd.OpenQuery "qriOpschonen4"
    DoCmd.OpenQuery "qriOpschonen5"
    DoCmd.OpenQuery "qriOpschonen6"
    MsgBox("De Specifieke student gegenvens: &vbcrlf& Lesperiode &vbcrlf& Inschrijfdatum &vbcrlf& Minimum aan studiepunten &vbcrlf& Maximaal aantal sydiepunten", vbOKOnly) = vbOK
End If
End Sub

deze fout op (de laaste MsgBox)

Compileer fout:
Functie-oproep aan de linkerkant van de toewijzijn moet een Variant of Object als resultaat geven

wat doe ik fout ik zit hier al een hele tijd mee te kloten

[Lorn]

Probeer dit eens:

MsgBox("De Specifieke student gegenvens: + & vbCrLf & " Lesperiode " & vbCrlLf & " Inschrijfdatum " & vbCrLf & " Minimum aan studiepunten " & vbCrLf & " Maximaal aantal sydiepunten", vbOKOnly)

[whoami]

Compilatiefouten moet je eigenlijk zelf kunnen oplossen.
De compiler geeft al een mooie error message.

Je schrijft

code:

MsgBox('blaat',..) = vbOk

Kijk eens goed, ...
en denk eens goed na, die fout moet je echt wel zelf zien hoor.
Je hebt de fout al gelocaliseerd (de compiler heeft dat gedaan), dus het is een kwestie van goed kijken...