Private Sub Komut1_Click()

Dim BlackEagle As String

BlackEagle = CurrentProject.Path & "\deneme.xlsx"

 

DoCmd.TransferSpreadsheet acExport, 9, "Tablo1", BlackEagle, True, "YeniSayfa"

 

MsgBox "Aktarım tamamlandı..", , "Tebrikler"

End Sub

Projenizin bulunduğu yere deneme isminde bir xlsx (excel) dosyası yapın. Sonra yukarıdaki konu formunuzda bir düğmeye ekleyin ve deneyin. Test edilmiştir. 112945 kayıt başarıyla eklenmiştir.

Geri dönüş yaparsanız seviniriz.