راه حل این مشکل چیه؟

[mmbguide]

با سلام

من میخوام هر موقع که فرمی رو طراحی میکنم و اشاء رو داخل اون قرار میدم با یک الگوش مشابه اونها رو تنظیم کنم. واسه همین هم یک ماژول ساختم و کد زیر زو نوشتم


Sub fd(frm)
Dim ctl As Control
For Each ctl In Forms!frm.Controls
With ctl
Select Case .ControlType
Case acLabel
.BorderStyle = 1
.BackStyle = 1
.FontName = "B Titr"
.ForeColor = vbBlack
.FontSize = 8
.TextAlign = 3
Case acTextBox
.BorderStyle = 1
.BackStyle = 1
.FontName = "B Nazanin"
.FontBold = True
.ForeColor = vbBlack
.FontSize = 10
.TextAlign = 3
.BorderColor = RGB(217, 217, 217)
.Height = 400
End Select
End With
Next ctl
End Sub

و در قسمت Open در فرم کد زی رو نوشتم


fd (Me.Name)

حالا وقتی که فرم میاد بالا پیغام زیر نشون داده میشه

Run-Time error 2450
Microsoft access cannot find the refrenced form "frm"

چیکار باید بکنم. ممنون

[mazoolagh]

public sub fd(frm as string)
dim ctl as control
for each ctl in forms(frm).controls
....
end sub

[mmbguide]

خیلی ممنون. جواب داد