Set Rs = Currentdb.openrecordset(sql1) Hatası

1 2
01/06/2018, 13:09

sidd

Merhaba,

yeni kayıt aç dediğimde  Set rs = CurrentDb.OpenRecordset(SQL1)  hatası veriyor.
bir turlu cozemedim, ekteki dosyayı kontrol edip, cozum bulabilir misiniz?

not : kayıt numarası olarak , verilen son numara+1 olarak düzenlemeye çalıştım,
01/06/2018, 14:10

C*e*l*o*y*c*e

Merhaba
Ben hata göremedim,yeni kayıt değince sıkıntı yok sırano alıyor,biraz daha açarmısınız.
01/06/2018, 14:36

sidd

(01/06/2018, 14:10)C*e*l*o*y*c*e yazdı: Merhaba
Ben hata göremedim,yeni kayıt değince sıkıntı yok sırano alıyor,biraz daha açarmısınız.

Ben de çalışmıyor, direkt Cvp: Set Rs = Currentdb.openrecordset(sql1) satırına gelip, kesiliyor.
Reference lardaki ayarlarda bir sıkıntı olabilir mi?
kontrol edebilir misiniz?


01/06/2018, 15:24

sidd

(01/06/2018, 14:36)sidd yazdı:
(01/06/2018, 14:10)C*e*l*o*y*c*e yazdı: Merhaba
Ben hata göremedim,yeni kayıt değince sıkıntı yok sırano alıyor,biraz daha açarmısınız.

Ben de çalışmıyor, direkt Cvp: Set Rs = Currentdb.openrecordset(sql1) satırına gelip, kesiliyor.
Reference lardaki ayarlarda bir sıkıntı olabilir mi?
kontrol edebilir misiniz?


Bu arada  gerekir mi bilmiyorum ama,  sistem detaylarım  windows 10 İngilizce,  Office 2016 İngilizce,
01/06/2018, 15:26

C*e*l*o*y*c*e

Referanslardan değil,hatayı yeni gördüm,Kaydete basınca çıkıyor,sin önce yeni kayıta demişsiniz,
sanırım son otomatik sıra numarası yapacaksınız,
bende şöyle bir kod var onu kendinize uyarlayabilirsiniz..


A1 = DMax("ID", "TBL_KISILER")
If IsNull(A1) Then A1 = 0
Me.IDmetintexti = A1 + 1
01/06/2018, 15:31

ozanakkaya

Sıra numarası alma olayı tablodaki FileNo alanındaki veriye göre hesaplanıyor. Vba'daki SQL1 sorgusu, tüm satırlarda FileNo alanı boş olduğu için çalışmıyor. Bu yüzden hata ile karşılaşıyorsunuz. 
Sorguda, FileNo alanına is not null ölçütü ekleyin düzelir.
1 2