Yeni sorgu oluştur, Sql koduna aşağıdakileri ekle, srg_excel adında kaydet.

SELECT musteri.id, musteri.adi, musteri.telefon_cep, musteri.telefon_sabit, musteri.aciklama, hareket.tarih, hareket.urun, hareket.tutar, hareket.odenen, hareket.kalan, hareket.[not]

FROM musteri INNER JOIN hareket ON musteri.id = hareket.musteri_id;

Formda butonun tıklandığında olayına aşağıdaki kodu ekle

DoCmd.OutputTo acOutputQuery, "srg_excel", "Excel97-Excel2003Workbook(*.xls)", "", True, "", , acExportQualityPrint