(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?

İ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, 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.

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.

Konu taşınmıştır.