formdaki bilgileri worde aktarmak

bir recordset ve döngü yardımıyla tablo şeklinde dökülebilir.

(13/02/2013, 19:14)Yandemir yazdı: bir recordset ve döngü yardımıyla tablo şeklinde dökülebilir.

hocam biliyorum bu konu sizin için çok basit olabilir. ancak benim kodlarla pek aram iyi değil. bu konuyla ilgili yardım edebilirseniz sevinirim. teşekkür ederim. saygılar

dim rs as recordset

set rs=curentdb.openrecordset("Select * from FaturaHareketleri where ID=" & me.ID)

rs.movefirst

Sat=10 ' 10.satırdan başlaması için

do until rs.eof

    belge.Cells(Sat, 5) = rs.fields("Aciklama")

    belge.Cells(Sat, 5).Font.name = "Arial Narrow"

    ..................

    .............

    belge.Cells(Sat, 4) = rs.fields("StokKod")

    belge.Cells(Sat, 4).Font.name = "Arial Narrow"

    ...........

    ...........

    Sat=Sat+1

    rs.movenext

loop

rs.close

gibi bir örnek hem satır artar hem kayıt artar.

hocam ilginize teşekkür ederim .kodu uygulamaya çalışayacağım saygılar