+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Soruları ve Cevapları (https://accesstr.net/forum-access-sorulari-ve-cevaplari.html)
+--- Konu Başlığı: Referans kütüphanesi ve bit sorunlarını nasıl aşarız (/konu-referans-kutuphanesi-ve-bit-sorunlarini-nasil-asariz.html)
Referans kütüphanesi ve bit sorunlarını nasıl aşarız - SeferŞANLI - 12/09/2025
Eklediğim programda versiyon ve sürümden kaynaklı kütüphane ve tanımları hatası alıyorum. Referans kütüphanelerinde eksikliklerden kaynaklı sanırım.
* Örneğin nöbet işleri formunda öğretmen nöbet kısmında sürekli hata alıyorum.
Bu konuda programın versiyonlarda ve 32 bit ve 64 bit te stabil çalışmasını nasıl aşabilirim?
Referans kütüphane sorununu nasıl aşabilirim? Şimdiden teşekkür ederim.
RE: Referans kütüphanesi ve bit sorunlarını nasıl aşarız - atoykan - 12/09/2025
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.ControlsHata2 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