أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
أحمد يوسف ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil تجميع العديد من الملفات في ملف واحد اكسيل اسئله واجابات


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





كود لمنع التكرار

السلام عليكم مثال : اذا ادخلت رقم الطالب 1 وقمت بتعبئة باقي البيانات واذا اردت التعديل على بيانات نفس رقم الطالب يحتسبة ..



26-02-2020 08:21 مساء
mohammed_ali
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 122
المشاركات : 63
الجنس : ذكر
تاريخ الميلاد : 21-2-1975
قوة السمعة : 99
الاعجاب : 5
 offline 
السلام عليكم
مثال : اذا ادخلت رقم الطالب 1 وقمت بتعبئة باقي البيانات واذا اردت التعديل على بيانات نفس رقم الطالب يحتسبة كود منع التكرار تكرار لرقم الطالب فيقوم بالحذف  
فهل يوجد كود vba لمنع تكرار البيانات عند الإدخال من التيكست بوكس ولا يحدث مشكلة عند التعديل على البيانات حيث يتم حذف رقم الطالب عند التعديل لان الكود يفهمه انه تكرار لنفس الرقم
وهذا هو الكود
Dim a As Long
a=Application.worksheetfunction.countif(sheet1.Range("A:A"),Me.TextBox1.Text)
if a>=1 Then
Me.TextBox1=""
"MsgBox "Please This Number Already submited
End if

ارجو منكم التعديل عليه او وضع كود يناسب المطلوب
                                                                                                                                                        ولكم خالص الشكر والتقدير
 
 




27-02-2020 11:03 مساء
مشاهدة مشاركة منفردة [1]
mohammed_ali
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 122
المشاركات : 63
الجنس : ذكر
تاريخ الميلاد : 21-2-1975
قوة السمعة : 99
الاعجاب : 5
 offline 
look/images/icons/i1.gif كود لمنع التكرار
معذرة الكود صحيح لمن يريد استخدامه اما الخطأ كان من شئ اخر في البرنامج




27-02-2020 11:35 مساء
مشاهدة مشاركة منفردة [2]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 733
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 69
قوة السمعة : 7713
الاعجاب : 31
 offline 
look/images/icons/i1.gif كود لمنع التكرار
الأستاذ / محمد على 
ولتمام الفائدة يا ريت عند مشاركة الأكواد ضعها بين علامة إدراج الكود الموجودة بشريط الأدوات  عند كتابة المشاركة
 لتظهر بالشكل التالى
Dim a As Long
a = Application.WorksheetFunction.CountIf(Sheet1.Range("A:A"), Me.TextBox1.Text)
If a >= 1 Then
Me.TextBox1 = ""
MsgBox "Please This Number Already submited"
End If


أثارت هذه المشاركة إعجاب: YasserKhalil، mohammed_ali،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كود للطباعة علي طابعتين في نفس الوقت halan550
5 57 halan550
اريد كود لعمل نسخة احتياطية من الملف فى الF ويستبدل النسخة الاحتياطية السابقة moonlight
5 100 YasserKhalil
خطأ فى كود البحث فى برنامج لجمعية خيرية أباالحسن
1 73 أباالحسن
تعديل على كود حماية الصفحات ليتم حماية صفحات ماعدا صفحات محددة كما هو بالمرفق ابو طيبه
15 300 ابو طيبه
تعديل على كود الترحيل واستدعاء بيانات من شيت لاخر وعمل قائمة منسدله ابو طيبه
14 513 ابو طيبه

الكلمات الدلالية
لمنع ، التكرار ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 11:59 مساء

أعلن هنا
أعلن هنا
أعلن هنا