المشكله كانت في الكود التالي:
A = DLookup("[back_doc]", "back_doc", "[back_doc]='" & Me.back_doc & "'")
بعد التعديل صار
A = DLookup("[back_doc]", "back_doc", "[back_doc]=" & Me.back_doc)
هذا بالنسبه لكود منع التكرار
اما بالنسبه للمشكله الاولى عند الطباعه فا الكود كان كالتالي:
DoCmd.OpenReport "back_docRR", acViewPreview, , "[back_doc]='" & Me.back_doc & "'"
الان اصبح
DoCmd.OpenReport "back_docRR", acViewPreview, , "[back_doc]=" & Me.back_doc
اتوقع فيه مشكله عندك !!!