تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة في كود تفريغ بيانات الكومبوكس والليست بوكس
#1
الـــــــــ عليكم ــــــــــــلام

هذا الكود يُوضع في مديول ويتم استدعائه لتفريع جميع حقول التكست بوكس وهو شغال 100%

كود :
Public Function ClearAll(frm As Form)
 
  Dim c As Control
     For Each c In frm.Controls
         If TypeOf c Is TextBox Then
         
            c.Text = ""
     
         End If
     Next c
     
End Function

فهل يمكن التعديل عليه ليتم تفريع جميع الكومبوكس والليست بوكس؟
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد
تم الشكر بواسطة:
#2
(13-09-20, 01:25 AM)مصمم هاوي كتب : الـــــــــ عليكم ــــــــــــلام

هذا الكود يُوضع في مديول ويتم استدعائه لتفريع جميع حقول التكست بوكس وهو شغال 100%

كود :
Public Function ClearAll(frm As Form)
 
  Dim c As Control
     For Each c In frm.Controls
         If TypeOf c Is TextBox Then
         
            c.Text = ""
     
         End If
     Next c
     
End Function

فهل يمكن التعديل عليه ليتم تفريع جميع الكومبوكس والليست بوكس؟


وعليكم السلام ورحمة الله وبركاته ،،

جرب التالي :


كود :
Public Function ClearAll(frm As Form)
 
  Dim c As Control
     For Each c In frm.Controls
         If TypeOf c Is TextBox Or TypeOf c Is ComboBox Then
         
            c.Text = ""

ElseIf TypeOf c Is ListBox Then
c.Clear
   
         End If

     Next c
     
End Function
يا رحمن الدنيا والآخرة ورحيمهما
الرد
تم الشكر بواسطة:
#3
وعليكم السلام ورحمة الله وبركاته ،،

جرب التالي :


كود :
Public Function ClearAll(frm As Form)
 
  Dim c As Control
     For Each c In frm.Controls
         If TypeOf c Is TextBox Or TypeOf c Is ComboBox Then
         
            c.Text = ""

ElseIf TypeOf c Is ListBox Then
c.Clear
   
         End If

     Next c
     
End Function

[/quote]

يوجد خطأ في هذا الجزء

كود :
  c.Text = ""
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد
تم الشكر بواسطة:
#4
Public Function ClearAll(frm As Form)

Dim c As Control
For Each c In frm.Controls
If TypeOf c Is TextBox Then

c.Text = ""

ElseIf TypeOf c Is ListBox Or TypeOf c Is ComboBox Then
c.Clear

End If

Next c

End Function
الرد
تم الشكر بواسطة: مصمم هاوي
#5
(13-09-20, 03:12 AM)T 1 كتب : Public Function ClearAll(frm As Form)

Dim c As Control
For Each c In frm.Controls
If TypeOf c Is TextBox Then

c.Text = ""

ElseIf TypeOf c Is ListBox Or TypeOf c Is ComboBox Then
c.Clear

End If

Next c

End Function

هذا هو المطلوب بارك الله فيك
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة اعادة ترقيم التلقائي في قاعدة بيانات اكسس ahmed201 7 93 , 05:35 AM
آخر رد: ahmed201
  مساعدة في عرض بيانات محددة في التقرير مصمم هاوي 1 206 17-09-20, 08:39 PM
آخر رد: مصمم هاوي
  'طلب مساعدة في حل مشكلة اثناء اجراء تثبيت setup gonm64 4 340 19-08-20, 09:01 PM
آخر رد: gonm64
  مشكله في كواد بحث في قاعدة بيانات اكسس ahmed250 2 245 07-08-20, 09:50 AM
آخر رد: ahmed250
  [سؤال] لايمكن الاتصال بقاعدة بيانات MYsql ناجح احمد 5 510 30-07-20, 03:10 AM
آخر رد: حريف برمجة
  احتاج مساعدة لبرنامج رسم خطوط بالفأرة مع إظهار الإحداثيات وخزنها في مصفوفة hasanqo 2 356 16-07-20, 03:22 AM
آخر رد: hasanqo
  سؤال حول كيفية تصغيرحجم الخط ليناسب حجم التكست بوكس عن طريق الكود haider kh 6 500 04-07-20, 05:00 PM
آخر رد: haider kh
  مشكله في كود اضافه ملف pdf في قاعدة بيانات اكسس وإستدعاءه ahmed250 1 327 03-07-20, 11:23 AM
آخر رد: Ahmed_Mansoor
  طلب مساعدة في برنامجي awidan76 4 406 22-06-20, 10:18 PM
آخر رد: awidan76
  مشكلة في اضافة الي قاعدة بيانات اكسس ahmed250 0 290 13-06-20, 10:27 AM
آخر رد: ahmed250

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم