ليس فقط تحديد مكان التقرير هو المهم
المهم اظهار التقرير في واجهة النموذج ويكون اسم الشخص الظاهر في النموذج هو نفس اسم الظاهر في التقرير
وضعت لك كود عند الضغط لفتح التقرير يكون تطابق بالاسم في النموذج والتقرير معا وعند عدم وجود بيانات تظهر لك رسالة تنبيه
If IsNull([PCode]) = True Then
Beep
MsgBox " لاتوجد بيانات في هذا السجل ... اذهب الى سجل آخر", 16, "تنبيه"
Else
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "NewUrine"
stLinkCriteria = "[PCode]=" & Me![PCode]
DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria
End If