werk op een agenda en wil nu een projecten open op id

[dinoshop]

werk met een agenda kalender en daar in staan afspraken zoals je kan zien in voorbeeld .
als ik klik op de afspraak opent hij ook mooi maar altijd de eerste id nummer ik wil dat hij opent met id van de afspraak.


heb deze code maar werkt niet hij staat nu ff uit .
''DoCmd.OpenForm "FrmProjectenInvoer", , , "[projectid]=" & Nz(ProjectID, 0), acDialog, vDate + conFirstTime
hij geeft aan dat nz(projectid) niet goed is.

Public Sub OpenProjectenForm(vDate As Date)

 ''DoCmd.OpenForm "FrmProjectenInvoer", , , "[projectid]=" & Nz(ProjectID, 0), acDialog, vDate + conFirstTime
 
    DoCmd.OpenForm "frmProjectenInvoer", , , , , acDialog, vDate + conFirstTime   '
    If gDummy = 1 Then
        ShowMonthAppts Parent.txtDate
        Parent.frmCalendarMonth.Requery
    End If

End Sub