Skip to main content

AccessTr.neT


Set Rs = Currentdb.openrecordset(sql1) Hatası

Set Rs = Currentdb.openrecordset(sql1) Hatası

#7
(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?
Cevapla
#8
İ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
Cevapla
#9
(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.
Cevapla
#10
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.
Cevapla
#11
Konu taşınmıştır.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task