bu kodlar neden hata veriyor

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

Burada sanırım calendar4 adıyla bir activex denetimi kullanıyorsunuz. O denetimin diğer bilgisayarlarda olmaması gibi bir durum olabilir. Denetimin adının başka olma durumu da olabilir. Bence önce tasarım moduna geçip activexi kontrol edin.

Kolay gelsin.

Sayın Demiral;
Kullanığım takvim access'in kendi takvimi. Başka bir denetim kullanmayı her makineye yüklemek gerektiği için tercih etmedim.
hata mesajında mscomct2.ocx 2.0 dosyasına eksik başvuru diyor. Diğer makinelerde Access kurulurken eksik kurulmuş olabilirmi. Diğer denetimler bölümünde Takvim 11.0 var. Bunu ben eklemdim. Sanırım Accesin kendi takvimi

Access'in bazı sürümlerinde bu türden gariplikler oluyor. Mesela benim zamanında hazırladığım bir programdaki takvim denetimi Türkçe iken diğerinde İngilizce olmuştu. Bir tanesinde de yüklü olmadığı için denetim hata veriyordu. Bence siz direk olarak dll dosyasını da yükleyen bir eklenti yaparak olayı çözün. Winrar bu iş için biçilmiş kaftan..

Sayın Demiral;
hangi dll yi ekleyeceğimi nereye ekleyeceğimi, nasıl ekleyeceğimi hiç bilmiyorum.
Nasıl yapıldığını anlatan bir link var mı? Şimdi bir arama yapıcam
---------------------------------------------------------------
dll ekleme diye arama yaptım bişey çıkmadı

"mscomct2.ocx" eklentisini "C:\WINDOWS\system32" klasörüne kopyalayın başlat çalıştır a
yazıp entera basın