[حل شده] خالی کرن تکست باکسها
کد:
Private Sub B_Empty_Click()
Dim txb As Control
For Each txb In Me.Controls
If TypeName(txb) = "TextBox" Then
txb.Value = ""
End If
Next txb
End Sub
من از این کد برای پاک کردن تکست باکسها استفاده میکنم ولی یک مشکل کوچک و دو تا سوال:
مشکل : وقتی این کد به باتن (کلید در فرم) اختصاص داده میشه تکست باکسها را پاک میکنه ولی وقتی از ماژول فراخوانی میشه از کلمه ".Me" ایراد میگیره
سوال یک: منظور از کلمه ".Me" در اکسل چیست؟
سوال دو : این کد را چطور میتوان تغییر داد تا وقتی از ماژول فراخوانی میشه اکسل ایراد نگیره و تکست باکسها را خالی کنه.
سپاسگزارم از همه اساتید و یاران همیشگی