السلام عليكم ورحمة الله وبركاتة
ارجو من الاخوان عطى مثال على حوار الاخ فهد رقم 9 حيث ان الأسئلة كثير عن هذا الموضوع
ولكم مني جزيل الشكــــــــــــــــــــــــــر
حوار 9
= محمد : لدي تقرير اسمه مثلاً ReNeme وأريد من خلال النموذج أن أقوم بمعاينة هذا التقرير أو طباعته ولكني أريد أن يعرض لي هذا التقرير أو يطبع لي السجل المعروض حالياً على النموذج وليس جميع البيانات .. فكيف الطريقة ؟
= فهد الدوسري : لنفترض أن لديك من ضمن حقول هذا التقرير والنموذج حقل نوعه رقمي واسمه ID وحقل آخر نوعه نصي واسمه Name1 لكي نقوم بالربط بين النموذج والتقرير عن طريق أحد هذين الحقلين سواء الحقل الرقمي أو الحقل النصي فنعمل ما يلي :-
- ضع في حدث عند النقر للزر الذي في النموذج والذي من خلاله يتم فتح تقرير ReNeme الكود التالي ..
- لمعاينة التقرير ..
إذا أردت عمل ذلك على حقل نوعه رقمي واسم الحقل ID فضع الكود التالي ..
CODE
Dim stLinkCriteria As String
stLinkCriteria = "[iD] =" & Me![iD]
DoCmd.OpenReport "ReNeme", acViewPreview, , stLinkCriteria
وإذا أردت عمل ذلك على حقل نوعه نصي واسم الحقل Name1 فضع الكود التالي ..
CODE
Dim stLinkCriteria As String
stLinkCriteria = "[Name1]=" & "'" & Me![Name1] & "'"
DoCmd.OpenReport "ReNeme", acViewPreview, , stLinkCriteria
- أما لطباعه التقرير ..
إذا أردت عمل ذلك على حقل نوعه رقمي واسم الحقل ID فضع الكود التالي ..
CODE
Dim stLinkCriteria As String
stLinkCriteria = "[iD] =" & Me![iD]
DoCmd.OpenReport "ReNeme", acViewNormal, , stLinkCriteria
وإذا أردت عمل ذلك على حقل نوعه نصي واسم الحقل Name1 فضع الكود التالي ..
CODE
Dim stLinkCriteria As String
stLinkCriteria = "[Name1]=" & "'" & Me![Name1] & "'"
DoCmd.OpenReport "ReNeme", acViewNormal, , stLinkCriteria
