AccessTr.neT

(16/01/2020, 21:09)berduş yazdı: [ -> ]Dosyayla kısa vadede yani bu akşam ilgilenebilme ihtimalim)

Acelesi yok Üstad vaktin olunca

Do Until rs.EOF = True           

degerler = degerler & ", '" & rs.Fields(0) & "'"     

rs.MoveNext     

Loop

kodunu aşağıdaki kodla değiştirip dener misiniz?
Not: deneme imkanım olmadı sadece teorik

Do Until rs.EOF = True           

degerler = degerler & ", '" & rs.Fields(1)  & rs.Fields(2)  & rs.Fields(3) & "'"     

rs.MoveNext     

Loop

(16/01/2020, 21:20)berduş yazdı: [ -> ]

Do Until rs.EOF = True           

degerler = degerler & ", '" & rs.Fields(0) & "'"     

rs.MoveNext     

Loop

kodunu aşağıdaki kodla değiştirip dener misiniz?
Not: deneme imkanım olmadı sadece teorik

Do Until rs.EOF = True           

degerler = degerler & ", '" & rs.Fields(1)  & rs.Fields(2)  & rs.Fields(3) & "'"     

rs.MoveNext     

Loop

Hocam gene mükemmelsiniz hemde süper ve eksiksiz oldu. Bill Gates getir götürünüzü yapar

Önlem olarak rs.fields() ları nz() içine alabilirsiniz

nz(rs.fields(1),"")

gibi 3 alanı  da

))
iyi çalışmalar
Cevaplanmışlara taşıyalım mı?

(16/01/2020, 21:33)berduş yazdı: [ -> ]))
iyi çalışmalar
Cevaplanmışlara taşıyalım mı?

Teşekkürler Hocam Size de. Taşıyabilirsiniz uygundur.