accessdeki bir altfomdan excele veri çekme

accessdeki bir altfomdan excele veri çekme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: accessdeki bir altfomdan excele veri çekme (/konu-accessdeki-bir-altfomdan-excele-veri-cekme.html)

Sayfalar: 1 2 3 4

Cvp: accessdeki bir altfomdan excele eri çekme - Yandemir - 29/03/2011

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

Cvp: accessdeki bir altfomdan excele eri çekme - leydies81 - 29/03/2011

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

Cvp: accessdeki bir altfomdan excele eri çekme - Yandemir - 29/03/2011

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

Cvp: accessdeki bir altfomdan excele eri çekme - leydies81 - 29/03/2011

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

Cvp: accessdeki bir altfomdan excele eri çekme - leydies81 - 29/03/2011

ç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

Cvp: accessdeki bir altfomdan excele eri çekme - Yandemir - 29/03/2011

.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