عنصر التحكم التنقل

[سامي2018]

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

يقوم 

احبابي بالله لدي اشكالية في تصميم عنصر التنقل للنماذج

 

فعند تصميمي للنموذج يستند لإستعلام شرطي اي يحتوي هذا الاستعلام على شرط يرجع الى حقل في النموذج ( فعند ادخال نص في الحقل في النموذج الإستعلام يقوم بتصفية البيانات بحسب قيمة النص المدخل )

 

 

على العموم كل شيء تمام في تصميمي للنموذج وتنفيذة ولكن المشكلة تتمثل عند وضع النموذج في ( نموذج التنقل ) هنا تضهر الرسالة عندما اقوم بفتح ذلك النموذج ويتطلب مني عنصر تحكم التنقل قيمة الحقل المفترض ان اضعها في حقل النص كي ياخذها الإستعلام كشرط البحث 

 

وللاسف لم اجد اي طريقة لحل هذه الإشكالية .. ارجوا من اساتذة ورواد منتدى اكسس مساعدتي الإشكالية التي لم اجد لها اي حل

 

 

اتمنى ان اكون وفقت في شرح الإشكالية وهذا مرفق يشرح الإشكالية

ارجوا مساعدتي بحل المشكلة التي واجهتني 

واتمنى التوضيح في اي جزء اخطئت ام هي اشكالية في الأوفيس ام ماذا ؟؟؟؟

عنصر التنقل.accdb

[Shivan Rekany]

في ١٨‏/٩‏/٢٠١٨ at 18:37, سامي2018 said:

لكن المشكلة تتمثل عند وضع النموذج في ( نموذج التنقل ) هنا تضهر الرسالة عندما اقوم بفتح ذلك النموذج ويتطلب مني عنصر تحكم التنقل قيمة الحقل المفترض ان اضعها في حقل النص كي ياخذها الإستعلام كشرط البحث 

 

وللاسف لم اجد اي طريقة لحل هذه الإشكالية

اتفضل اليك هذا 
عند تحميل النموذج get استخدم هذا الكود و لا تهتم بالاستعلام اي تقدر تحذف الاستعلام 

Private Sub Form_Load()
If CurrentProject.AllForms("نموذج_التنقل").IsLoaded = True Then
    Me.RecordSource = "SELECT ged.num_modaf, ged.num_adarh, ged.num_ged, ged.n_t_m, ged.date_ged, ged.Year, ged.num_mudkrh, ged.mostfed, ged.sader, ged.[adarh-mrfua], ged.mony, ged.subject, ged.mrfgt, ged.moment, ged.date_out, ged.adarh_out, ged.halah, ged.moment2, ged.out FROM ged WHERE (((ged.num_ged)=[Forms]![نموذج_التنقل]![NavigationSubform].[Form]![y]) AND ((ged.n_t_m)=[Forms]![نموذج_التنقل]![NavigationSubform].[Form]![t]));"
Else
    Me.RecordSource = "SELECT ged.num_modaf, ged.num_adarh, ged.num_ged, ged.n_t_m, ged.date_ged, ged.Year, ged.num_mudkrh, ged.mostfed, ged.sader, ged.[adarh-mrfua], ged.mony, ged.subject, ged.mrfgt, ged.moment, ged.date_out, ged.adarh_out, ged.halah, ged.moment2, ged.out FROM ged WHERE (((ged.num_ged)=[Forms]![ged]![y]) AND ((ged.n_t_m)=[Forms]![ged]![t]));"
End If
End Sub

اليك المرفق

 

عنصر التنقل.accdb

[سامي2018]

شكرا لك اخي الحبيب Shivan Rekany

 

 

فقد استفدت من معلوماتك الشيء الكثير وازيد عليها علمته واستفدته منك بهذا الإختصار

 

ففي الاستعلام كان الشرط هاكذا :

Like "*" & [Forms]![ged]![y] & "*"

 

 

وكي يتنفذ معنا الشرط داخل زر التنقل وبدون اي مشاكل نظع الشرط بنفس الإستعلام وبهذا الشكل :

Like "*" & [Forms]![نموذج_التنقل]![ NavigationSubform].[Form]![y] & "*"

 

وبالتغيير هذا تم تنفيذ نموذج التنقل بدون اي مشاكل وقد جربته باكثر من نافذة في نموذج التنقل بدون اي مشاكل 

 

عموما اشكرك اخي الحبيب على مرورك واعطائي تلك المعلومات فقد استفدت منها بشكل كبير

[Shivan Rekany]

منذ ساعه, سامي2018 said:

ففي الاستعلام كان الشرط هاكذا :

Like "*" & [Forms]![ged]![y] & "*"

 

 

 

وكي يتنفذ معنا الشرط داخل زر التنقل وبدون اي مشاكل نظع الشرط بنفس الإستعلام وبهذا الشكل :

Like "*" & [Forms]![نموذج_التنقل]![ NavigationSubform].[Form]![y] & "*"

 

 

وبالتغيير هذا تم تنفيذ نموذج التنقل بدون اي مشاكل وقد جربته باكثر من نافذة في نموذج التنقل بدون اي مشاكل 

نعم  بالضبط
لكن حاول ان تفتح نموذج الداخلي فقط كيف سيكون عند استخدام طريقتك و عند استخدام طريقتي