Merhaba,
Aşağıdaki kod, bir formdaki verileri alt alta dizebiliyor ancak aynı tablodan fakat başka bir sorgudan oluşturulmuş form verilerinin sadece ilkini Excel tablosuna aktarıyor. Şayet bunu çözebilirseniz akabinde isteğim : verilerden belirli bir kritere sahip olan verileri daha alt satırlardan başlatarak sıralasın bu mümkün mü? Bence select deyimi ile yapmak gerekecek ama onun nasıl kullanıoldığını bilmiyorum şimdiden teşekkürler.
Private Sub Komut48_Click()
Set ExcelDosyasi = CreateObject("Excel.Application")
Dim i As Integer
On Error Resume Next
DoCmd.GoToRecord , , acFirst
With ExcelDosyasi
.Application.Visible = True
.UserControl = True
.Workbooks.Open FileName:=CurrentProject.Path & "\HİTİTAKTARMA.xls"
'herbir satıra aktarmak için
For i = 1 To Me.Recordset.RecordCount
.CELLS(i + 4, 1).Value = Me.HALNO
.CELLS(i + 4, 2).Value = Me.MÜSTAHSİLADI
.CELLS(i + 4, 3).Value = Me.ÜRÜNADI
.CELLS(i + 4, 4).Value = Me.ÜRÜNCİNSİ
.CELLS(i + 4, 6).Value = Me.FİYAT
.CELLS(i + 4, 10).Value = Me.SAHTEKÜÇÜK
.CELLS(i + 4, 11).Value = Me.SAHTEBÜYÜK
DoCmd.GoToRecord , , acNext
Next
End With
Set ExcelDosyasi = Nothing
Exit_Komut48_Click:
Exit Sub
Err_Komut48_Click:
MsgBox Err.Description
Resume Exit_Komut48_Click

End Sub