كود معرفة عدد CommandButton او Label او TextBox او اي اداة من الادوات الموجودة في الفورم
ففط ضع اسم الاداة مكان TextBox
Private Sub CommandButton1_Click()
Dim NC As Integer
For Each Control In Me.Controls
If TypeName(Control) = "TextBox" Then NC = NC + 1
Next
MsgBox NC
End Sub
بارك الله فيك كل ما ذكرت وخاصة المشاركة الاخيرة تفي بالغرض
لكن هل يوجد طريقة بواسطة كود ام لا ؟
اذا كانت طريقة الكود تتطلب وقتا فانتظرك , اعلم ان الجهد الذي تبذله في المنتدى ليس بالقليل