معرفی یک متغیر به جای نام تعدادی تکست باکس

[microprolog-p96s]

سلام به همه دوستان و اساتید
من توی فرم 20 عدد تکست باکس دارم
که نام همه اونها مشابه هست فقط آخر اسم اونها به ترتیب شماره هست مثل زیر
txt1 , txt2 , txt3 .... txt19 , txt20

حال مشکل من هست که می خواستم این تکست باکس ها به تعداد دلخواه خاموش و یا روشن بشن . در اصل متغیر به جای نام تکست باکس ها قرار بگیره .
از دستور حلقه for ... next استفاده کردم اما جواب نداد .
کد بصورت زیر هست :


Dim DataTxt
Dim Txt
DataTxt = Me.Text58.Value

For i = 1 To DataTxt
Txt = Text & "" & i
Me.Txt.Enabled = True

Next i

لطفا مشکل من رو حل کنید .
ممنون

[amirzazadeh]

سلام به همه دوستان و اساتید
من توی فرم 20 عدد تکست باکس دارم
که نام همه اونها مشابه هست فقط آخر اسم اونها به ترتیب شماره هست مثل زیر
txt1 , txt2 , txt3 .... txt19 , txt20

حال مشکل من هست که می خواستم این تکست باکس ها به تعداد دلخواه خاموش و یا روشن بشن . در اصل متغیر به جای نام تکست باکس ها قرار بگیره .
از دستور حلقه for ... next استفاده کردم اما جواب نداد .
کد بصورت زیر هست :


Dim DataTxt
Dim Txt
DataTxt = Me.Text58.Value

For i = 1 To DataTxt
Txt = Text & "" & i
Me.Txt.Enabled = True

Next iلطفا مشکل من رو حل کنید .
ممنون
سلام
لطفا نمونه خودتون رو (با فرمت 2003)اپلود كنيد تا به كمك دوستان بررسي بشه.

[id1385]

سلام
دوست عزیز فکر کنم شما این نمونه رو می خواستید، ببینید به دردتون خورد (التماس 2A)



Private Sub Command19_Click()
DisableEnable MASTER.Value, False
End Sub
Private Sub Command20_Click()
DisableEnable MASTER.Value, True
End Sub
Private Function DisableEnable(CtlCOunt As Integer, Ctl_Enabled As Boolean)
On Error Resume Next
Dim strCtlname As String
For i = 0 To CtlCOunt
strCtlname = "Text" & i
Me.Controls(strCtlname).Enabled = Ctl_Enabled
Next i
End Function


موفق باشید