عدم تكرار المعلومات المدرجة بشرطين

[زياد الحسناوي]

السلام عليكم

عندي حقلين الاول رقم والثاني الجهة

في حالة تكرار الرقم و من نفس الجهة يظهر تحذير 

مثلا حاليا شركة الرماح تملك رقم 100 مرتين 

Database1.accdb

[شايب]

41 دقائق مضت, زياد الحسناوي said:

مثلا حاليا شركة الرماح تملك رقم 100 مرتين 

استخدم دالة العد

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

Dim x As Integer
x = DCount("*", "table1", "[num]=" & [Num] & "and [from]='" & [From] & "'")
If x > 1 Then
If MsgBox("هذه القيمة مسجلة مسبقا", vbYesNo, "تكرار") = vbYes Then
DoCmd.CancelEvent
Me.Undo
Else
End If
End If

الشايب

[kkhalifa1960]

تفضل أخي محاولتي .

Database1-1.accdb

[زياد الحسناوي]

36 دقائق مضت, شايب said:

استخدم دالة العد

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

Dim x As Integer
x = DCount("*", "table1", "[num]=" & [Num] & "and [from]='" & [From] & "'")
If x > 1 Then
If MsgBox("هذه القيمة مسجلة مسبقا", vbYesNo, "تكرار") = vbYes Then
DoCmd.CancelEvent
Me.Undo
Else
End If
End If

الشايب

شكرا جزيلا تم التجربة على زر والامور تمام ولكن عند وضع الكود بحدث بعد التحديث لا يعمل 

6 دقائق مضت, kkhalifa1960 said:

تفضل أخي محاولتي .

Database1-1.accdb 576 kB · 0 downloads

عاشت ايدك أخي تمام التمام ولكن يجب تغيير اضافة جديد الى كود برمجي وليس مايكرو لان لو تكررت المعلومات ولم اضغط على الحفظ سيحفظ الجدول حتى ولو كان متكرر

[شايب]

17 دقائق مضت, زياد الحسناوي said:

شكرا جزيلا تم التجربة على زر والامور تمام ولكن عند وضع الكود بحدث بعد التحديث لا يعمل 

بل يعمل اخي

الملف مرفق

 

 

Database1(19).accdb

تم تعديل أكتوبر 15, 2023 بواسطه شايب

[kkhalifa1960]

تفضل أخي ولو في أي طلب آخر وافني به .

Database1-2.accdb

[زياد الحسناوي]

19 دقائق مضت, شايب said:

بل يعمل اخي

الملف مرفق

 

 

Database1(19).accdb 404 kB · 2 downloads

تمام مضبوط ولكن توجد مشكلة ال ID بأخذ رقم جديد وعند مسح المعلومات يبدأ من رقم آخر

18 دقائق مضت, kkhalifa1960 said:

تفضل أخي ولو في أي طلب آخر وافني به .

Database1-2.accdb 576 kB · 2 downloads

تمام مضبوط ولكن توجد مشكلة ال ID بأخذ رقم جديد وعند مسح المعلومات يبدأ من رقم آخر

[شايب]

12 دقائق مضت, زياد الحسناوي said:

تمام مضبوط ولكن توجد مشكلة ال ID بأخذ رقم جديد وعند مسح المعلومات يبدأ من رقم آخر

طبيعي لانه ترقيم تلقائي

ولدينا اكثر من طريقة لتلافي ذلك

نجعل الترقيم بالكود باستخدام dmax

او نجعل النموذج غير منضم

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

اخونا الشايب