İ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