Skip to main content

AccessTr.neT


Do Until Sorgusu Kullanımı Hakkında

Do Until Sorgusu Kullanımı Hakkında

Çözüldü #1
Daha önce excelle aktarma ile ilgili sorum olmuştur, yardımlarınız ile hallettim teşekkür ederim. Access te olan verilerimi altta yazılı kod ile aktarmaya çalışıyorum fakat her satıra 1 numaradaki kaydı ekleyip sonsuz bir döngü içerisine giriyor, kayıtlarımı sırası ile alması ve bitince döngünün sonlanması için kodda ne gibi değişiklik yapmalıyım.

Kod:
   
Dim i
Do Until rs2.EOF

        excl.Range("A" & i).Value = DLookup("id", "tblpersonel")
        excl.Range("B" & i).Value = DLookup("sicil", "tblpersonel")
        excl.Range("C" & i).Value = DLookup("ad_soyad", "tblpersonel")
        excl.Range("D" & i).Value = DLookup("rutbe", "tblpersonel")
        excl.Range("E" & i).Value = DLookup("birim", "tblpersonel")
               
   
  rs2.MoveNext
        i = i + 1


    Loop
 
rs2.Close

Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Do Until Sorgusu Kullanımı Hakkında - Yazar: angelos - 30/09/2022, 12:52