مرحبا
لدي سؤال في فتح التقارير من نموذج بالنقر على زر من خلال النموذج
بشرط
ان يقوم بفتح القيمة المطابقة لمربع نص موجود في النموذج
لقد حاولت كثيرا وكانت آخر محاولاتي طباعة التقرير، ولكن اريد معاينة التقرير قبل الطباعة
ارجو المساعدة
وهذا الكود الذي وضعته على زر فتح التقرير
Private Sub report_Click()
On Error GoTo Err_report_Click
Dim stDocName As String
stDocName = "tabel1"
stLinkCriteria = "[no]=" & Me![نص]
DoCmd.OpenReport stDocName, , , stLinkCriteria
Exit_report_Click:
Exit Sub
Err_report_Click:
MsgBox Err.Description
Resume Exit_report_Click
End Sub
المثال في المرفقات(اضغط هنا)