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

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


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

الاخوة الافاضل السلام عليكم ورحمة الله وبركاته

اواجه المشكلة التالية ولم اتوصل لحلها

وهي كالتالي

عندي جدول اسمه (جدول) يتكون من

الحقل الاول : الاسم الثلاثي

الحقل الثاني : الجنسية

والحقل الثالث : الفصيلة

الحقل الرابع : رقم الايصال

واريد ان اضع هنا كود لعدم تكرار الرقم مع التنبيه برسالة على (ان هذا الرقم مكرر ارجو التأكد من فضلك ! ) في حقل ( رقم الايصال ) فقط

وجزاكم الله خير

اخوكم ابو عبدالحميد

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

شكرا اخي ثبيت عرب على المساعده

و بالنسبة لعملية إدخال البيانات إلى الجدول طبعاً عن طريق النموذج وليس مباشر جزاك الله خير

افيدونـــــي افادكـــم الله

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

الأخ عبد الحميد

لم توضح اسم مربع النص في النموذج والذي يتم إدخال رقم الايصال فيه ولكن لنفرض أن اسمه text1

إذاً ضع الكود التالي في حدث بعد التحديث لمربع النص

Dim i
i = DLookup("[رقم الايصال]", "جدول", "[رقم الايصال]=[text1]  ")

If i <> "" Then
 MsgBox "رقم الإيصال :" & "(" & i & ")" & "  مسجل سابقاً ... فضلاً تأكد من عدم إدخال رقم مكرر", vbOKOnly, "تنبيه"
SendKeys "{Esc}{Esc}"
End If

بالتوفيق

ثبيت عرب

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

بارك الله فيك اخي الكريم على مجهودك

بالنسبة للكود في مشكله الله يحفطك

اول شي انه رقم الايصال مكرر اللي في الكود الذي ذكرته ماني عارف ان كان اسم الحقل ام اسم النمودج ام اسم الجدول

انا راح اذكر لك اسماء الحقول والنماذج والجداول

وانا غيرت في اسماء الحقول والنماذج و غريتها انجليزي كالتالي :

بالنسبة لأسم الجدول اسمه ( tabel1 )

واسم الحقل في عرض تصميم الجدول كان اسمه رقم الكيس وغريته إلى ( No_ks1 )

وبالنسبة النموذج اسمه ( Banku1 )

وبالنسبة اسم الحقل في النموذج وهو رقم الكيس وغيرته اصبح اسمه الآن ( No_k )

المشكله الثانيه انه بعد ما يعطي رساله تنبيه على ان الرقم مكرر يقوم بمسح المعلومات كلها في السجل الحالي ليش؟

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

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

السلام عليكم :

تفضل الكود بعد التعديل عليه ضعه في حدث بعد التحديث لمربع النص No_k

Dim i
i = DLookup("[ No_ks1 ]", "tabel1", "[ No_ks1 ]=[No_k ]  ")

If i <> "" Then
MsgBox "رقم الإيصال :" & "(" & i & ")" & "  مسجل سابقاً ... فضلاً تأكد من عدم إدخال رقم مكرر", vbOKOnly, "تنبيه"
End If

تم حذف أمرإلغاء السجل فقط وبقي رسالة تنبيه بتكرار القيمة

آمل أن يكون حسب المطلوب

ثبيت عرب

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

اخي الكريم ثبيت عرب والله انك ماقصرت معي بس نفس المشكلة لأنه يعطيني رسالة خطأ ( ديباك) وحاولت اني اعدل الخطأ في الكود ولكن بدون فائدة

وانا ابغى انزل لك الملف ولكن ماني لاقي زر الخيار لتنزيل ملفي هنا في المنتدى كيف ارفق الملف لكي تعدل عليه ؟

جزاك الله الف خير

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

السلام عليكم

سامحني اخي ثبيت عرب عارف اني مسختها معاك والله اتعبتك معي الله يجزاك الف خير

انا الآن ارفقت لك الملف و عنوان الموضوع نفس العنوان الاول... (

(اريد كود عدم تكرار الارقام) )

انا في انتظارك جزاك الله خير

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

على فكرى انا حاولت اني اعدل الخطأ في الكود والحمدلله

اصبح الآن يعطي رسالة على ان هذا الرقم مكرر بس في مشكلة ثانية

انه بعد ما اضغط على زر ( موافق ) في الرسالة يقوم بحفظ البيانات الحالي بالرقم المكرر وينتقل إلى الحقل النشط وانا لا اريده ان يحفظ بالرقم المكرر بل العكس من ذلك بارك الله فيك

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

تم التعديل على المثال بحيث يعطيك رقم الايصال والاسم المسجل به

طبعاً الكود من دروس للأستاذ فهد الدوسري جزاه الله الف خير ...

اتمنى أن يكون حسب المطلوب

__________.rar

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

جزاك الله الف خير الله يسعدك دنيا وآخرة اخي ثبيت عرب نعم هذا المطلوب

واشكر الاستاذ فهد الدوسري على دروسه المفيدة

ونسأل الله ان يجعلها في ميزان حسناتكما

تحياتي لكم

ابو عبدالحميد

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

  • 1 month later...
تم التعديل على المثال بحيث يعطيك رقم الايصال والاسم المسجل به

طبعاً الكود من دروس للأستاذ فهد الدوسري جزاه الله الف خير ...

اتمنى أن يكون حسب المطلوب

<{POST_SNAPBACK}>

نزلت الملف و ما اشتغل معي ممكن تكتب الكود

جزاك الله خيرا

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

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