(تمت الاجابة) الحقول الفارغة و ضررها على قاعدة البيانات، وتطبيق النموذج المنبثق

[أبو آدم]

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

أنزلتني منازلاً لست أهلاً لها

فما زلت ألوم نفسي لتقبلي مديحاً ، حتى ظنَّ الإخوة أنني أستمرئُ المديح وتشتاق له نفسي ، وحتى بِتُ ممن يُخشى عليهم الفتنة ... !!!

أقدرُ عالياً كلماتك الطيبة الأخوية العفوية

وأتمنى أن يبقى تسلسل المشاركات كما هو

على أن تختار للموضوع إسماً جديداً يحيط بما إستجد به

شكراً

............

[عبد الفتاح كيرة]

الآن دور الأسئلة

الأكواد واضحة و محترمة جدا

لعلاج الأخطاء

أول سؤال الفاضل ( أبا آدم)

لماذا حقل رقم االموظف بجدول الندب يقبل التكرار

الموظف الواحد ينتدب لجهة واحدة

و إذا تعددت جهات الندب

تكتب الأخيرة

و بالتالى

تكون العلاقة من نوع رأس برأس

و ليس رأس بمتعدد

و يترتب على ذلك

سهولة فى تجنب الأخطاء التى تفضلت بعلاجها مشكورا ( طرق العلاج سننتفع بها إن شاء الله فى مواطن أخرى)

أقصد أن احتمال الخطأ مرده إلى نوع العلاقة

وقبول التكرار فى حقل الرقم بجدول الندب

الآن

كيف سيكون الأمر فى حال كان حقل الرقم فى جدول الندب

مفتاحا أساسيا

وغير قابل للتكرار

أظن سيبدو الأمر أكثر سهولة

هل أنت معى؟

[أبو آدم]

اخي الفاضل

لم أطبق فيما سلف نتائج تحليل مكتمل ... لا بل طبقت فكرة وتصور ...

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

وكذلك الأمر بالنسبة لإعتبار حقل الرقم في جدول الندب

كل ما ورد صحيح ... ودعنا نطبق كيما نقتنع ... !!!

..............

[أبو آدم]

الرقم في جدول الندب مفتاح أساسي لا يقبل التكرار

العلاقة بين الجدولين رأس برأس

تفضل ...

جرب ووافني بالنتيجة ..........

.............

NA_PopUpFormUp.rar

[عبد الفتاح كيرة]

نعم أخى

شكر الله لك

الطرق و المعلومات التى أمددتنا بها قيمة جدا

فى هذا الموضع

وفى غيره

زادك الله علما

سأطبق ما قلته على مواصفات جدول الندب لدى

و إن شاء الله أستفيد منها كثيرا

هذا جدول ندب مدرسين

لا يطلب فيه رصد تحركاتهم بين المدارس

بحيث يعطينا تاريخ حركات الندب للمدرس

لا

بل فقط يعطينا

آخر مكان ندب منه

أو آخر مكان ندب إليه

معلومة فريدة

جزاك الله خيرا على صبرك و إفادتنا

والسلام عليكم

[أبو آدم]

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

الحمدلله الذي بفضله تقضى الحاجات

(تمت الاجابة)

مع تمنيات عموم الفائدة

[عبد الفتاح كيرة]

كتبنا بنفس الوقت

فى الملف الجديد

تطابقت الناحية النظرية

مع الناحية الفعلية

تمام

السؤال

مع هذا التعديل فى خصائص حقل الرقم بجدول الندب

و تغيير نوع العلاقة

هل نطمع فى تخفيض حالة الطوارئ

يعنى تخفيض الأكواد التى احترزنا بها عن الوقوع فى الأخطاء

أم أنه ليس لها أثر ؟

[أبو آدم]

أعجبتني " حالة الطوارئ "

أخشى أخي الحبيب أن قوانين الطوارئ قائمة

وهي لا تضر بل هي صمامات أمان

على أرض الواقع - ومن فضل الله علي - هناك مستخدين كثر للتطبيقات التي أشغلها في شركتي ، لذا أصبح لدي حسّ متطور لتوقع أخطاء و محاولات المستخدمين للتعدي على البيانات ولو من باب العبث أو التحدي أو ....

فدعها كما هي ، وستجدها يوماً ما (مهمة) .... ولو لم تلزمك ،،، لن تضر.

.......

........

[عبد الفتاح كيرة]

لقد استخدمت كل الروتينات الاحتياطية التى أوردتها فى مشاركاتك

و قد شعرت أنها زادت البرنامج قوة و صلابة فى وجه العابثين

و أكثر ما أعجبنى تشغيل sql الحذف قبل الخروج من النموذج الفرعى ( الندب)

إنه يعالج كل الأخطاء

وقد عدلته

بحيث يحذف أى رقم موظف غير موجود فى حقل رقم الموظف فى الجدول الرئيس ( ما رأيك بهذا التعديل؟)

(((NadbInfo.NadbID) Not In (Main!EID)));

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

Dim myitem As Integer

myitem = Me.EID[/b][/color][/size]

[size="4"][color="#008000"][b]

أما الترقيم التلقائى ( مع أن الحقل رقم) فقد كنت أبحث عنه منذ زمن

Me.EID.Value = Nz(DMax("[Eid]", "main") + 1, 1)

قلت لك

إنها أشياء رائعة

و روعتها فى عموم نفعها

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

كما انها طيعة قابلة للتطوير

شكر الله لك

وزادك علما

و إلى لقاء فى استشارات أخرى

تتلوها درر أخرى

تم تعديل مايو 3, 2012 بواسطه أبو لميس

[محمد ايمن]

اخي ابو آدم

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

لي سؤالين

السؤال الأول :

مامعنى هذه الاكواد

If Not Me.NewRecord Then

Dim varXX As Variant

او بالاصح السطر الأول ماهو الشرط و السطر الثاني ماذا تعني variant ؟؟ السؤال الثاني : هل يمكن استخدام معالج الاخطاء ليقوم تغطية نموذج كامل او قاعدة البيانات بأكملها

On Error GoTo Err_Tracker

.........

Exit_Tracker_ASS:

	Exit Sub


Err_Tracker:

	MsgBox Err.Description

	Resume Exit_Tracker_ASS

اقصد هل يمكن ان نضع هذا الكود في وحدة نمطية لتغطي كامل قاعدة البيانات او على الاقل نموذج بأكمله ؟؟

تم تعديل مايو 4, 2012 بواسطه أبو آدم
:احتواء الكود ضمن المحرر

[أبو آدم]

If Not Me.NewRecord Then

اذا لم يكن سجلاً جديداً عندها ....

Variant

متغير ...

أما سؤالك الثاني عن محرر أخطاء للقاعدة كوحدة نمطية سأوافيك به باذن الله

والله منوراء القصد

...........

[أبو آدم]

قلت لك

إنها أشياء رائعة

و روعتها فى عموم نفعها

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

كما انها طيعة قابلة للتطوير

أثلجت صدري بكلامك الطيب

جزيت خيراً

وأسأل الله أن يسخرنا لخدمتكم وإيصال ما علّمنا لكم ... وأن ينفع بنا وبكم ... إنه ولي ذلك والقادر عليه

............

[محمد ايمن]

.

[محمد ايمن]

اخي ابو آدم تحية طيبة

هناك ما لم يتضح لي

على سبيل المثال

dim a as string

تم تعريف a على انه متغير من نوع سسلسة

dim a as date

تم تعريف a على انه تاريخ

dim a as Variant

الآن ماهو نوع Variant ؟؟؟

[عبدالله المجرب]

السلام عليكم

بصراحة كل حروف اللغة لو جمعت في مدحك والثناء على ما تقدمه فلن توفيك

====

بدات احب الاكسس بما تقدمه من حلول

جزاء الله اخينا ابو عمر كل خير على هذا الموضوع

وبصراحة فقد تعلمت الفرق بين نوع العلاقات (راس براس وراس بمتعدد)

بارك الله فيك ابا ادم

[عبد الفتاح كيرة]

جزى الله خيرا أخانا أبا آدم

على هذا النفع العظيم لإخوانه

و أهلا بأخى عبد الله المجرب

و هنيئا لك الفهم الجديد

وفقك الله

و للأخ أيمن

variant

هو متغير متنوع

يخزن فيه

نص

رقم

لكنه يأخذمساحة تخزين أكبر

و الله اعلم

[محمد ايمن]

جزاك الله كل خير اخي ابو لميس

و افهم من كلامك انه مشابه لنوع object

[عبد الفتاح كيرة]

object كائن له خصائص

لكن variant متغير " مخزن للبيانات"

و هو يريحك من اختيار نوع المتغير " نص رقم ..."

تم تعديل مايو 5, 2012 بواسطه أبو لميس

[محمد ايمن]

بارك الله فيك اخي ابو لميس و اشكرك على المعلومة القيمة