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
