Kod:
If MsgBox("ARAÇ BİLGİLERİNİ FORM'A YAZDIRMAK İSTEDİĞİNİZDEN EMİN MİSİNİZ? İKİ SAYFA FORM YAZDIRILACAK...", 68, "BELGEYE YAZDIR") = 6 Then
strReportName = "EK-1 BELGESİ ARKA"
DoCmd.OpenReport strReportName, acViewPreview, , strCriteria
DoCmd.PrintOut acPrintAll, , , acHigh, 2
end if