(29/03/2020, 01:07)feraz yazdı: sql = Mid(SqlStn, 11) buradaki 11 yerine xStnSay +1 olması gerekmiyormu sayma için.Önceki mesajlardada 11 olarak kalmış.burada 11 ilk union all kısmını atlamak için
(28/03/2020, 22:48)berduş yazdı:dikkat ederseniz bir önceki döngüde her satıra " union all SELECT otomatik olarak ekleniyor oysa ilk satırda union all olmaz hata verirFor x = 1 To xStnSay
SqlStn = SqlStn & " union all SELECT Nz(SplitVeriBul([Alan1]," & x - 1 & "),'') AS [HstStn] from tablo1 " & _
" where Nz(SplitVeriBul([Alan1]," & x - 1 & "),'')<>''" & vbCrLf
Next x