Skip to main content

AccessTr.neT


Referans kütüphanesi ve bit sorunlarını nasıl aşarız

Referans kütüphanesi ve bit sorunlarını nasıl aşarız

#1
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.
.rar PANSİYON PROGRAMI GÜNCEL.rar (Dosya Boyutu: 716,95 KB | İndirme Sayısı: 3)
Son Düzenleme: Dün, 10:26, Düzenleyen: SeferŞANLI.
Cevapla
#2
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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task