If DCount("test", "test_order_tbl", "[ID] = [forms]![result_collect_frm]![ID] and [xsub] = [forms]![result_sub]![xsub] and [completed] = true ") = 0 Then
MsgBox "لايمكن الطباعه حيث لاتوجد نتائج مسجله", vbOKOnly + vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "تحذير"
Exit Sub
Else
End If
عدلى البيانات كما في النموذج الكامل