mrb arkadaşlar
accessde yapmuş olduğum ıpk formunu excele aktarmak ve orada grafik oluşturmak istiyorum yardımcı olurmusunuz örneklerinizi inceledim ama anlayamdım
sayın derer
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
EXCELİ GÖSTERMİYOR NEREYE ATIYOR BİLGİLERİ
Excel ACILMIYOR
Mdb nizin bulunduğu yere Amaç(EXCEL OLARAK YEDEK)- 08.07.10 01-39-30-PM şeklinde bir
Excel dosyası olarak kaydediyor olması gerekli.
bulamıyorum sizce nereye atmış olabilir birde dosyayı rar dan dizine cıkartmamıştım ondan yapabilirmi. sonuc için tşkler faka ben ıpk formu için istemiştim ezcele aktarmayı yinede sağolun
sayın derer
benim gönderdiğim PK isimli program örneğinizi masa üstüne çıkarın ve içindeki parça kontrol isimli formu açarak
Excel işareti olan butona basın ve gelen komutları takip ederseniz excele atacaktır,ve masa üstüne Amaçç isimli bir
Excel dosyası göreceksiniz ve bunu açıp inceleyin
yani sizin programın olduğu yere
Excel dosyası olarak atıyorrr.