اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

  • 3 weeks later...
قام بنشر

اخواني الكرام

لنفترض ان لدي جدول PatientTbl  به حقل PtName

وجدول OrdersTbl به حقل تاريخ ويرتبط الجدولان بعلاقة واحد الى متعدد حيث المفتاح الرئيسي بالجدول الاول PatientTbl 

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

تحت حدث اضافة سجل جديد الى النموذج الفرعي وضعت الكود التالي

Dim Uvar1 As Variant
Uvar1 = DCount("PtName", "PatientTbl", "[PtName]=[forms]![mainfrm]![PtName] and [OrderDate]=Forms![MainFrm]![OrdersSubFrm].Form![OrderDate] ")
If Uvar1 > 0 Then
MsgBox"Reapeted Name"
Me.Undo
End If

لم يعمل الكود معي جيدا

حيث تظهر لي رساله Reapeted Name كلما نقرت على الزر

عدلت الكود الى

If Uvar1 > 1 Then

فظلت الرسالة تظهر لي كلما حاولت اضافة اسم ولو في فترات سابقة ( ليست في هذا اليوم )

 

مالحل برأيكم ؟

قام بنشر

عمل رائع

 

لكن هب :

انني ادخلت اسم العميل برقم جديد (سجل جديد ) وادخلت له تاريخ في النموذج الفرعي مكرر ، بمعنى اخر ان الاسم تكرر في النموذج الرئيس وكذلك تم اضافة تاريخ مكرر له ؟

مثال

العميل  احمد   برقم 4

وبتاريخ 01/11/2016

 

وتم اضافة سجل جديد

العميل    احمد   برقم  9

وبتاريخ  01/11/2016

 

اريد رسالة تنبهني بأن اسم هذا العميل موجود في هذا التاريخ

 

 

ارجو ان يكون طلبي مفهوما

قام بنشر (معدل)
19 ساعات مضت, محمد ايمن said:

تفضل اخي الكريم

 

 

قاعدة بيانات2.rar

جزاك الله خيرا اخي واشكر تفاعلك معي

 

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

لكن الذي اريده هو رسالة تنبيه تفيدني ان هذا الاسم مكرر بهذا التاريخ بعد ادخال التاريخ في النموذج الفرعي .

 

هل يمكن استخدام استعلام البحث عن التكرار لهذا الغرض وكيف ؟

تم تعديل بواسطه كوماندير
قام بنشر (معدل)
49 دقائق مضت, محمد ايمن said:

تفضل اخي الكريم

في المرفق استعلام لاظهار الاسماء المكررة

كما تم تعديل مشكلة منع تكرار الاسم

قاعدة بيانات3.rar

بعد العديد من المحاولات نجحت في تعديل الكود الذي وضعته عزيزي محمد ايمن

وبعد التعديل عمل الكود كما اريد بالضبط ولكن تحت حدث بعد التحديث لحقل التاريخ في النموذج الفرعي .

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

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


بالنسبة لاستعلام البحث عن التكرار الذي كنت اقصده هو كما في مثالي المرفق استعلام  Q2 فهل يمكن تحويل هذا الاستعلام الى جملة SQL واستنباط رسالة التكرار من نتيجة الاستعلام بدلا عن استخدام Dcount

ارجو وضع لمساتك

FindDuplicatesDb.rar

 

تم تعديل بواسطه كوماندير

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information