ابوخليل

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

تمام مادام الحل من خارج اكسس فليس هناك حاجة في ادراج هذا التطبيق مع برنامجك ، يكفي ان تضم المجلد الناتج الى البرنامج فقط ................................... انا هذه محاولتي قد يمكنك .. او احد الاخوة الخبراء من التحسين لما تنقر على الايقونة يتم حفظ صورة الاختصار الى المجلد .. بقي فقط تحويل هذا الاختصار الى ايقونة او صورة DDSSImage2.rar

test.rar

وجدت لك في محفوظاتي هذا المثال للتوزيع ويبدوا ان هذا المثال عندك لتشابه التقرير في المثالين توزيع الملاحظين.rar

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

وحتى لا تتوه ادرجت لك Dim rs As Recordset Dim na0, na1, na2, na3 As String On Error Resume Next Set rs = CurrentDb.OpenRecordset("QAAA") rs.MoveLast rs.MoveFirst DoCmd.Hourglass True Do While Not rs.EOF na0 = "": na1 = "": na2 = "": na3 = "" na0 = Split(rs!AsmGded, " ")(0) na1 = Split(rs!AsmGded, " ")(1) na2 = Split(rs!AsmGded, " ")(2) na3 = Split(rs!AsmGded, " ")(3) rs.Edit rs!Rmz = Mid(na0, 1, 2) & Mid(na1, 1, 2) & Mid(na2, 1, 2) & Mid(na3, 1, 2) rs.Update rs.MoveNext Loop DoCmd.Hourglass False Beep MsgBox "تم توليد الرموز بنجاح", , "" End Sub السطرين .. فقط استبدل الكود بهذا

عليكم السلام المشكلة منك .. تخاطب جهتين .. اذا وجهت الخطاب لشخص محدد فهنا يكون اقرب للالتزام فالاستاذ محمد وكاتب هذه السطور اتكل بعضنا على بعض .. فاصبح يونس مثل معيّد القريتين بعد هذه الديباجة تفضل .. تم ضبط المثال ويعمل 100% لو لديك مليون سجل يعمل من الاسم المفرد وحتى الاسم الرباعي Dim rs As Recordset Dim na0, na1, na2, na3 As String On Error Resume Next Set rs = CurrentDb.OpenRecordset("QAAA") rs.MoveLast rs.MoveFirst Do While Not rs.EOF na0 = "": na1 = "": na2 = "": na3 = "" na0 = Split(rs!AsmGded, " ")(0) na1 = Split(rs!AsmGded, " ")(1) na2 = Split(rs!AsmGded, " ")(2) na3 = Split(rs!AsmGded, " ")(3) rs.Edit rs!Rmz = Mid(na0, 1, 2) & Mid(na1, 1, 2) & Mid(na2, 1, 2) & Mid(na3, 1, 2) rs.Update rs.MoveNext Loop Beep MsgBox "تم توليد الرموز بنجاح", , "" اذا السجلات عندك كثيرة جدا فالافضل ان تضيف هذين السطرين .. الأول في اعلى اللوب والثاني بعد نهاية اللوب من اجل تعلم ان الكود ما زال يعمل ولم ينتهي بعد DoCmd.Hourglass True DoCmd.Hourglass False نموذج بحث7.rar

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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