eklediğim kod dizisinde ciro isimli Excel dosyasının a3,b3,c3 hücrelerine o anda Access formunda aktif olan kayıttaki bilgiler geliyor. ancak ben o form içinde bulunan 212 ksyıtın alt alta listlenmesini istiyorum a3hücresinden başlayarak. yardımcı ollursanız seviniirm
Private Sub Komut85_Click()
On Error GoTo Err_Komut85_Click

'Excel'le ilgili koddan işlem yapabilmek için öncelikle Tools-Reference menüsünden,
'Microsoft Excel 1x.0 Object Library referansını işaretlemek gerekiyor.


'---------------------------------------------------------------------------------------------------------
'Excel açılıyor ve başlıklar ayarlanıyor
'---------------------------------------------------------------------------------------------------------
Set ExcelDosyasi = CreateObject("Excel.Application")

With ExcelDosyasi
.Application.Visible = True
.UserControl = True
.Workbooks.Open FileName:=CurrentProject.Path & "\ciro.xlsx"
.Range("A3").Value = Me.MÜŞTERİ_ADI
.Range("B3").Value = Me.MADDE_NUMARASI
.Range("C3").Value = Me.MADDE_ADI


End With
Set ExcelDosyasi = Nothing


Exit_Komut85_Click:
Exit Sub

Err_Komut85_Click:
MsgBox Err.Description
Resume Exit_Komut85_Click
End Sub

neden kiimse bana cevap vermiyor allah aşkına

Sayın leydies81;
Aşağıdaki şekilde uyarladım denermisiniz. Ben Kodu Deneme Fırsatı Bulamadım.
Kolay Gelsin.

Private Sub Komut85_Click()

On Error GoTo Err_Komut85_Click



'Excel'le ilgili koddan işlem yapabilmek için öncelikle Tools-Reference menüsünden,

'Microsoft Excel 1x.0 Object Library referansını işaretlemek gerekiyor.



'---------------------------------------------------------------------------------------------------------

'Excel açılıyor ve başlıklar ayarlanıyor

'---------------------------------------------------------------------------------------------------------

Set ExcelDosyasi = CreateObject("Excel.Application")

dim i as integer 

on error resume next



With ExcelDosyasi

.Application.Visible = True

.UserControl = True

.Workbooks.Open FileName:=CurrentProject.Path & "\ciro.xlsx"

for i= 1 to me.recordset.recorcount

.cells (i+3,1).select : selection.value=  Me.MÜŞTERİ_ADI

.cells (i+3,2).select : selection.value= Me.MADDE_NUMARASI

.cells (i+3,3).select : selection.value= Me.MADDE_ADI

DoCmd.GoToRecord , , acNext

next



End With

Set ExcelDosyasi = Nothing





Exit_Komut85_Click:

Exit Sub



Err_Komut85_Click:

MsgBox Err.Description

Resume Exit_Komut85_Click

End Sub 

hiçbirşey yapmıyor kural bey sadece ciro dosyasını açıyor veri aktarımı yapmıyor

Access ve Excel Dosyasını Eklermisiniz

örnek dosya ektedir. komut 88 yazılı butona kodu yazdım