Açık olmayan frm_tarihsorgu isimli formdan veri almaya çalışıyorsunuz.

Excele verme işini yapan komut12 kodlarını aşağıdaki gibi değiştiriniz:

Private Sub Komut12_Click()



On Error GoTo Komut12_Click_Err



DoCmd.OpenForm "Frm_tarihsorgu", acLayout

DoCmd.OutputTo acForm, "frm_tarihsorgu", "MicrosoftExcel(*.xls)", "", False, "", 0

    

DoCmd.Close acForm, "IKITARIHARASI"

DoCmd.Close acForm, "Frm_tarihsorgu"

DoCmd.OpenForm "KARŞILAMA"





Komut12_Click_Exit:

    Exit Sub



Komut12_Click_Err:

    MsgBox Error$

    Resume Komut12_Click_Exit

End Sub

Burada veri almak istediğiniz formun açık -gizli- olmasını sağladık. Buna dikkat edin bundan sonra. Kolay gelsin....

---

Eğer altta gizli açtırdığım frm_tarihsorgu'nun görünür olmasını isterseniz

DoCmd.OpenForm "Frm_tarihsorgu", acLayout

kodunu

DoCmd.OpenForm "Frm_tarihsorgu" acNormal

biçiminde kullanın.