Arkadaşlar; form sayfamda bölgeyi seçtiğimde aşağıda liste kutusunda o bölgeye ait bilgiler geliyor ve aşağıda excelle aktar butonuna bastığımda liste kutusundaki bilgileri excelle aktarmak istiyorum. gönderdiğim örnek excelle atıyor ancak tablolardaki bütün bilgileri atıyor ben bölgeyi seçtiğimde liste kutusuna listelenen bilgileri excelle aktarmak istiyorum. yardımcı olurmusunuz.
excelle aktar butonunun kodlaması şu şekildedir. kodlamada nasıl bir düzeltme yapabiliriz. "kod alıntıdır."
Dim Klasor
Klasor = CurrentProject.path & "\" & "BİLGİTAKİP (EXCEL OLARAK YEDEK)-" & " " & Format(Date, "mm/dd/yy") & " " & Format(Time, "hh-mm-ss-AM/PM") & ".xls"
If MsgBox("Aktarma işlemi,Proğramın bulunduğu yere kayıt olacak,oradan bulun,Verileri Excele aktarmak istiyor musunuz? ", 36, "EXCELE VERI AKTARIMI") = 6 Then
DoCmd.TransferSpreadsheet acExport, 8, "Çeker Zimmet Ana Tablo", Klasor, True, "ÇEKER BİLGİLER"
MsgBox "Dikkat Proğramın bulunduğu yere Aktarma işlemi Tamamlandı", 0, "EXCELE VERI AKTARIMI"
Exit_Komut121:
Exit Sub
Err_Komut121:
MsgBox Error$
Resume Exit_Komut121
End If
excelle aktar butonunun kodlaması şu şekildedir. kodlamada nasıl bir düzeltme yapabiliriz. "kod alıntıdır."
Dim Klasor
Klasor = CurrentProject.path & "\" & "BİLGİTAKİP (EXCEL OLARAK YEDEK)-" & " " & Format(Date, "mm/dd/yy") & " " & Format(Time, "hh-mm-ss-AM/PM") & ".xls"
If MsgBox("Aktarma işlemi,Proğramın bulunduğu yere kayıt olacak,oradan bulun,Verileri Excele aktarmak istiyor musunuz? ", 36, "EXCELE VERI AKTARIMI") = 6 Then
DoCmd.TransferSpreadsheet acExport, 8, "Çeker Zimmet Ana Tablo", Klasor, True, "ÇEKER BİLGİLER"
MsgBox "Dikkat Proğramın bulunduğu yere Aktarma işlemi Tamamlandı", 0, "EXCELE VERI AKTARIMI"
Exit_Komut121:
Exit Sub
Err_Komut121:
MsgBox Error$
Resume Exit_Komut121
End If
Ekli dosyalar
-
31 KB Görüntüleme: 16