ابوخليل

تفضل يتم الإلحاق بناء على رقم المدينة في النموذج الرئيس IT2.rar

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

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

اعتقد المطلوب وهو رغبة السائل ان يكون الترقيم موحد بما يشبه الترقيم التلقائي

نعم معك قلبا وقالبا ، ولكن للضرورات احكام هنا مربط الفرس .. بعضهم يريد لكل عملية ترقيما خاصا يميزها .. وايضا يريد نوع الحقل نصي بحيث تكون البادئة حرف وموضوع الاستاذ جعفر مناسب جدا لمثل هذه الحالاات .. ولكني _ واتحدث عن نفسي_ : لا انكر ان البرمجة لا يقف امامها شيء .. ويمكن تحقيق ما اجمع الكل على استحالته ، ولكني لا احب كثرة العمليات البرمجية وما تستصحبه من ادوات ، لاستخراج نتيجة هي قريبة جدا مني .. ناهيك فيما لو كان نوع حقول الترقيم نصية .. طبعا ستزيد المعالجة . يوجد طريقة سهلة بدائية تستفيد من الترقيم التلقائي ولا تعتمده ، وتصلح للترقيم الخاص سواء كان نوع الحقل رقميا او نصيا وهي عمل حقل ترقيم يتم اضافة الترقيم التلقائي اليه عند كل عملية مثلا تكون القيمة الافتراضية للحقل 1000 أو A000 ستكون النتيجة في السجل الأول 1001 او A001 وستتزايد القيمة في السجلات التالية تبعا لقيمة الترقيم التلقائي . شايب راسه ناشف .. عندنا مثل يقول .. كلٍ بعقله راضي الا ماله لا ...

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

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

تمام مادام الحل من خارج اكسس فليس هناك حاجة في ادراج هذا التطبيق مع برنامجك ، يكفي ان تضم المجلد الناتج الى البرنامج فقط ................................... انا هذه محاولتي قد يمكنك .. او احد الاخوة الخبراء من التحسين لما تنقر على الايقونة يتم حفظ صورة الاختصار الى المجلد .. بقي فقط تحويل هذا الاختصار الى ايقونة او صورة 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

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

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