+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Set Rs = Currentdb.openrecordset(sql1) Hatası (/konu-set-rs-currentdb-openrecordset-sql1-hatasi.html)
Sayfalar:
1
2
Set Rs = Currentdb.openrecordset(sql1) Hatası - sidd - 01/06/2018
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,
Cvp: Set Rs = Currentdb.openrecordset(sql1) Hatası - C*e*l*o*y*c*e - 01/06/2018
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.
Cvp: Set Rs = Currentdb.openrecordset(sql1) Hatası - sidd - 01/06/2018
(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?
![[Resim: do.php?imgf=152785291044941.png]](https://accesstr.net/resim/do.php?imgf=152785291044941.png)
Cvp: Set Rs = Currentdb.openrecordset(sql1) Hatası - sidd - 01/06/2018
(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,
Cvp: Set Rs = Currentdb.openrecordset(sql1) Hatası - C*e*l*o*y*c*e - 01/06/2018
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
Cvp: Set Rs = Currentdb.openrecordset(sql1) Hatası - ozanakkaya - 01/06/2018
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.