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.