forumdaki arakadaşlarımdan öğrendiklerimi size aktarayım.
önce excele aktaracağınız verileri içeren bir sorgu hazırlayın ve adını AKTARMA_SORGUSU koyun. sonra mevcut butonunuzun click olayındaki kodu silin ve aşağıdaki kodu yapıştırın.
Private Sub Komut35_Click()
On Error GoTo Err_aktar
Dim Klasor As String
Klasor = CurrentProject.path & "\BELGE.xlsx"
If MsgBox("Verileri Excele aktarmak istiyor musunuz? Bu işlem veri yoğunluğuna göre bir kaç dakika sürebilir.", 36, "BELGE.xlsx 'ye aktarılacak") = 6 Then
DoCmd.TransferSpreadsheet acExport, 10, "AKTARMA_SORGUSU", Klasor, True, "AKTRILAN VERİ"
MsgBox "Aktarma işlemi tamamlandı.", 10, "VERİ AKTARIMI"
Exit_aktar:
Exit Sub
Err_aktar:
MsgBox Error$
Resume Exit_aktar
End If
End Sub
access belgenizin olduğu klasörün içinde BELGE isimli bir Excel oluşacak ve açınca AKTARILAN VERİ sayfasında istediğiniz verileri göreceksiniz...
