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

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


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





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

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



26-02-2020 08:21 مساء
mohammed_ali
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 122
المشاركات : 69
الجنس : ذكر
تاريخ الميلاد : 21-2-1975
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 109
 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
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-08-2017
رقم العضوية : 122
المشاركات : 69
الجنس : ذكر
تاريخ الميلاد : 21-2-1975
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 109
 offline 
look/images/icons/i1.gif كود لمنع التكرار
معذرة الكود صحيح لمن يريد استخدامه اما الخطأ كان من شئ اخر في البرنامج

27-02-2020 11:35 مساء
مشاهدة مشاركة منفردة [2]
محمد الدسوقى
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 827
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 79
يتابعهم : 9
يتابعونه : 765
قوة السمعة : 8651
عدد الإجابات: 8
 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





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


 










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

الساعة الآن 07:37 صباحا