عدم التكرار بشرط تشابه ثلاثة حقول معا

[الرهوي]

السلام عليكم 

وكل عام وانتم بخير ومن المقبولين ان شاء الله

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

ولكم جزيل الشكر مقدما

Database1.rarFetching info...

تم تعديل مايو 24, 2020 بواسطه الرهوي

[أبوبسمله]

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

اخى الرهوى كل عام وانت والاهل طيبيين وبالف خير عيدكم مبارك

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

 

وهذا ايضا

 

حاول وان لم تعرف قل لنا اين توقفت حتى نرشدك ونتعلم معك

بالتوفيق اخى

[الرهوي]

اشكرك على تجاوبك

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

يعني الحقل الاول (رمز الرحلة) يعدي والحقل الثاني (رقم الرحلة) ايضا يعدي ويكون الفيصل للحقل الثالث (تاريخ الرحلة)

لانه كما تعلمون  مستحيل ان يتكرر رمز الرحلة ورقمها في نفس اليوم

Dim rst As Recordset
Set rst = Me.RecordsetClone

rst.MoveFirst
Do Until rst.EOF
If rst!rm = Me!rm And rst!num = Me!num And rst!Date_f = Me!Date_f Then

MsgBox " الرحلة مدخلة مسبقا ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " تنبيه"
Me.Undo
DoCmd.CancelEvent
Exit Do
End If
rst.MoveNext
Loop
rst.Close

 

 

[الحلبي]

استاذ / @الرهوي

محاولة منى ومشاركة مع استاذى ومعلمى / @أحمد الفلاحجى

تابع المرفق وبعد تحديث التاريخ

Database1.accdbFetching info...

[أبوبسمله]

  في 24‏/5‏/2020 at 19:53, حلبي said:

استاذ / @الرهوي

محاولة منى ومشاركة مع استاذى ومعلمى / @أحمد الفلاحجى

تابع المرفق وبعد تحديث التاريخ

Database1.accdb 432 kB · 0 تنزيلات

Expand  

جزاك الله خيرا على المشاركه اخى محمد 💐

لكن هل قمت بتجربته    هههههه جربته على عجاله ولم اتمعن فارجو السموحه

حبيبى اخى محمد @حلبي وجزاك الله خيرا 💐

اتفضل اخى الرهوى المثال الاول بتعديل من كود اخى واستاذى جعفر جزاه الله خيرا

المرفق الثانى بتعديل بالكود فالموضوع الثانى لاخى واستاذى فهد جزاه الله خيرا

ان شاء الله يكون ما تريد

بالتوفيق اخوانى

Database1(1).rarFetching info... Database1.rarFetching info...

تم تعديل مايو 24, 2020 بواسطه أحمد الفلاحجى

[husamwahab]

السلام عليكم احبتي

كل عام وانتم بالف خير

مشاركة مع اساتذتي

Root50.rarFetching info...

[الحلبي]

وانت بالف خير استاذنا / @husamwahab

رهيب جدا هذا الكود وصغير جدا ولكن ممكن توضيح من حضرتك بعض الشئ

الذى فهمته  من الكود : If DataErr = 3022 Then

انه فى حالة خطأ فى الداتا الاستجابة تساوى صفر لكن ما معنى الرقم 3022 وهل لوكتبته لاى كود يعطى نفس المعنى

جزاكم الله خيرا

 

[الرهوي]

يعطيكم العافية جميعا والف شكر

[husamwahab]

حياك الله حبيبي استاذ حلبي

نعم كلامك صححيح استاذنا العزيز 

الكود يتعامل مع البيانات الخاطئة والتي هي التكرار لسجل لا يجب تكراره او حقل مطلوب عندما يترك فارغا  

لذا يجب تغيير الحقول المطلوبة الى حقل مفتاح رئيسي 

 

[أبوبسمله]

  في 24‏/5‏/2020 at 22:55, husamwahab said:

السلام عليكم احبتي

كل عام وانتم بالف خير

مشاركة مع اساتذتي

Root50.rar 41.68 kB · 4 تنزيلات

Expand  

جزاك الله خيرا اخى حسام وكل عام وانت بخير عيدكم مبارك 🌷

لم اطلع عالمثال لاتعلم منه الى الان سوف اطلع عليه بعد اكمال عمليه تحديث وتثبيت الاوفيس ان شاء الله

 

[الحلبي]

اشكرك استاذنا الفاضل /  @husamwahab

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

بارك الله فيك وجعله فى ميزان حسناتك ان شاء الله

[أبوبسمله]

احسنت اخى حسام @husamwahab وجزاك الله خيرا 🌷

اخى محمد @حلبي اهديك هذه الهديه البسيطه عندى منذ زمن وتقريبا حملتها من موضوع لام عهود جزاها الله خيرا

وستجد العديد من الامثله مثله فجزاهم الله خيرا

الهديه عباره عن جدول بالاخطاء رقمها وتفاصيل عنها

ان شاء الله تنتفع بها وجميع اخوانى

بالتوفيق اخوانى

تغيير رسائل الخطا المبنية في الاكسس برسائل خاصة.rarFetching info...

[الحلبي]

استاذنا الجميل / @أحمد الفلاحجى

والله الذى ننتفغ به هو وجودك معنا دائما وتقديم كل الامكانيات لمساعدة الاخرين

جزاك الله خير يا اطيب قلب عرفته فى المنتدى  وبارك الله فيك

 

[أبوبسمله]

  في 25‏/5‏/2020 at 19:00, حلبي said:

استاذنا الجميل / @أحمد الفلاحجى

والله الذى ننتفغ به هو وجودك معنا دائما وتقديم كل الامكانيات لمساعدة الاخرين

جزاك الله خير يا اطيب قلب عرفته فى المنتدى  وبارك الله فيك

Expand  

جزاك الله خيرا وبارك الله فيك على شعورك الطيب 🌷

وجزا الله خيرا جميع اخواننا واساتذتنا 🌷