Krijg een foutmeldin bij uitvoeren van vba

[lab4]

Als ik op een record klik in een dialoog venster en vervolgens op de knop dan gaat de onderste code in werking. De code moet het huidige dialoogvenster sluiten en het formulier frmTtp openen en het record (wat geselcteerd is in het dialoogvenster) weergeven. Nou geeft hij als foutmelding aan: Run-time error 3077, Syntax error (missing operator) in expression.

Weet iemand hoe ik dit moet oplossen?

robert


Private Sub Showrecord_Click()
'De geselcteerde record zoeken en dan het dialoogvenster sluiten

Dim rst As DAO.Recordset
Dim frmTtp As String

' De recordset van het formulier frmTtp opslaan

' Open het formulier
DoCmd.OpenForm "frmTtp", acNormal
Set rst = Forms!frmTtp.RecordsetClone



'De record van het geselecteerde IDSlotnummer zoeken
rst.FindFirst "IDSlotplanning= " & List4

'Stel de eigenschap Bookmark in om naar het gekozen record te gaan
Forms!frmTtp.Bookmark = rst.Bookmark

' Sluit het dialoogvenster
DoCmd.Close acForm, "GoToRecordDialog"


End Sub

 

[beheer25]

Als je in de VBA editor in de grijze balk links van je code een keer klikt verschijnt er een rood balletje. Als je dan de code aanroept vanaf het formulier kun je met <F8> regel voor regel door de code heen wandelen. Je kunt dan uitvogelen waar het probleem optreedt en het hopelijk verhelpen.


Grtz,

 

[lab4]

Ik weet in welke regel de fout zit maar het lukt me niet om er achter te komen wat de exacte fout is (de code is iets aangepast):

Private Sub GeefRecordWeer_Click()

'De geselecteerde record zoeken en dan het
dialoogvenster sluiten

Dim rst As DAO.Recordset

'De recordset van het formulier van het formulier
frmTtp opslaan
Set rst = Forms!frmTtp.RecordsetClone

'De record van de geselecteerde IDSlotplanning
zoeken
rst.FindFirst "ID(Slotplanning) =" & List8

'Stel de eigenschap Bookmark in om naar de
gekozen record te gaan
Forms!frmTtp.Bookmark = rst.Bookmark

'Sluit het dialoogvenster
DoCmd.Close acForm, "GoToRecordDialog"

End Sub

Hij loopt vast op de regel:

rst.FindFirst "ID(Slotplanning) =" & List8

Hierbij is de waarde List8 correct en is de foutmelding:

Run-time error '3077':
Syntax error (missing operator) in expression