مشكلة في حفظ البيانات الجديدة في TextBox2

[طارق نادر]

السلام عليكم

ارفق ملف يوجد فيه مشكلة وحيده وهي في TextBox2 وهو مسؤول عن الرقم الوزاري للموظف. وذلك عند ادخال بيانات موظف جديده وحفظها في صفحة البيانات لا يتم حفظ الرقم الوزاري للموظف في خلايا العمود B ولكن يتم حفظ بدلا عنه الرقم المتسلسل في عامود A . ولكي يتوضح ما اريد ارجو منكم عمل تجربة على الملف المرفق وادخال بيانات في TextBox2 تحديدا ومن ثم الضغط على زر (حفظ الجديد ) .

الرقم السري للملف المرفق tareq972708

ولكم مني التقدير والعرفان دائما

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

[طارق نادر]

للرفع..رفع الله مقامكم...

[طارق نادر]

للرفع

[ياسر خليل أبو البراء]

جرب الكود التالي لزر الأمر المسمى "حفظ الجديد"

Private Sub CommandButton3_Click()
    Dim i As Integer, LastR As Long, ws As Worksheet
    Set ws = ThisWorkbook.Sheets("البيانات")

    LastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row + 1

    With ws
        For i = 2 To 17
            .Cells(LastRow, i).Interior.ColorIndex = 8
            .Cells(LastRow, i).Value = Me.Controls("TextBox" & i).Value
        Next i
    End With
    
    MsgBox "تم حفظ بيانات الموظف بنجاح", vbOKOnly + vbInformation, "تم الحفظ"

    For i = 2 To 17
        Me.Controls("TextBox" & i).Value = ""
    Next i
    
    CommandButton3.Enabled = False
    CommandButton4.Enabled = False

    Me.ComboBox1.Clear
    TextBox2.SetFocus
End Sub

 

[طارق نادر]

كل شكر والتقدير 100% بارك الله فيك ..........