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