راهنمایی در خصوص تکمیل یک ماژول

[n_ali27]

در این ماژول هدف این است در هر فرمی که فراخوانی می شود بعضی از کامندها را غیرفعال کند اما جواب نمیدهد، از دوستان خواهشمند است اشکالات این ماژول را برطرف نمایند
Function Command_Form(N1, N2 As Integer)
On Error Resume Next


Dim i
For i = N1 To N2
Me("Command" & i).Enabled = False
Next

End Function

[mazoolagh]

کد در ظاهر مشکلی نداره (از نظر syntax و منطق)
البته کد تمیزی هم نیست!
ولی باید خواسته رو انجام بده
اون خط On Error Resume Next رو غیرفعال کنین تا موقع اجرا بتونین ببینین کجا خطا میگیره : قطعا کنترل رو نمیتونه از روی اسم پیدا کنه


در ضمن،
کدها درون تگ مخصوص خودش بگذارید تا خوانا باشه:
Function Command_Form(N1, N2 As Integer)
On Error Resume Next
Dim i
For i = N1 To N2
Me("Command" & i).Enabled = False
Next
End Function

[n_ali27]

خط On Error Resume Next رو غیرفعال کردم همانطور که گفتید نمیتونه کنترل را از روی اسم پیدا کنه

[mazoolagh]

خب پس مشخصه که اسم کنترل(ها) رو باید درست کنین تا با کد بخونه یا برعکس کد رو ویرایش کنین تا با اسم کنترل(ها) هماهنگ باشه

[n_ali27]

میشه لطف کنید و ماژول را اصلاح نمائید

[amirzazadeh]

میشه لطف کنید و ماژول را اصلاح نمائید



Sub CleanControl(frm As Form)
Dim ctl As Control

For Each ctl In frm.Controls
With ctl
Select Case .ControlType
Case acComboBox
.Value = ""
.BackColor = vbWhite
Case acTextBox
.Value = ""
.BackColor = vbWhite
End Select
End With
Next ctl
End Sub

كدبالا رو امتحان كنيد.البته كدهاي داخلي رو بايد بسته به نياز خودتون تغيير بديد

[n_ali27]

ممنون از راهنمایی تون