(20/03/2015, 00:51)ozanakkaya yazdı: excele aktar butonunun kodlarını aşağıdaki ile değiştiriniz.aktarmayı deneme yapacağım ama burada ürün kodları gruplayıp sipariş adetleri toplama yapmıyor sanırım onu nasıl yaparım excele aktarmada
On Error GoTo Err_aktar
Dim Klasor As String
SQL = Me.RecordSource
Set qdf = CurrentDb.CreateQueryDef("Excelsorgu", SQL)
Klasor = CurrentProject.Path & "\3_Aylık_Listesi.xls"
If MsgBox("Verileri Excele aktarmak istiyor musunuz? ", 36, "3_Aylık_Listesi.xls 'ye aktarılacak") = 6 Then
DoCmd.TransferSpreadsheet acExport, 8, "Excelsorgu", Klasor, False, ""
MsgBox "3_Aylık_Liste Programın bulundugu yere Aktarma işlemi tamamlandı", 0, "VERİ AKTARIMI"
DoCmd.DeleteObject acQuery, "Excelsorgu"
End If
Exit_aktar:
Exit Sub
Err_aktar:
MsgBox Error$
Resume Exit_aktar
formdaki verileri excele aktarma
Konuyu Okuyanlar: 1 Ziyaretçi