كود التاكد من وجود اسم في جدول

[qathi]

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

If DCount("SuID", "[Contacts_T]", "[SuID]= " & Me.SupplierID) > 0 Then
MsgBox "كود المورد موجود في دليل الهاتف", vbCritical, "تنبية"

فكيف سيكون في الحالة النصية للتاكد من وجود اسم معين في جدول قبل حفظ البيانات ؟؟؟

تم تعديل يوليو 4, 2019 بواسطه qathi

[AlwaZeeR]

If DCount("*", "[Contacts_T]", "[TxtField]=' " & Me.TxtField & "'") > 0 Then
MsgBox "كود المورد موجود في دليل الهاتف", vbCritical, "تنبية"

Untested

 

[qathi]

شكرا أخي @AlwaZeeR على ردك 

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

[عبد اللطيف سلوم]

Private Sub Name_beforeUpdate()

    If DCount("Name", "MyTable", "[Name]=" & Me.name) > 0 Then

     MsgBox "    هذا الاسم تم تكراره سابقا"
cancel=true
        End If
end sub

name اسم الحقل

mytable  اسم الجدول

me.name  الاسم حسب النموذج

 

ضع هذا الكود في حدث قبل التحديث

واحذف اول سطر لانه رح يتكرر

او انسخ الكود كما هو والصقه

[qathi]

شكرا استاذ @عبد اللطيف سلوم

على ردك  .. لكن الكود يظهر خطاء 

[عبد اللطيف سلوم]

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

شكرا استاذ @عبد اللطيف سلوم

على ردك  .. لكن الكود يظهر خطاء 

نزل مثال عملي 

افضل

والكل رح يساعدك

هذا الكود شغال على احدى برامجي 

انت ما اعرفت تضعه صح

[qathi]

يكون الخير فيما اختارة الله

سأحول غدا ارفاق ملف

لاني اقوم بالتطبيق في البرنامج مباشرة

[مسفر]

جرب هذا الكود في زر إضافة 

إذا كان حقل ( SuID ) نص وليس رقم 

If DCount("[SuID]", "[Contacts_T]", "SuID ='" & [Forms]![Contacts_T]![SupplierID] & "'") > 0 Then
 
   MsgBox "عذرا الاسم مكرر تاكد من عدم التكرار  ", vbMsgBoxRight + vbCritical, ""
                        Me.Undo
            Me![SupplierID].SetFocus
         Exit Sub
End If

 

تم تعديل يوليو 4, 2019 بواسطه مسفر

[qathi]

الله ينور عليك أخي @مسفر بالفعل نجح الأمر معي

[مسفر]

حياك الله أخي العزيز 

الحمدلله الذي بنعمته تتم الصالحات