اذهب الي المحتوي
أوفيسنا

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


qathi
إذهب إلى أفضل إجابة Solved by مسفر,

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

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

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

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

تم تعديل بواسطه qathi
رابط هذا التعليق
شارك

Private Sub Name_beforeUpdate()

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

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

name اسم الحقل

mytable  اسم الجدول

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

 

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

نزل مثال عملي 

افضل

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

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

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

رابط هذا التعليق
شارك

  • أفضل إجابة

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

إذا كان حقل ( 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

 

تم تعديل بواسطه مسفر
  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

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