06/03/2021, 14:20
kamil_55
sn berduş, ilginize teşekkür ederim, tam ben de onunla ilgili sorunumu hallettiğimi fakat buna bağlı farklı bir sorunla karşılaştığımı yazacaktım konuya. şöyle ki; dinamik arama yaptıktan sonra, aşağıdaki komutla listbox'ı excel'e aktarıyor fakat, aynı form'a tarih aralığı girerek listeleme yaptırmak ve gelen listbox'ı excele göndermeyi bir türlü yapamadım. örneğimi ekliyorum, bu konuda yardımınız olursa sevinirim, teşekkürler.
komut excele gönder:
Private Sub Komut95_Click()
On Error GoTo hata
DoCmd.OutputTo acQuery, "gemiler_detay_sorgu", "MicrosoftExcel(*.xls)", "", False, "", 0
MsgBox "Excele Başarılı bir şekilde veriler aktarıldı...", vbOKOnly + vbInformation, "Veri Aktarımı"
Exit Sub
Cikis:
MsgBox "kaydetme işlemi iptal edildi"
Exit Sub
hata:
If Err.Number = 2501 Then
Resume Next
Else
MsgBox Err.Description
Resume Cikis
End If
End Sub
komut excele gönder:
Private Sub Komut95_Click()
On Error GoTo hata
DoCmd.OutputTo acQuery, "gemiler_detay_sorgu", "MicrosoftExcel(*.xls)", "", False, "", 0
MsgBox "Excele Başarılı bir şekilde veriler aktarıldı...", vbOKOnly + vbInformation, "Veri Aktarımı"
Exit Sub
Cikis:
MsgBox "kaydetme işlemi iptal edildi"
Exit Sub
hata:
If Err.Number = 2501 Then
Resume Next
Else
MsgBox Err.Description
Resume Cikis
End If
End Sub