ابوخليل

طبعا لن انسب العمل لي فالفضل لله ثم لك هو عملك وتعبك .. مثالك هو عبارة عن مشروع قائم بذاته اضفت سطرين فقط ضمن كود جلب الجداول وحققت فكرة استيراد الجداول المرتبطة الخاصة بهذه الفرعية فقط ملحوظة : يجب التعامل مع زر حذف اسماء الجداول من جدول النظام بحذر .. يعني لا يتم حذف المسجل سابقا الا والجداول مرتبطة فعلا وموجودة .. من اجل نسخها مرة اخرى فيما لو تم زيادتها او انقاصها . اما مشروعك فمختلف عني .. بقي لك خطوة وهي جلب الجداول آليا من قواعدها استنادا الى اسم القاعدة في جدول النظام ........................ لن نكسب العلم الا بمزاحمة العلماء بارك الله فيك وزادك علما ورفعة linked.rar

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

المعذرة لم انتبه لطلبك داخل التقرير تفضل البحث وتعديل درجات10.rar

انظر احمد رامي ضمن اللجنة 1 وهو من الفئة المقصودة ما المشكلة ؟؟ هل تقصد ان يظهر احمد اسفل التقرير لوحده؟

الافضل الملف يفتح على فورم التقارير لان الفورم الذي يظهر يوجد فيه مشكلة ولا يوجد زر فيه زر كشف مناداة ............ ولأني عارف عملك توجهت الى فورم التقارير والتقرير فعلا يجلب الطلاب الدمج الموجودين في لجنة 1 الطالب : احمد رامي : طالب دمج

آه منك .. انت فاهم .. وعارف ان الطريق مغلق وسوف اعود اليك مسألة الليبل اشتغل تمام ولكن فيه عيب رسمي وهو انه يفرغ البيانات بعد غلق النموذج لذا رجعت واخذت بفكرتك : صحيح ان الحال عندي يكفيها اسم الجدول فقط ، ولكني ايضا اضفت قاعدة البيانات المصدر اعتقد حتى لك .. ظهور اسم الجدول وقاعدته المصدر كافية وتختصر الكثير من الوقت والجهد في مثالك وهديتك الجميلة : عملت فورم صغير يحتوي على زر مهمته نسخ اسماء الجداول المرتبطة وقواعدها الى جدول النظام ( هذا الفورم يخص المبرمج فقط) واضفت زر في فورم ربط الجداول يعرض رسالة بالجداول المرتبطة وقواعد بياناتها المرفق يحتوي على ملفين المثال السابق وقاعدة للجداول Downloads.rar

جميل جدا .. جزاك الله خيرا انتهت مشكلتي يمكنني الآن معرفة جداول كل ملف .. وسأعمل على حفظ الاسماء .. وسأضعها في ليبل في في الفورم الهدية يا سلام .. سأدرج هذا الفورم في جميع الواجهات .. ولما اريد ربط الجداول من جديد وانقر على زر اظهار الجداول ؛ يظهر الليبل الف شكر اخي وحبيبي في الله اباجودي

تمام .. راجعت النتيجة النتيجة ممتازة يمكن الاعتماد على هذا الكود عند الحاجة

الله يحفظك ويعزك .. غمرتني بلطف قولك .. وحسن ثنائك ودعائك .. لا اعتقد انه يمكن الوصول الى اسماء الجداول بطريقة برمجية .. ,وهذا هو المرفق

تسلم .. لا لا .. يمكنني عمل ذلك فهو يسير .. عملك اهم .. هل اسماء الجداول في قواعد البيانات لديك متشابهة؟ اذا نعم .. فأنت ملزم بتنفيذ فكرتك حتى لو لم تتشابه حيث ان لديك اكثر من قاعدة وانت ملزم بالارتباط بها بالاسم والمسار من رأى مصيبة غيره هانت عليه مصيبته .. كان الله في عونك

حسب حاجتك انت في الطريق السليم خطواتك صح انا عكس الحالة التي انت فيها قاعدة الجداول واحدة .. والواجهات متعددة

.. اهنئك على فكرك النير .. كان سؤالي : هل يمكنني معرفة اسماء الجداول بعد الحذف .. لأن هذه الجداول لها ارتباط بالنماذج والتقارير والاستعلامات واسماؤها موجودة فعلا في مصادر بياناتها . قلت يمكن اجد خبير يستخلص لي هذه الاسماء من خصائص الكائنات او اذا كانت موجودة في جداول النظام . على كل حال ضبط العمل من البداية والاحتياط لجميع الاحتمالات مطلب مهم . .......................... نأتي ابا جودي للمثال المرفق : عمل ولا اجمل ويقدم خدمة عظيمة كلنا في حاجتها . بقي نقطة صغيرة وهي التي اشرت اليها انت .. وهي اسماء الجداول التي تخص هذه الواجهة فقط .. وارى ان حفظ الاسماء في جدول عرضة للحذف ايضا المطلوب استعرضها فقط وعلى اساسها اختار من النموذج الجميل الذي اهديته لنا ما رأيك ان يتم كتابة الاسماء اليا بعيدة عن الجداول هل يمكن كتابتها في ليبل مثلا او داخل المحرر .. مؤكد لن تتغير الجداول الا من خلال المبرمج ومن خلال عرض التصميم

اهلا ابا جودي .. يا سلام .. اسند الأمر لأهله هو انا حذفت وخلاص : اذا اردت تطبيق الفكرة يجب علي ان اعيد التشكيل من جديد ما دمت تعمل في هذا الطريق .. هل تنصحني بأن ارتب عملي من جديد ؟

السلام عليكم لدي قاعدة بيانات جداول تضم جداول كثيرة جدا ومرتبط بهذه القاعدة عدة برامج لكل برنامج جداوله الخاصة .. وقد يشترك اكثر من برنامج في جدول واحد .. الى هنا الامر عادي وتمام المشكلة : حينما اقوم بحذف الجداول المرتبطة في جميع الواجهات ( وهذه الواجهات عبارة عن برامج مختلفة لكل واجهة عمل خاص تقوم به ) ثم ارغب في اعادة ربط الجداول الخاصة بواجهة معينة .. يصعب علي تذكر اسماء الجداول الخاصة بها ، وهنا انا ملزم ان اردت تشغيل البرنامج بأن ارتبط بجميع الجداول الموجودة على قاعدة الجداول البعيدة .. وهذا ما لا اريده . اريد الارتباط بالجداول التي تخص هذه الواجهة فقط بعض الواجهات تحتوي على 3 او 4 جداول وبعضها على اكثر من 10 جداول تحديد الجداول ممكن .. ولكن يلزم فتح كل كائن في القاعدة والبحث في مصدر بياناته وهذا فيه من التعب والجهد الكبير فطلبي هو هل يمكنني معرفة أسماء الجداول المرتبطة بعد حذفها؟ .... واستخراجها في قائمة أو رسالة . ملحوظة : جميع الجداول تبدأ بالبادئة : tbl

تفضل baseM_11 .rar

اخي العزيز محمد يجب ان تتأكد من مثالك قبل رفعه .. لتلافي الاخطاء والنقص ايضا يجب اختصار الكائنات فلا تضع الا ما تحتاج للتعديل عليه مثالك المرفق لا يوجد به اكواد لفتح التقارير فقد تم حذفها .. ايضا تم حذف اكثر من مكتبة من مراجع القاعدة على كل حال تم عمل طلبك بشكل احترافي لن يخطر على بالك : 1- الاقتصار على تقرير واحد يقوم بالمهمة بدلا من 4 تقارير 2- وضع ضابط رسالة تنبيه عند عدم وجود بيانات حينما تتغير المدخلات في نموذج التقارير 3- التعديلات : - اضافة وحدة نمطية نيابة عن معيار النموذج المباشر (انظر الاستعلام) - اضافة دالة تحكم بمصدر بيانات التقرير ( تجدها في محرر التقرير ) baseM_10 .rar

توليد رمز الاسم من الثنائي وحتى السداسي Dim rs As Recordset Dim na1, na2, na3, na4 As String On Error Resume Next Set rs = CurrentDb.OpenRecordset("QAAA") rs.MoveLast rs.MoveFirst Do While Not rs.EOF rs.Edit rs!Rmz = Mid(Split(rs!AsmGded, " ")(0), 1, 2) & Mid(Split(rs!AsmGded, " ")(1), 1, 2) & _ Mid(Split(rs!AsmGded, " ")(2), 1, 2) & Mid(Split(rs!AsmGded, " ")(3), 1, 2) & _ Mid(Split(rs!AsmGded, " ")(4), 1, 2) & Mid(Split(rs!AsmGded, " ")(5), 1, 2) rs.Update rs.MoveNext Loop End Sub نموذج بحث6.rar

هذا هو الذي يعمله الكود ، ما المشكلة ؟ على فكرة : وحتى تكون على بينة .. قمت بازالة المعايير من الاستعلام ( الكود يجب ان يعمل على كامل السجلات).. بالنسبة للبحث اعمل استعلاما آخر مصدره الجدول مباشرة الكود واضح .. يأخذ الاسم الجديد من الاستعلام AAAَQ.. ويعالجه كرمز ويضيفه في الجدول TAAA

تفضل توليد من الاسم سواء كان ثلاثي او ثنائي الكود يأخذ الاسم من حقل الاستعلام ويضيفه في حقل الجدول Dim rs, rst As Recordset Dim na1, na2, na3 As String On Error Resume Next Set rs = CurrentDb.OpenRecordset("QAAA") rs.MoveLast rs.MoveFirst Do While Not rs.EOF na3 = Split(AsmGded, " ")(2) rst.Edit If IsNull(na3) = False Then rs!Rmz = Mid(Split(rs!AsmGded, " ")(0), 1, 2) & Mid(Split(rs!AsmGded, " ")(1), 1, 2) Else rs!Rmz = Mid(Split(rs!AsmGded, " ")(0), 1, 2) & Mid(Split(rs!AsmGded, " ")(1), 1, 2) & Mid(Split(rs!AsmGded, " ")(2), 1, 2) End If rs.Update rs.MoveNext Loop

الحمد لله على سلامتك اخي خليفة .. وعودا حميدا

تفضل عملت لك دالة تعمل توليد للرمز الذي تريده ( حرفين من كل اسم ثلاثي) الدالة سهلة يمكنك ان تعدل عليها حسب رغبتك ملحوظة : حتى تعمل الدالة على الوجه الأكمل يجب تنظيف حقل الاسم من المسافات الزائدة .. ويفضل ايضا حذف المسافة بعد كلمة عبد ، والله يعينك باقي نور الدين واشباهه Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("TAAA") rs.MoveLast rs.MoveFirst Do While Not rs.EOF rs.Edit rs!Rmz = Mid(Split(rs!Asm, " ")(0), 1, 2) & Mid(Split(rs!Asm, " ")(1), 1, 2) & Mid(Split(rs!Asm, " ")(2), 1, 2) rs.Update rs.MoveNext Loop نموذج بحث 2.rar

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

عليكم السلام ورحمة الله وبركاته ماذا تصنع في الاسم الذي على هذه الهيئة : عبد الباسط عبد الصمد عبدالمقصود الاسم الاول والثاني فراغ بعد كلمة عبد ، وبين الاسم الثاني والثالث فراغين ، والاسم الثالث لا يوجد فراغ بعد كلمة عبد 1- مسألة اكثر من فراغ بين الكلمات امرها هين وبضغطة زر يمكن حذف الفراغ الزائد على مستوى قاعدة البيانات 2- ايضا الفراغ بعد كلمة عبد لو اردت حذفه يمكن ذلك بضغطة زر ايضا ، ولو اردت العكس ايضا يمكن اي تبحث عن كلمة عبد واي كلمة لا يوجد بعدها مسافة يضيف المسافة 3- اتصور انه اسهل واخف واسرع حينما اكتب الاسم واسم الاب وابحث عنهما من ان اكتب تجميعة حروف من الاسماء من الامثلة : الاسم محمد علي شمس الدين يمكنني البحث بـــــــ علي شمس .. اي بالاسم الثاني وجزء من الاسم الثالث

مشكلتك في الفرز انت عملت الفرز في التقرير حسب التاريخ .. والكود تعامل معه على هذا الاساس .. طيب ما المشكلة لما تفرز حسب المعرف ... هو نفسه سوف يفرزه حسب التاريخ بل هو ادق بحيث لو تاريخين متشابهين راح يجيب لك الذي تم تسجيله اولا ويضعه في الأعلى --------------------------------------------------------------------------------- كود الرصيد يعتمد على معرف الجدول (id) وهو تلقائي غير قابل للتكرار والتاريخ مؤكد سوف يتجدد حسب السجل الجديد بمعنى ان اي تاريخ يتم تسجيله كجديد سوف يكون التاريخ اكبر من الذي قبله أو مساويا له الكود لا ينظر للتاريخ وانما ينظر للمعرف ويتعامل معه من الاصغر الى الأكبر اكبر دليل لما تكون فاتح نموذج التقارير وتختار المواد الغذائية والبطاطا .. افتح الاستعلام وانظر stock19 .rar

يمكن ذلك ولكن يلزم اخراج مصدر التقرير ليصبح استعلاما ظاهرا لوجود معايير به يلزم ان تسبق تجميع الارصدة stock17 .rar