كيف اجعل التقرير لنموذجين مختلفين بحقلين مختلفين ؟

نحن ننتظر مع الدعاء للجميع بالتوفيق

اخي الفاضل فرقدي

هذا ملفك بعد التعديل

FARKADI.rar

اختكم

زهره

zahrah كتب:

اخي الفاضل فرقدي

هذا ملفك بعد التعديل

FARKADI.rar

اختكم

زهره

حق لي بأن أفتخر أن لي أخوة أعتز بهم مثلكم :)

بارك الله فيك أختي وبكل من يلوذ بك وحفظك من كل مكروه ، اللهم آمين

عذرا أختي زهرة وبقية الأخوة

ارفق الملف مرة أخرى بعدما غيرت أسم الحقل المطلوب الى الانجليزية ومن حقل نصي الى رقمي

لكن ظهرت لي مشكلة في الكود عند الضغط على الزر الخاص بمعاينة التقرير

ارجو مشاهدة الملف واخباري عن مكمن الخطأ فيه مع شكري

212.rar

اخي الفاضل فرقدي

السلام عليكم ورحمة الله وبركاته

بالتأكيد سيظهر لديك خطأ

فهل صفات الحقل الرقمي تنطبق على صفات الحقل النصي بالطبع لا فكل حقل له مميزته الخاصة اذن دعني اشرح لك الخطأ الذي وقعت فيه

لمعاينة التقرير ..

إذا أردت عمل ذلك على حقل نوعه رقمي واسم الحقل Number فضع الكود التالي ..

Dim stLinkCriteria As String
stLinkCriteria = "[Number] =" & Me![Number]
DoCmd.OpenReport "Report", acViewPreview, , stLinkCriteria

وإذا أردت عمل ذلك على حقل نوعه نصي واسم الحقل txtName فضع الكود التالي ..

Dim stLinkCriteria As String
stLinkCriteria = "[txtName]=" & "'" & Me![txtName] & "'"
DoCmd.OpenReport "Report", acViewPreview, , stLinkCriteria

ماذا تلاحظ اخي فرقدي بين حقل الرقم Number في الكود الاول وحقل الاسم txtName في الكود الثاني

انظر الفرق بين علامات الاقتباس ( هنا تكمن مشكلتك )

الحقل الرقمي يكون وضعه كما في الكود الاول

الحقل النصي يكون وضعه كما في الكود الثاني

اذن ادعك تحاول بنفسك لكي تتعلم ذاتيا وليس عيبا ان تخطىء ولكن العيب ان تستمر في الخطأ

كان بالامكان التعديل بدون كل هذا الشرح

ملاحظة : اذا وصلت للحل ارجو ابلاغي

اختكم

زهره

اخي فرقدي

اعلم انك ستعود وتقول انك لم تتوصل للحل .

هل يوجد لديك في النموذجين حقل اسمه Wer_to بالتأكيد لا يوجد ولكن يوجد لديك حقل اسمه Ward_no

الحقل الخطأ

stLinkCriteria = "[Wer_to]=" & Me![Wer_to]

الحقل بعد التصحيح

stLinkCriteria = "[Ward_no]=" & Me![Ward_no]

ملفك بعد التعديل

212_up.rar

اختكم

زهره

zahrah كتب:

اخي فرقدي

اعلم انك ستعود وتقول انك لم تتوصل للحل .

هل يوجد لديك في النموذجين حقل اسمه Wer_to بالتأكيد لا يوجد ولكن يوجد لديك حقل اسمه Ward_no

الحقل الخطأ

stLinkCriteria = "[Wer_to]=" & Me![Wer_to]

الحقل بعد التصحيح

stLinkCriteria = "[Ward_no]=" & Me![Ward_no]

ملفك بعد التعديل

212_up.rar

اختكم

زهره

:D :lol: بالفعل أختي لم أرى ردك الأخير وكنت أتجهز للقول بأن الخطا حدث بالفعل بين no - to :rolleyes:

جزاك الله عنا جميعا كل الخير