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

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


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





مشكلة كود حفظ تعديل البيانات في اليوزرفورم

السلام عليكم اعضاء المنتدى الكرام عندي مشكلة عند التعديل على بيانات الموظف في واجهة اليوسرفورم واقوم بالضغط على زر (تعدي ..


موضوع مغلق


13-03-2022 09:12 مساء
شبل
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 02-01-2020
رقم العضوية : 17346
المشاركات : 50
الجنس : ذكر
تاريخ الميلاد : 4-6-1976
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 47
 offline 

السلام عليكم اعضاء المنتدى الكرام
عندي مشكلة عند التعديل على بيانات الموظف في واجهة اليوسرفورم واقوم بالضغط على زر (تعديل) تظهر رسالة (هذا الرقم مكرر في صفحة كذا سيتم حذفه) وبعد الضغط على زر (OK) تظهر رسالة (تم حفظ البيانات بنجاح) ولكن الاحظ بانه تم حذف الرقم الموجود في خلية (رقم الامر)
يرجى مساعدتي في تعديل الكود بحيث لا يحذف الرقم اذا كان موجود في خلية (رقم الامر)
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  ملاك 2022.xlsb   تحميل xlsb مرات التحميل :(9)
الحجم :(3603.181) KB



أفضل إجابة مقدمة من soufisamchi وهي:
عدل الكود كما يلي :
Private Sub CommandButton4_Click()
Dim C As Range
Application.EnableEvents = False
  Application.ScreenUpdating = False
    With Ws
    If TextBox6 = "" Then MsgBox "المرجو ادخال الرمز في المربع الاصفر": Exit Sub
        For Each C In .Range("b2:b" & LR)
           If C = Val(IIf(TextBox6 <> TextBox1, Me.TextBox1, Me.TextBox6)) Then
             .Cells(C.Row, 2).Value = TextBox1.Text
             .Cells(C.Row, 3).Value = TextBox2.Text
             .Cells(C.Row, 4).Value = TextBox3.Text
             .Cells(C.Row, 5).Value = ComboBox2.Text
             .Cells(C.Row, 6).Value = TextBox5.Text
             .Cells(C.Row, 7).Value = ComboBox1.Value
             .Cells(C.Row, 8).Value = TextBox8.Text
             .Cells(C.Row, 9).Value = TextBox9.Text
             .Cells(C.Row, 10).Value = TextBox10.Text
             .Cells(C.Row, 11).Value = TextBox11.Text
          End If
        Next C
    End With
    ThisWorkbook.Save
    MsgBox "تم تعديل البيانات بنجاح"
    Me.TextBox6 = IIf(TextBox6 <> TextBox1, Me.TextBox1, Me.TextBox6)
 Application.EnableEvents = True
  Application.ScreenUpdating = True
 End Sub
 
عرض الإجابة




17-03-2022 10:16 مساء
مشاهدة مشاركة منفردة [1]
soufisamchi
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-07-2018
رقم العضوية : 7354
المشاركات : 29
الجنس : ذكر
تاريخ الميلاد : 1-1-1980
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 170
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif مشكلة كود حفظ تعديل البيانات في اليوزرفورم
عدل الكود كما يلي :
Private Sub CommandButton4_Click()
Dim C As Range
Application.EnableEvents = False
  Application.ScreenUpdating = False
    With Ws
    If TextBox6 = "" Then MsgBox "المرجو ادخال الرمز في المربع الاصفر": Exit Sub
        For Each C In .Range("b2:b" & LR)
           If C = Val(IIf(TextBox6 <> TextBox1, Me.TextBox1, Me.TextBox6)) Then
             .Cells(C.Row, 2).Value = TextBox1.Text
             .Cells(C.Row, 3).Value = TextBox2.Text
             .Cells(C.Row, 4).Value = TextBox3.Text
             .Cells(C.Row, 5).Value = ComboBox2.Text
             .Cells(C.Row, 6).Value = TextBox5.Text
             .Cells(C.Row, 7).Value = ComboBox1.Value
             .Cells(C.Row, 8).Value = TextBox8.Text
             .Cells(C.Row, 9).Value = TextBox9.Text
             .Cells(C.Row, 10).Value = TextBox10.Text
             .Cells(C.Row, 11).Value = TextBox11.Text
          End If
        Next C
    End With
    ThisWorkbook.Save
    MsgBox "تم تعديل البيانات بنجاح"
    Me.TextBox6 = IIf(TextBox6 <> TextBox1, Me.TextBox1, Me.TextBox6)
 Application.EnableEvents = True
  Application.ScreenUpdating = True
 End Sub
 



الكلمات الدلالية
مشكلة ، تعديل ، البيانات ، اليوسر ، فورم ،


 










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

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