الدرس الخامس :- اكواد يوزرفورم لاجبار مستخدم اليوزرفورم على تعبئة جميع بيانات التكست بوكس عند الترحيل

يوليو 21, 2017

اولاً نقوم بفتح تبويب Developer 

ثانياً نفتح محرر الاكواد Visual Basic

ثالثاً نقوم بإدراج يوزرفورم جديد وندرج به زر CommandButton 

  ثم نضغط عليه مرتين بزر الماوس الايسر ونكتب الاكواد الاتيه بداخله

Private Sub CommandButton1_Click() If Me.TextBox1.Value = "" Then MsgBox :"يجب ادخال الاسم اولا" Exit Sub If Me.TextBox2.Value = "" Then MsgBox :"يجب ادخال السن اولا" Exit Sub If Me.TextBox3.Value = "" Then MsgBox :"يجب ادخال العنوان اولا" Exit Sub If Me.TextBox4.Value = "" Then MsgBox : "يجب ادخال الوظيفة اولا" Exit Sub Sheet1.Activate Dim lastrow As Integer lastrow = [a100].End(xlUp).Row + 1 Cells(lastrow, 1).Value = Me.TextBox1.Value Cells(lastrow, 2).Value = Me.TextBox2.Value Cells(lastrow, 3).Value = Me.TextBox3.Value Cells(lastrow, 4).Value = Me.TextBox4.Value "تم الترحيل البيانات بنجاح"MsgBox ""=TextBox1.Value ""=TextBox2.Value ""=TextBox3.Value ""=TextBox4.Value TextBox1.SetFocus End Sub  

  

* اخيراً لا ننسى ان نقوم بحفظ الاكواد السابقة داخل محرر الاكواد VBE

فيسبوك تويتر لينكدين واتساب

مواضيع ذات صلة