Set Rs = Currentdb.openrecordset(sql1) Hatası

Set Rs = Currentdb.openrecordset(sql1) Hatası - Baskı Önizleme

+- 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

Cvp: Set Rs = Currentdb.openrecordset(sql1) Hatası - sidd - 01/06/2018

(01/06/2018, 15:31)ozanakkaya yazdı: 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.

Ozan Bey teşekkürler, çok yeniyim Access de, nasıl ekleyecem, yardımcı olabilir misiniz rica etsem?

Cvp: Set Rs = Currentdb.openrecordset(sql1) Hatası - ozanakkaya - 01/06/2018

İki cevap arası 2 dakika, iki dakika uğraşarak Access öğrenemezsiniz.

SQL1 = "SELECT FileNo, ImpExp, TransOpt, LclFcl, Left([FileNo],InStr(1,[FileNo],'-')-1) AS GFir, Format(Mid([FileNo],InStr(1,[FileNo],'-')+1),'0000000') AS GKNo FROM tblDosyaTakip GROUP BY FileNo, ImpExp, TransOpt, LclFcl, Left([FileNo],InStr(1,[FileNo],'-')-1), Format(Mid([FileNo],InStr(1,[FileNo],'-')+1),'0000000') HAVING ((Not (FileNo) Is Null)) ORDER BY Format(Mid([FileNo],InStr(1,[FileNo],'-')+1),'0000000')"

Ayrıca, yapı itibariyle,

Select Case Me.cbo_LclFcl                                 

Case 1

GKLclFcl = "LCL"

Case 2

GKLclFcl = "FCL"                                 

End Select

kodunun

Select Case Me.cbo_LclFcl                                

Case 1

GKLclFcl = "/LCL"

Case 2

GKLclFcl = "/FCL"

End Select

Kodu ile.

Me.txt_FileNo = GKTransOpt & GKImpExp & yil & "-" & ay & Format(GSonSayimiz + 1, "000000") & "/" & GKLclFcl

kodunun da

Me.txt_FileNo = GKTransOpt & GKImpExp & yil & "-" & ay & Format(GSonSayimiz + 1, "000000") & GKLclFcl

kodu ile değiştirilmesi gerekli

Cvp: Set Rs = Currentdb.openrecordset(sql1) Hatası - sidd - 01/06/2018

(01/06/2018, 15:46)ozanakkaya yazdı: İki cevap arası 2 dakika, iki dakika uğraşarak Access öğrenemezsiniz.

SQL1 = "SELECT FileNo, ImpExp, TransOpt, LclFcl, Left([FileNo],InStr(1,[FileNo],'-')-1) AS GFir, Format(Mid([FileNo],InStr(1,[FileNo],'-')+1),'0000000') AS GKNo FROM tblDosyaTakip GROUP BY FileNo, ImpExp, TransOpt, LclFcl, Left([FileNo],InStr(1,[FileNo],'-')-1), Format(Mid([FileNo],InStr(1,[FileNo],'-')+1),'0000000') HAVING ((Not (FileNo) Is Null)) ORDER BY Format(Mid([FileNo],InStr(1,[FileNo],'-')+1),'0000000')"

Ayrıca, yapı itibariyle,

Select Case Me.cbo_LclFcl                                 

Case 1

GKLclFcl = "LCL"

Case 2

GKLclFcl = "FCL"                                 

End Select

kodunun

Select Case Me.cbo_LclFcl                                

Case 1

GKLclFcl = "/LCL"

Case 2

GKLclFcl = "/FCL"

End Select

Kodu ile.

Me.txt_FileNo = GKTransOpt & GKImpExp & yil & "-" & ay & Format(GSonSayimiz + 1, "000000") & "/" & GKLclFcl

kodunun da

Me.txt_FileNo = GKTransOpt & GKImpExp & yil & "-" & ay & Format(GSonSayimiz + 1, "000000") & GKLclFcl

kodu ile değiştirilmesi gerekli

Teşekkürler yine de ilginiz için, ama olmadı, maalesef.

Cvp: Set Rs = Currentdb.openrecordset(sql1) Hatası - ozanakkaya - 01/06/2018

Merhaba,
Yaptığınız son düzenlemeyi Site Kurallarına uygun olarak ekleyin.

Ayrıca hangi işlemi yaptıktan sonra bu hata ile karşılaştığınızı da belirtin.

Cvp: Set Rs = Currentdb.openrecordset(sql1) Hatası - ozanakkaya - 19/06/2018

Konu taşınmıştır.