Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

accessdeki bir altfomdan excele veri çekme

leydies81
leydies81
Access Cevaplanmış Soruları
23
8636

accessdeki bir altfomdan excele veri çekme

Çözüldü #17
leydies81
Hesap Aktif Değil
leydies81
Bul
Aktivasyon Bekleyen
Adı Soyadı:
Yaşı: 44
Konum: Eskişehir
Ofis Versiyonu: -
Son Oturumu: 17/08/2012,11:49
Yorumları: 160
Konuları: 27
Kayıt Tarihi: 12/12/2009
ç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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: accessdeki bir altfomdan excele eri çekme - Yazar: leydies81 - 29/03/2011, 14:23
Task