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.
İnadına, ille de Accesstr.net...