bu kodlar benim bilgisayarımda çalışıyor ama

[herdogan]

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


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

 

[modalı]

Sayın herdogan,

Ne gibi bir hata üretiyor kodlar?


İyi çalışmalar

 

[herdogan]

Private Sub Form_Load()
Calendar4 = date
End Sub

form açılışında debug açılıyor kodlar bölümünde date işaretli geliyor
diğerinin hangi yerini hatalı gösterdiğini hatırlamıyorum. Benim bilgisayarda çalışıyor. Şimdi bu bölümün güncellemesini sorgu üzerinden yapcam.Heralde çalışır