نجوم المشاركات

السلام عليكم جمعة مباركة هديتي لكم هذا اليوم فورم بحث وتظهر نتائجه في تاكستات بوكس لكل خلية على شكل قائمة لست وبامكانك التعديل المباشر خلال التاكستات وبدوره تتغير البيانات تلقائيا بالنسبة للتاكست الي فيه لاين طويل يظهر له زر التمرير اثناء وجودك عليه لترى كامل محتوى التاكست ياخذ تلقائيا عرض الليبلات المجهزة داخل الفرمة وبامكانك حذف اوزيادة الليبلات لتشمل بيانات اخرى جعلنا هذا العمل هنا وهو طلب لاحدهم لتعم الفائدة مرفق ملف اكسل 2003 جمعة مباركة على الجميع Listbox Form5.rar

الكود التالي يعيد كافة القيم الإفتراضية لحقول النموذج ، وكأننا ننتقل لسجل جديد ... Private Sub btnClear_Click() Dim ctl As Control On Error Resume Next For Each ctl In Me.Controls ctl.Value = ctl.DefaultValue Next Set ctl = Nothing End Sub والسلام ختام