Sizin yaptığınız

DoCmd.OutputTo acQuery, "gemiler_detay_sorgu", "MicrosoftExcel(*.xls)", "", False, "", 0

kodu ile gemiler_detay_sorgu sorgusunu excele yollamak yani sadece o sorguya tarih kriteri eklemeniz yeterli benim yaptığım da bundan ibaret sizin sorgunuza ekledigim
((vagon_arac_takip.sevk_tarihi)>=IIf(IsNull([Formlar]![genel_sorgu_form]![BasTrh2]),1,[Formlar]![genel_sorgu_form]![BasTrh2]) And (vagon_arac_takip.sevk_tarihi)<=IIf(IsNull([Formlar]![genel_sorgu_form]![BitTrh2]),1000000,[Formlar]![genel_sorgu_form]![BitTrh2])) satırı tarih süzmek için
Siz 2 tane tarih türünde metin kutusu ekleyip çıkıldığında olaylarina diğer kriterlerde yaptığınızı yapmanız yeterli