اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

السلام عليكم

ارفق ملف يوجد فيه مشكلة وحيده وهي في 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

 

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information