أين الخطأ فى هذا الكود البسيط لتعديل البيانات

[Boo.Reema]

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

 

أين الخطأ فى هذا الكود لتعديل البيانات

 

       Dim WS As Worksheet
   Set WS = Sheets("KG01")
WS.Activate
 
III = 11
Do Until WS.Cells(III, "B").Text = ""
    If Me.ComboBox1.Text = WS.Cells(III, "C").Text Then
        WS.Cells(III, "B").Activate
'----------------------------------------------------------------
WS.Cells(III, "C").Offset(0, 0).Value = Me.TextBox1.Value

WS.Cells(III, "K").Offset(0, 0).Value = Me.TextBox2.Value

Me.Label17 = WS.Cells(III, "E").Offset(0, 0).Text
 Me.Label18 = WS.Cells(III, "F").Offset(0, 0).Text
 Me.Label19 = WS.Cells(III, "G").Offset(0, 0).Text
Me.Label20 = WS.Cells(III, "H").Offset(0, 0).Text
Me.Label21 = WS.Cells(III, "I").Offset(0, 0).Text
Me.Label22 = WS.Cells(III, "J").Offset(0, 0).Text
Me.Label16 = WS.Cells(III, "D").Offset(0, 0).Text

 Exit Sub
    End If
    III = III + 1
    
Loop

Me.ComboBox1.SetFocus

الملف على أكسيل 2007

 

الصفحة الرئيسية - حضانة صغرى - البحث عن تلميذ - تعديل

 

الكود خاص نتعديل الاسم والرقم القومى

أحيانا يتم تعديل الاسم فقط

وانا اريد تعديل الاسم والرقم القومى

فى انتظار الرد

K G 2018 22.rar

[Boo.Reema]

تم حل المشكة