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