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

Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)
Yollar biter Access bitmez.
Bilgisayar Programcısı (1989'dan beri)

