accessdeki bir altfomdan excele veri çekme

1 2 3 4
29/03/2011, 13:13

Yandemir


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
29/03/2011, 13:18

leydies81

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
29/03/2011, 13:23

Yandemir

son mesajımda örnek yazdım, kafadan yazdım, yazım hataları olabilir.
29/03/2011, 13:33

leydies81

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
29/03/2011, 14:23

leydies81

ç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
29/03/2011, 14:32

Yandemir

.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
1 2 3 4