32 ve 64 bit uyumu ile ilgili sitede arama yaparsanız çok sayıda örnek ve açıklama mevcut.

Hata1 için kodunuzu

Dim ctl As Control

    For Each ctl In Me.Controls

şeklinde tanımlamalısınız ve Microsoft Forms 2.0 Object Librarynin ekli olduğundan emin olmalısınız.

Hata2 için ise kodunuzu

Private Sub DtDonem_AfterUpdate()

Dim txtdonem As Date

Dim OgRs As New ADODB.Recordset

Dim sOrGu As String, x As Date

x = DtDonem

If IsNull(DtDonem) Then Exit Sub 'Tarih alanı boşsa çık

sOrGu = "SELECT tblOgretmen.Ogretmen_ID, tblOgretmen.ogretmenadisoyadi, tblOgretmen.Nobet_Tutar, * FROM tblOgretmen WHERE (((tblOgretmen.Nobet_Tutar)=True));" 'öğretmenler tablosundan öğretmen seç

ADtDonem = Format([Forms]![FrmNobet]![DtDonem], "yyyymm") 'Dönem Formatla

txtdonem = DateSerial(Left(ADtDonem, 4), Mid(ADtDonem, 5), 1) 'Tarih

Me.Filter = "Donem=" & CLng(txtdonem) 'sadece ilgili dönemi göster

Me.FilterOn = True

RenkGor (txtdonem) 'hy___cuma,ct,pazar günleri kırmızı, aydaki gün sayısı kadar metin kutusu görünür

Call nbetsay

Call belleticisay

Me.acogretmen.Requery

Me.acogretmen1.Requery

Me.Metin640 = CLng(x)

End Sub

olaark düzeltin. DateSerial, Left, Right, Mid gibi fonksiyon kullanımınlarını da iyi çalışın sizin kullandığınız gibi kullanılmazlar.