Set Rs = Currentdb.openrecordset(sql1) Hatası

1 2
01/06/2018, 15:35

sidd

(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?
01/06/2018, 15:46

ozanakkaya

İ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
01/06/2018, 17:36

sidd

(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.
01/06/2018, 17:51

ozanakkaya

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.
19/06/2018, 10:18

ozanakkaya

Konu taşınmıştır.
1 2