رمهان

هذا سؤال بفكرة جديدة ارجو افراده بموضوع مستقل .

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

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

اخي الكريم اعتقد ان مشكلتك تختلف فاعتقد ان التكرار لديك في السجلات هنا ركز : التكرار في نفس السجل الحالي اي مثلا لو هناك حقلين التلفون1 والتلفون 2 للعميل فلا يمكن ادخال رقم هاتفين نفس الرقم في السجل الحالي اتمنى ان وضحت المسالة لديك بالتوفيق

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

حياك الله اخي الكريم الموضوع مش واضح تماما ولكن بنظرتي الاولية لاحظت لك ملاحظتين يمكن تحل المشكلة 1. انت عرفت rs من نوع recordset2 وانت لست بحاجة لهذا النوع فضعه من نوع recordset لتصبح الجملة Dim rs As DAO.Recordset ثم جرب واذا لم تضبط فاليك الماحظة الثانية 2. فتحت الريكورد ست من نوع جدول واعتقد المفروض من نوع dbOpenDynaset لتصبح الجملة Set rs = db.OpenRecordset("الاسماء", dbOpenDynaset) بالتوفيق

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

Private Sub Form_BeforeUpdate(Cancel As Integer) Dim c As New Collection تعرف متغير من نوع كولشن ليتم استخدام وظائفه On Error Resume Next الخطأسيحصل عند تكرار احد القيم For Each ct In Me.Section(0).Controls الدوران على العناصر التي بجزء التفصيل If ct.Tag = "ramhan" Then c.Add ct, ct: i = i + 1 الدوران على العناصر التي التاق لديها باسم رمهان واذا هناك تكرار لن يضيف للقائمة Next If c.Count <> i Then Cancel = MsgBox("يوجد تكرار") this هذا فكرة الحل وهو المقارنة بين عداد عدد العناصر والقيم المضافة فلو حصل تكرار ستكون عدد القيم اقل من عدد الحقول وهذا مؤشر للتكرا End Sub هذا ومارايك بالفكرة استاذ محمد ؟ تحياتي

هذا رابط وجدته اثناء البحث وبه مشاركة http://arabteam2000-forum.com/index.php?/topic/182093-قاعدة-بيانات-تطلب-من-أخرى-الارتباط-بها/ مستخدما دوال ال api العجيب ان اسم صاحب المشاركة قريب من اسمي تنبيه فقط اذا كان لديك 64 بت غير مايلزم بالدالة باضافة ptrsafe كما انبه والله اعلم انه لابد من وجود صلاحية لمستخدمك الحالي وكذلك يمكن يتطلب اعادة تشغيل الكمبيوتر بالتوفيق

تمام استاذ محمد وضحت الصورة هذه محاولة بكود خفيف وما عليك الا لصقه بعدد النماذج واعتقد هذا طبيعي . وفقط ضع خاصية التاق للعناصر المراد ضمها Private Sub Form_BeforeUpdate(Cancel As Integer) Dim c As New Collection On Error Resume Next For Each ct In Me.Section(0).Controls If ct.Tag = "ramhan" Then c.Add ct, ct: i = i + 1 Next If c.Count <> i Then Cancel = MsgBox("يوجد تكرار") End Sub كما ان لي ملاحظة على مشاركاتي السابقة بعدم دقتها وتبقى افكار كما انبه على الحل المقدم من قبلكم استاذ محمد بانه حدد اسماء الحقول في الكود وكذلك عدد التكرار كثير جدا لانه يقارن كل حقل بالاخريات وهكذا بالتوفيق منع تكرار القيمة في نفس السجل.rar

هذه فكره جديده منع تكرار القيمة في نفس السجل.rar

الفكرة اعلاه معليش تحتاج تنقيح ولكن حبيت اتركها للفائدة

جميل استاذ محمد وبوركت ولدي استفسار : لماذا وضع الاجراء في كلاس وليس وحدة نمطية عامة ؟ وهذه مشاركة بفكرة لعل بها فائدة منع تكرار القيمة في نفس السجل.rar

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

تمام استاذ صالح والفكرة حلوة جدا تحياتي

استاذ محمد ايمن (شعلة المنتدى) هل توصلت لحل ؟ اعجبني الموضوع وعند مروري بالصدفة تحياتي

اخي الاستاذ محمد ايمن يبدو ان الخواظر تواردت في نفس اللحظة وهذه فكرة اخرى Private Sub أمر2_Click() For i = 0 To Me.القائمة0.ListCount - 1 Me.القائمة0.RemoveItem 0 Next End Sub تحياتي للجميع

Me.القائمة0.RowSource = "" تحياتي

الفكرة مضمنة اخي محمد في مشاركتي فالتنسيق الشرطي لم يكفي لوحده لاتمام الفكرة كاملة فهناك الكود وتنفيذه بشرط تحياتي لك

عزيزي ابو جمانة كل عام وانتم بخير الخطأ في اسم الحقل . في المعادلة sdate وفي الجدول tdate بالتوفيق

عزيزي واخي الاستاذ ابا جودي بارك الله فيك وكل عام وانتم بخير اولا ثانيا خلينا وحدة وحدة علشان حاسس ان هناك لبس بسيط 1. الحل الذي قدمته يا استاذ ابا جودي هو نفس الفكرة التي انا شاركت بها ولكن مشكلة الكيرسر لديك هي >> انه زر الامر مش راكب تماما فوق مربع النص وانا وضعته اصلا للخروج من هذا المأزق وهو شكل المؤشر بمربع النص . ولكي ترى المشكلة غير خاصية زر الامر شفاف= لا . لترى مكان زر الامر الحقيقي . وبقي خاصية تاثير خاص=بارز او flat لمربع النص ليظهر وكأنه زر امر. 2. ليس هناك مشكلة في لو تغيرت القيمة فانا قمت بحصر الكود بجملة if لكي اضع القيمة المناسبة وفي طلب الاخ محمد سيكون الشرط في التنسيق الشرطي وفي الكود بعدم تنفيذ اي شي هو ان قيمة المربع = 2 . وانا اضفت زيادة القيم كايضاح اكثر بانه يمكن التحكم حتى لو الشرط اكثر من خيار . تحياتي

ضع الكود التالي خلف زر الطباعة وعند حدث عند النقر DoCmd.OpenReport "الموظفين", acViewPreview, , "EVALUATION_no=" & Me.Evaluation!EVALUATION_no ولا تنسى تغيير خاصية منبثق في التقرير الى نعم ليظهر مع النموذج بالتوفيق

لي مشاركة قديمة حول هذا الموضوع ولا اعلم اين وقد تكون بمنتدى اخر والله اعلم وعموما كلام ومشاركة الاساتذة اعلاه صحيح وهذه محاولة بالتنسيق الشرطي . انظر form1 تحياتي للجميع New Microsoft Access Database (4).rar

اعتقد ان السؤال موجه لك اخينا ابو عبدالله ؟ واعتقد انه نعم حيث اخينا ابو عبدالله من الجزائر ! تحياتي للجميع