bu kodlar benim bilsgisyaarımda çalışıyor. Ama okulda iki bilgisayar da denedim hata verdi.

Bu kodlarda hata varmı

Private Sub Form_Load()
Calendar4 = date
End Sub

Denetime uyan kaydı sorgu üzerinden filtreleyerek halledebileceğimi sanıyorum.
Ama Calendar4=date neden hata veriyor

Private Sub Açılan_Kutu5_AfterUpdate()
' Denetime uyan kaydı bul.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[sınıf] = '" & Me![Açılan Kutu5] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub