(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ı:

For 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

Kodu Seç

Kodu Kopyala

dikkat ederseniz bir önceki döngüde her satıra " union all SELECT  otomatik olarak ekleniyor oysa ilk satırda union all olmaz hata verir