parça kontrol kriteri isimli formunuzdaki komut48'in kodlarını
aşağıdaki gibi değiştirin,bu arada istediğiniz tablo veya sorğu adını yazarak excel'e atabilirsiniz,diğer grafik işi ise beni aşar onada bir hocamız yardımcı olacaktır,dediğim gibi siz benim gönderdiğim kodları kendinize göre dönüştürebilirsiniz.kolay gelsin
kod............
Private Sub Komut48_Click()
On Error GoTo Err_Komut48_Click
Dim Klasor
Klasor = CurrentProject.Path & "\" & "Amaç(EXCEL OLARAK YEDEK)-" & " " & Format(Date, "mm/dd/yy") & " " & Format(Time, "hh-mm-ss-AM/PM") & ".xls"
If MsgBox("Aktarma işlemi,programın bulunduğu yere kayıt olacak,oradan bulun,Verileri Excele aktarmak istiyor musunuz? ", 36, "EXCELE VERI AKTARIMI") = 6 Then
DoCmd.TransferSpreadsheet acExport, 8, "amaçç", Klasor, True, "Amaçlar"
DoCmd.TransferSpreadsheet acExport, 8, "içerik", Klasor, True, "İçerikler"
MsgBox "Dikkat programın bulunduğu yere Aktarma işlemi Tamamlandı", 0, "EXCELE VERI AKTARIMI"
Exit_Komut48_Click:
Exit Sub
Err_Komut48_Click:
MsgBox Err.Description
Resume Exit_Komut48_Click
End If
End Sub
