المشاركات : 456
المواضيع 77
الإنتساب : May 2015
السمعة :
40
الشكر: 260
تم شكره 1018 مرات في 393 مشاركات
البلد:
الـــــــــ عليكم ــــــــــــلام
هذا الكود يُوضع في مديول ويتم استدعائه لتفريع جميع حقول التكست بوكس وهو شغال 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
فهل يمكن التعديل عليه ليتم تفريع جميع الكومبوكس والليست بوكس؟
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
المشاركات : 1,557
المواضيع 14
الإنتساب : Apr 2013
السمعة :
249
الشكر: 3551
تم شكره 4814 مرات في 1242 مشاركات
(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
يا رحمن الدنيا والآخرة ورحيمهما
المشاركات : 456
المواضيع 77
الإنتساب : May 2015
السمعة :
40
الشكر: 260
تم شكره 1018 مرات في 393 مشاركات
البلد:
وعليكم السلام ورحمة الله وبركاته ،،
جرب التالي :
كود :
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]
يوجد خطأ في هذا الجزء
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
المشاركات : 20
المواضيع 0
الإنتساب : Sep 2020
السمعة :
1
الشكر: 0
تم شكره 41 مرات في 19 مشاركات
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
المشاركات : 456
المواضيع 77
الإنتساب : May 2015
السمعة :
40
الشكر: 260
تم شكره 1018 مرات في 393 مشاركات
البلد:
(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
هذا هو المطلوب بارك الله فيك
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ