كود حفظ البيانات لايعمل

[طارق نادر]

السلام عليكم جميعا ارفق لكم الكود الذي لايعمل باضافة الى الملف لكي تتوضح الصورة لكم ....مع خالص امتناني لكم جميعا

Private Sub CommandButton4_Click()
Dim ws As Worksheet, LastRow As Long
Set ws = ThisWorkbook.Sheets("البيانات")

LastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row + 1
    
If Me.ComboBox1.Text <> "" Then
  For T = 2 To LastRow
    If Me.ComboBox1.Text = ws.Cells(T, 3) Then
    ws.Cells(T, 2).Resize(1, 14).Interior.Color = vbCyan

      For i = 2 To 17
       ws.Cells(T, i).Value = Me.Controls("TextBox" & i).Value
      Next
      MsgBox "تم تعديل بيانات الموظف بنجاح", vbOKOnly + vbInformation, "تم التعديل"
      GoTo 1
    End If
  Next
End If
1
For i = 2 To 17
 Me.Controls("TextBox" & i).Value = ""
 Next
CommandButton3.Enabled = False
CommandButton4.Enabled = False

Me.ComboBox1.Clear
TextBox2.SetFocus
End Sub

 

2017صيفية برمجية المعتمدة استعلام.rar

[طارق نادر]

للرفع

 

[طارق نادر]

للرفع

[طارق نادر]

للرفع

للرفع

[طارق نادر]

للرفع

باسورد الملف tareq972708

[طارق نادر]

للرفع