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

[اأبو مصطفى]

لدي برنامج عملته لكن المشكلة التي تواجهني فيه هي عند اضافة قيد مكرر عن طريق الخطأ  وذلك باضافة رقم المادة  بشكل مكرر عن طريق الخطأ فانني لا استطيع الاستمرار بالادخال وتواجهني مشكلة التعليق في البرنامج اي البرنامج يقف عن التنفيذ كيف اقضي على هذه الحالة علما ً انني استخدمت الدالة dcount  للدلالة على القيد المكرر ولكن دون فائدة وهذا البرنامج المرفق يوضح ذلك  حيث عند الدخول على فورم 2وكتابة رقم الدواء بشكل مكرر فان المشكلة تكون واضحة  مع الشكرالجزيل

 

برنامج الصيدلية - Copy.rar

تم تعديل مارس 21, 2016 بواسطه اأبو مصطفى

[عبدالرحمن هاشم]

وجرب أيضا أن تضع هذا الكود في حدث بعد التحديث للحقل Itemid في النموذج الفرعي fsub

Dim x
x = DLookup("[itemid]", "tab_item", "[itemid]=[itemid]")
If Not IsNull(x) = True Then
MsgBox "كود الصنف المدخل" & " ( " & [itemid] & " ) " & "مسجلاً من قبل.. من فضلك أدخل رقم آخر", vbCritical, "تنبيه"
Undo
Else: Exit Sub: End If

 

[اأبو مصطفى]

8 ساعات مضت, عبدالرحمن هاشم said:

وجرب أيضا أن تضع هذا الكود في حدث بعد التحديث للحقل Itemid في النموذج الفرعي fsub

Dim x
x = DLookup("[itemid]", "tab_item", "[itemid]=[itemid]")
If Not IsNull(x) = True Then
MsgBox "كود الصنف المدخل" & " ( " & [itemid] & " ) " & "مسجلاً من قبل.. من فضلك أدخل رقم آخر", vbCritical, "تنبيه"
Undo
Else: Exit Sub: End If

 

السلام عليكم اخي العزيز

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

[عبدالرحمن هاشم]

معذرة أخي تفضل

حيث قمنا بتغيير مسمى itemid في النموذج الفرعي إلى itemidx وأصبح الكود هكذا

Dim x
x = DLookup("[itemid]", "tab_item", "[itemid]=[itemidx]")
If Not IsNull(x) = True Then
MsgBox "كود الصنف المدخل" & " ( " & [itemid] & " ) " & "مسجلاً من قبل.. من فضلك أدخل رقم آخر", vbCritical, "تنبيه"
Undo
Else: Exit Sub: End If

 

برنامج الصيدلية - Copy.rar

[اأبو مصطفى]

منذ ساعه, عبدالرحمن هاشم said:

معذرة أخي تفضل

حيث قمنا بتغيير مسمى itemid في النموذج الفرعي إلى itemidx وأصبح الكود هكذا

Dim x
x = DLookup("[itemid]", "tab_item", "[itemid]=[itemidx]")
If Not IsNull(x) = True Then
MsgBox "كود الصنف المدخل" & " ( " & [itemid] & " ) " & "مسجلاً من قبل.. من فضلك أدخل رقم آخر", vbCritical, "تنبيه"
Undo
Else: Exit Sub: End If

 

برنامج الصيدلية - Copy.rar

السلام عليكم اخي العزيز

بارك الله فيك وحفظك الله انني اشكرك كثيرا ً على الحل لقد حلت المشكلة  وفقك الله مع الشكرالجزيل

[عبدالرحمن هاشم]

18 دقائق مضت, اأبو مصطفى said:

السلام عليكم اخي العزيز

بارك الله فيك وحفظك الله انني اشكرك كثيرا ً على الحل لقد حلت المشكلة  وفقك الله مع الشكرالجزيل

وعليكم السلام ورحمة الله

الحمد لله الذي تتم بنعمته الصالحات.. وإياكم أخي الكريم أبو مصطفى