محمد ايمن

اخي الكريم وضح اكثر

اخي الكريم كما قال لك الاخ احمد اسعفنا ببعض التوضيح

اصدقائي الاكارم المرفق السابق يحتوي خطأ وهو ان الكود يقوم بمقارنة الحقل الاول فقط مع باقي الحقول حتى لو تم استدعاء الكود اكثر من مرة المرفق الجديد يحتوي على تعديلات افضل حيث تم حل مشكلة تحديث بيانات الحقل كما تم منع الكود من مقارنة الحقل مع نفسه ( اي ان الكود لا يقارن الحقل الاول اذا تم ادخال بيانات في الحقل الاول و لا يقارن الحقل الثاني عند ادخال بيانات في الحقل الثاني و هكذا ) هذا هو الكود Sub testFields() On Error Resume Next Dim i, j, k, m As Variant Dim aa As Recordset Set aa = Me.Recordset With aa For i = 0 To .Fields.Count j = .Fields(i) m = .Fields(i).Name For k = 0 To .Fields.Count - 1 If .Fields(k).SourceField <> .Fields(m).SourceField Then If j = .Fields(k) Then MsgBox "الحقل مكرر" Exit Sub End If End If Next k Next i End With End Sub وفي حدث ( بعد التحديث لاي حقل ) Me.Refresh Call testFields كيف يمكنني وضع الكود في وحدة نمطية لاستدعاءه في اي نموذج وهل يوجد اي تعديل يجعل الكود اكثر مرونة و كفاءة منع تكرار القيمة في نفس السجل 3.rar

بعد التفكير و التحليل لبعض تطبيقات الاخوة في النتدى توصلت لهذا الكود ولكن هناك مشكلة عن تغيير القيمة في الحقل حيث ان الكود لا يستجيب للتغيير !!!! بعبارة اصح لنفرض تم ادخال القيمة 10 في الحقل الأول و تم ادخال القيمة 10 في الحقل الثاني الكود يعطي مكرر نغير قيمة الحقل 2 الى 20 يبقى الكود يعطي مكرر ماهو الحل ( بدون استخدام الامر docmd.runcommand accmd saverecord) ؟؟؟؟؟ منع تكرار القيمة في نفس السجل 2.rar

اخي الكريم بالنسبة الى اسئلتك فالاجابة كما يلي : 1 - يجب عليك منع الانتقال بالماوس ( الكود موجود في نموذج و لكنك لم تستعمله كما ان الوحدة النمطية الخاصة بالكود غير موجودة ) 2 - نعم قمت بتعديل بعض الخصائص في بعض الحقول و السبب : رقم الفاتورة لا يجب ان يتكرر - التاريخ ممكن ان يتكرر فانت في يوم واحد قد تعطي 20 فاتورة مبيع !!!!! و ليس فاتورة واحدة فقط اما بقية سؤال فلم افهم شيئا 3 - حدث تعديل تقرير ؟؟؟؟؟ بصراحة لم افهم عن ماذا تتحدث هل يمكنك ان تسعفنا ببعض التوضيح ؟؟؟؟؟؟ 4 - الكود يعتمد على تصميم نموذجك و بتوضيح اكبر اذا كان هناك بعض الحقول يمكن ان تبقى فارغة لسبب او لآخر فلا يمكن تطيبق كود اخينا ابو آدم اما اذا كانت جميع الحقول في نموذج يجب ان تملئ بالبيانات عندها يمكن تطبيق الكود 5 - اخي و معلمي ابو آدم وضع زر امر جديد ووضع الكود فيه حيث يقوم الكود بالاختبار لوجود حقول فارغة و جربت ان اضع الكود عند اغلاق النموذج و الكود يعمل كما يمكن وضع الكود عند اي حدث و لكن يجب ان تنتبه اذا كان هناك اي حقول يمكن ان تبقى فارغة لسبب او لآخر فلا يمكن تطبيق الكود

اصدقائي الاكارم وردت مواضيع كثيرة عن عدم تكرار القيم في السجلات و لكن لم يرد اي موضوع عن تكرار القيمة في سجل واحد المرفق التالي فيه نموذج يحتوي على ثمانية حقول في السجل الواحد وضعت كود لمنع تكرار نفس القيمة في السجل الواحد وهو يعمل و لكن المشكلة ان الكود ( كارثي ) بكل معنى الكلمة If Me.item1 = Me.item2 Then MsgBox "rr" ElseIf Me.item1 = Me.item3 Then MsgBox "rr" ElseIf Me.item1 = Me.item4 Then MsgBox "rr" ElseIf Me.item1 = Me.item5 Then MsgBox "rr" ElseIf Me.item1 = Me.item6 Then MsgBox "rr" ElseIf Me.item1 = Me.item7 Then MsgBox "rr" End If هذا الكود يوضع بعد تحديث الحقل الأول و لمنع التكرار في جمع الحقول يجب ان يوضع في جميع الحقول ( لذلك هو كارثي ) هل من طريقة لتحسين هذا الكود ؟؟؟؟ منع تكرار القيمة في نفس السجل.rar

الف مبروك اخي الكريم و ان شاء الله الاحتراف

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

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

اخي الكريم هذا هو المرفق مع بعض التعديلات غير التي طلبتها ( الجدولين InvoiceHead و InvoiceDetails ) حيث تم تغيير خصائص الحقلين ( no و invoice_no ) الى مفهرس ( بدون تكرار ) تلميحات اخي الكريم عندما تضع رز امر او مربع نص قم بتسميته نسبة الى عمله او القيمة التي يحويها مثال : زر اغلاق النموذج سمه clos او exit كي تسهل على نفسك و علينا معرفة وظيفة الزر حاول الابتعاد عن تسمية الازرار او الحقول باسماء عربية ( السبب طبعا هو صعوبة التبديل بين اللغة العربية و الانكليزية في محرر الفيجوال بيسك ) واخيرا و ليس آخرا انا بانتظار ردك على التعديلات حتى نكمل الموضوع ملاحظة : الحقل تفقيط سيعطيك ( خطأ ) في البداية ولكن عند اصدار فاتورة جديدة او العودة الى فاتورة قديمة سيعطيك قيمة الفاتورة كتابة MAWAD2.rar

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

اخي أبو آدم بعد تسجيل الاداة المرفق يعمل بشكل نظامي 100 % ولكن بقي زر فتح التقرير ( انظر المشاركة 16 ) بصراحة لم افهم عمل هذا الزر !

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

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

جزاك الله كل خير اخي ابو لميس و افهم من كلامك انه مشابه لنوع object

اخي الكريم كما قال لك الاخ ابو آدم الطلبات كثيرة لذلك قم بتقسيمها و سيساعدك الجميع انشالله لماذا لا تبدأ ب الطلب 1 - 4 حدد النماذج و الحقول المطلوب التعديل عليها و سأبدأ التطبيق ثم نكمل مشوارنا بإذن الله

معلومة جديدة بالنسبة لي جزاك الله كل خير و جزاك الجنة ان شاء لله يا ابا خليل

اخي ابو آدم تحية طيبة هناك ما لم يتضح لي على سبيل المثال dim a as string تم تعريف a على انه متغير من نوع سسلسة dim a as date تم تعريف a على انه تاريخ dim a as Variant الآن ماهو نوع Variant ؟؟؟

.

اخي ابو آدم جزاك الله خير ( وقد بدأت اشعر بأن هذه العبارة لا تعطيك جزء من حقك ولكن خوفا من سوء الفهم لن استفيض بالمديح ) لي سؤالين السؤال الأول : مامعنى هذه الاكواد 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 اقصد هل يمكن ان نضع هذا الكود في وحدة نمطية لتغطي كامل قاعدة البيانات او على الاقل نموذج بأكمله ؟؟

اخي الكريم الفضل لله عز وجل اولا و آخرا ولا شكر على واجب

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

جرب المرفق التالي اخي الكريم Office3.rar

بسم الله ما شاء الله عمل رائع جدا جزاك الله كل خير ووفقك الى ما يحبه و يرضاه

عفوا هذا المرفق نسخة تجريبية بواسطة الربط مع الريجستري.rar