complile error bij linken formulieren

[Spina]

Ik probeer in een formulier via een actieknop een ander formulier te openen. de relatie is gelegd via een ID in beide tabellen. heb de knop ook aangemaakt via de wizzard. In VBA heb ik de volgende code opgenomen

Private Sub Form_Open(Cancel As Integer)
'set the default to the current patient in het relatie formulier

If IsOpen("frm_patient") Then
patientnummer.DefaultValue = Forms!frm_patient!patientnummer
End If

End Sub

toch krijg ik de fout melding compile error, sub or function not defined.

Wie kan me helpen

 

[Hooija]

Volgens mij moet dat zoiets als onderstaande code zijn

If IsOpen("frm_patient") Then
stLinkCriteria = "[patientnummer]=" & "'" & Me![patientnummer] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If

Maak van de stDocName het formulier dat je wil openen