طلب تعديل في زر الاضافة

[زياد عبد الجليل]

السلام على جميع الاخوة الاعزاء اما بعد : اطلب مساعدتكم في تعديل زر الاضافة بحيث عند ملف به ليست بوكس و مبرمجة عند الضغط في اي سطر تعرض بيانات السطر في التاكس بوكس ولكن هنا عند الضغط على زر الاضافة سيضيف نفس الموظف بنفس الرقم و لكن انا اريد عند عرض هذه البيانات في التاكس بوكس و عكل كليك على زر الاظافة تظهر لي رسالة تقول ان الرقم مسجل و لا يمكنك اضافة هذا الموظف ....ولكم مني فائق عبارات الشكر و الامتنان

تعديل في زر اضافة.rar

[زياد عبد الجليل]

ارجو مساعدتكم

[زياد عبد الجليل]

هل من مجيب 

[أبو حنــــين]

السلام عليكم

هناك مشكلة في تحميل الملف

[زياد عبد الجليل]

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

تعديل في زر اضافة.rar

[أبو حنــــين]

مرحبا

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

[زياد عبد الجليل]

عدم تكرار  رقم التسجيل فقط مثلا شخص يحمل الرقم 2 عند الضغط عليه في الليست بوكس يعرض بياناته في التكس بوكس و لكن عند الضغط على زر الاضافة لا اريده ان يضيفه كمسجل جديد بحيث ساكرر كل مرة نفس الشخص ولكن  اريد عند الضغط على الزر يقول لي ان هذا الرقم مسجل ...و شكرا لك اخي ابو حنين 

تم تعديل يوليو 28, 2016 بواسطه زياد777

[زياد عبد الجليل]

السلام على جميع الاساتذة انا في ورطة سا عدوني

تم تعديل يوليو 30, 2016 بواسطه زياد777

[زياد عبد الجليل]

السلام على الجميع اخوتي لقد و جدت الحل و اود ان اشارككم به و الحل يتمثل في اضافة الكود التالي في زر الاضافة و في بداية تحرير الاكواد :

Dim J As Long
Dim Lg As Long
Dim Ws As Worksheet

  With Sheets("a")
    Lg = .Range("A" & Rows.Count).End(xlUp).Row
    For J = 4 To Lg
      If Me.textbox1 & Me.textbox2 & Me.textbox3 = .Range("A" & J) & .Range("B" & J) & CStr(.Range("C" & J)) Then
        MsgBox "Enregistrement existant"
        Unload Me
        Exit Sub
      End If
    Next J
  End With

يجب عليك فقط تعديل الكود وفق تسميات التاكس بوكس و الشيت عندك .....مع السلامة

تم تعديل يوليو 30, 2016 بواسطه زياد777