dim rs as recordset
i=28
set rs=currentdb.openrecordset("select * from caridetay where Id=" & me.Id)
rs.movefirst
do until rs.eof
.Range("d" & i).Value = rs.fields("Aciklama")
.Range("e" & i).Value = rs.fields("Borc")
.Range("f" & i).Value = rs.fields("Alacak)
i=i+1
rs.movenext
loop
rs.close

dosyamı nasıl 2003 yapacağım farklı kaydette yok seçenek. recordset komutunu copyrecordset olark kullandım ama işlem yapmadı. sanırım yine biryerlerde hata yapıyorum

son mesajımda örnek yazdım, kafadan yazdım, yazım hataları olabilir.

teşekkür ederim. deniyorum ama yazdığınız komut dizisini ama oladı. neyse uğraşayım biraz daha çözümünü bulunca yazarım

çok fazla parametre. 1 bekleniyor diye hata veriyor. neden olabilir. ayrıca aşağıya yazdığım komut şeklini verdim. doğrumudur. yada nasıl 2003 formatına dönüştürebilirim onu söyleyinde örnek üzerinden bakın bir hatama

Private Sub Komut4_Click()

On Error GoTo Err_Komut4_Click





    Set ExcelDosyasi = CreateObject("Excel.Application")

    

    With ExcelDosyasi

        .Application.Visible = True

        .UserControl = True

        .Workbooks.Open FileName:=CurrentProject.Path & "\MT2.xls"

        .Range("D7").Value = Me.MÜŞTERİ_ADI

        .Range("D8").Value = Me.MADDE_NUMARASI

        .Range("d9").Value = Me.MADDE_ADI

        .Range("d14").Value = Me.KALİTE

        .Range("d16").Value = Me.EN

        .Range("e16").Value = Me.BOY

        .Range("f16").Value = Me.KALINLIK

        .Range("d18").Value = Me.BRÜT_AĞIRLIK

        .Range("g28").Value = [RECETELISTESI].Form![Miktar]

        .Range("ı28").Value = [RECETELISTESI].Form![Madde grubu4]

      

      Dim rs As Recordset

i = 28

Set rs = CurrentDb.OpenRecordset("select * from RECETELISTESI where Madde_Numarası=" & Me.MADDE_NUMARASI)

rs.MoveFirst

Do Until rs.EOF

.Range("h15" & i).Value = rs.Fields("Miktar")

.Range("ı15" & i).Value = rs.Fields("Madde grubu4")



i = i + 1

rs.MoveNext

Loop

rs.Close





    End With

.Range("ı15" & i).Value = rs.Fields("Madde grubu4")
sanirim i15 olacak

---

.Range("i15" & i).Value = rs.Fields("Madde grubu4")
birde "i15" & i değeri "i15" & 28 yani i1528 oluyor