منذر عساج

شاهد المثال التالي للاخ مسافر وحاول الإستفادة منه gfx_mosafer.zip

من خصائص الحقل في الجدول وفي خانة القيمة الإفتراضية ضع الكود التالي : Date()

بعد أذن اخي رضوان السبب هو أنك لم تقم بحذف السجلات بالكامل من الجدول بل قمت بحف البيانات فقط وبقية السجلات موجودة ولكنها فارغة ولذلك تظهر في النموذج كسجلات فارغة .

وهذا في ما يخص الفقرة الثانية __________.rar

هل هذا ما تريد ________________________.rar

أتمنا أن يكون هذا ما تريد شاهد استعلام Q1 mohammed.rar

تم التعديل في ما يخص الفقرة الاولى وسيتم التعديل في الفقرة الثانية لاحقاً __________.rar

اليك المثال التالي لأحد الأخوان ربما يفيدك __________________.zip

اخي أبو فراس حجاً مبروراً وذنباً مغفور بأذن الله وأعتذر عن التأخير 1) تم التعديل ليقوم بحفظ الرتبة في الجدول (جدول الأفراد). 2) النماذج لا يمكن ان تكون مصدر لتقرير لأنها للعرض فقط ولكن يمكن عمل التقرير باللإعتماد على جدول ( جدول الافراد ) مباشرة . 3) النقطة الثالثة غيرواضحة هل بالتوضيح . والله الموفق ,,, __________.rar

أعتقد أن ما يظهر لديك هي كائنات النظام ولإخفائها إذهب الى أدوات - خيارات - عرض - أزل علامة الصح من أمام كائنات النظام .

حباً وكرامة اخي الكريم سأشرح لك ما قمنا به : 1) تم التعديل على نموذج الإتصالات مباشرة بعد تغيير مسميات الحقول من العربية الى الإنجليزية للسهولة . 2) قمنا بوضع الكود التالي في حدث عند التحميل للنموذج لتأمين الحقول : atsalID.Enabled = False atsalID.Locked = True atsalname.Enabled = False atsalname.Locked = True fname.Enabled = False fname.Locked = True lname.Enabled = False lname.Locked = True lakab.Enabled = False lakab.Locked = True jop.Enabled = False jop.Locked = True comname.Enabled = False comname.Locked = True adress.Enabled = False adress.Locked = True regon.Enabled = False regon.Locked = True sity.Enabled = False sity.Locked = True box.Enabled = False box.Locked = True codebox.Enabled = False codebox.Locked = True tel1.Enabled = False tel1.Locked = True tel2.Enabled = False tel2.Locked = True fax.Enabled = False fax.Locked = True tel3.Enabled = False tel3.Locked = True mail.Enabled = False mail.Locked = True atsalgood.Enabled = False atsalgood.Locked = True note.Enabled = False note.Locked = True mndopname.Enabled = False mndopname.Locked = True 3) قمنا بوضع الكود التالي في حدث عند النقر لزر (تحديث) لفك التامين على السجلات : atsalID.Enabled = True atsalID.Locked = False atsalname.Enabled = True atsalname.Locked = False fname.Enabled = True fname.Locked = False lname.Enabled = True lname.Locked = False lakab.Enabled = True lakab.Locked = False jop.Enabled = True jop.Locked = False comname.Enabled = True comname.Locked = False adress.Enabled = True adress.Locked = False regon.Enabled = True regon.Locked = False sity.Enabled = True sity.Locked = False box.Enabled = True box.Locked = False codebox.Enabled = True codebox.Locked = False tel1.Enabled = True tel1.Locked = False tel2.Enabled = True tel2.Locked = False fax.Enabled = True fax.Locked = False tel3.Enabled = True tel3.Locked = False mail.Enabled = True mail.Locked = False atsalgood.Enabled = True atsalgood.Locked = False note.Enabled = True note.Locked = False mndopname.Enabled = True mndopname.Locked = False 4) قمنا بوضع الكود التالي في حدث قبل التحديث للنموذج لمنع الحفظ التلقائي : If MsgBox(" هل تريد حفظ التغييرات ", vbYesNo, _ " تأكيد الحفظ") = vbNo Then Cancel = True SendKeys "{ESC}" Exit Sub End If والله الموفق ,,, help.rar

وهذا ما تم بالفعل على نموذج (المدن ) جرب تطبيقه على اي نموذج آخر

اخي الكريم يبدوا أن البرنامج لديك من النوع DEMO اي تجريبي وهو يعمل لفترة محددة ثم يقوم بحف نفسه تلقائياً بعد إنتهاء الفترة المحددة

أخي الكريم لا شكر على واجب ومرحباً بك بالنسبة لزري التحديث وإضافة سجل جديد تم التعديل في نموذج ( المدن) وإذا كنت تريد أن يكون التحديث عبر كلمة سر شاهد الكود على الرابط للاخ / رضوان طلب كلمة سر لحفظ التعديلات وهذا مثال جميل للاستاذة /زهرة لمنع الحفظ التلقائي help.rar NO_AUTO_SAVE_UP.rar

أخي الكريم هذا إقتباس من مشاركة للإستاذة / زهرة عن نفس الموضوع

أخي الكريم لو فهمت فكرة عمل النموذج لإستطعت تطبيقها كما تريد : 1- أنشأ إستعلام يعتمد على الجدول الإتصالات في خانة معايير للمندوب المبيعات ضع الكود التالي : [forms]![search1]![name1] 2- صمم نموذج يعتمد على الإستعلام السابق (atsalat) 3- صمم نموذج أخر ضع فيه مربع نص غير منضم سمه name1 - وضع زر أمر لفتح نموذج الإتصالات 4 - احفظ النموذج الجديد بأسم search1 الأن أدخل الأسم في مربع النص وأضغط على الزر لفتح النموذج الآخر . يمكن أن تضع نفس الكود تحت معاير المدينة والبلد للتحديد أكثر وبفس الطريقة السابقة مع تغيير أسم مربع النص وعلى الرابط التالي نموذج بحث مطور للمبدع أبو هادي : نموذج بحث مطور وبالنسبة لوضع الصلاحيات فعليك ببرنامج المبدع الآخر مهند عبادي على الرابط التالي : برنامج صلاحيات المستخدمين وكل عام والجميع بألف خير,,,

يمكن ذلك عن طريق وضع الكود التالي في حدث بعد التحديث للقيمة المراد معرفة التكرار فيها If (Eval("DLookUp(""[name1] "",""[noname]"",""[name1]=form![name1]"") Is Not Null")) Then MsgBox "هذا الإسم موجود من قبل !" End If شاهد المرفق db1.rar

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

الحل في الإستعلام شاهد المرفق db1.rar

اخي الكريم تم عمل بعض التعديلات النتيجة الأن قريبة عدل بما تراه مناسب مع مراعة التأكد من عدد ايام السنة الهجرية بالضبط وكل عام وأنت والجميع بخير ,,,, __________.rar

أضف الدالة nz قبل الجمع لإعتبار القيمة الخالية ( صفر) شاهد التعديل exm1.rar

أخي الكريم لديك خطأ في احتساب عدد النقاط فعدد النقاط = عدد الأيام مقسوم على عدد أيام السنة الهجرية ( لما تضرب الناتج في 2) مثلاً عدد نقاط - علي الاسمري (3.30) بمعنى أن الفارق بسيط

اليك ما تريد help.rar

اخي الكريم على الرابط التالي تجد ما تريد : تجزئة الإسم الرباعي الى أربع خانات

أخي الكريم راجع الروابط التالية : تفقيط1 تفقيط2 تفقيط3 تفقيط4 وفي المثال المرفق إختصار لملف الأستاذ أبو هادي قم بإستراد الوحدة النمطية ونسخ ولصق مربعي النص في النموذج الى نموذجك _____.rar