qathi قام بنشر يوليو 4, 2019 مشاركة قام بنشر يوليو 4, 2019 (معدل) عند التاكد من وجود نفس الرقم من جدول يتم عمل الكود التالي If DCount("SuID", "[Contacts_T]", "[SuID]= " & Me.SupplierID) > 0 Then MsgBox "كود المورد موجود في دليل الهاتف", vbCritical, "تنبية" فكيف سيكون في الحالة النصية للتاكد من وجود اسم معين في جدول قبل حفظ البيانات ؟؟؟ تم تعديل يوليو 4, 2019 بواسطه qathi رابط هذا التعليق شارك More sharing options...
AlwaZeeR قام بنشر يوليو 4, 2019 مشاركة قام بنشر يوليو 4, 2019 If DCount("*", "[Contacts_T]", "[TxtField]=' " & Me.TxtField & "'") > 0 Then MsgBox "كود المورد موجود في دليل الهاتف", vbCritical, "تنبية" Untested 2 رابط هذا التعليق شارك More sharing options...
qathi قام بنشر يوليو 4, 2019 الكاتب مشاركة قام بنشر يوليو 4, 2019 شكرا أخي @AlwaZeeR على ردك لكن الكود لا ياتي بالنتيجة المطلوبة رابط هذا التعليق شارك More sharing options...
عبد اللطيف سلوم قام بنشر يوليو 4, 2019 مشاركة قام بنشر يوليو 4, 2019 Private Sub Name_beforeUpdate() If DCount("Name", "MyTable", "[Name]=" & Me.name) > 0 Then MsgBox " هذا الاسم تم تكراره سابقا" cancel=true End If end sub name اسم الحقل mytable اسم الجدول me.name الاسم حسب النموذج ضع هذا الكود في حدث قبل التحديث واحذف اول سطر لانه رح يتكرر او انسخ الكود كما هو والصقه 1 رابط هذا التعليق شارك More sharing options...
qathi قام بنشر يوليو 4, 2019 الكاتب مشاركة قام بنشر يوليو 4, 2019 شكرا استاذ @عبد اللطيف سلوم على ردك .. لكن الكود يظهر خطاء 1 رابط هذا التعليق شارك More sharing options...
عبد اللطيف سلوم قام بنشر يوليو 4, 2019 مشاركة قام بنشر يوليو 4, 2019 6 دقائق مضت, qathi said: شكرا استاذ @عبد اللطيف سلوم على ردك .. لكن الكود يظهر خطاء نزل مثال عملي افضل والكل رح يساعدك هذا الكود شغال على احدى برامجي انت ما اعرفت تضعه صح رابط هذا التعليق شارك More sharing options...
qathi قام بنشر يوليو 4, 2019 الكاتب مشاركة قام بنشر يوليو 4, 2019 يكون الخير فيما اختارة الله سأحول غدا ارفاق ملف لاني اقوم بالتطبيق في البرنامج مباشرة 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة مسفر قام بنشر يوليو 4, 2019 أفضل إجابة مشاركة قام بنشر يوليو 4, 2019 (معدل) جرب هذا الكود في زر إضافة إذا كان حقل ( 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 بواسطه مسفر 1 1 رابط هذا التعليق شارك More sharing options...
qathi قام بنشر يوليو 4, 2019 الكاتب مشاركة قام بنشر يوليو 4, 2019 الله ينور عليك أخي @مسفر بالفعل نجح الأمر معي رابط هذا التعليق شارك More sharing options...
مسفر قام بنشر يوليو 4, 2019 مشاركة قام بنشر يوليو 4, 2019 حياك الله أخي العزيز الحمدلله الذي بنعمته تتم الصالحات رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.