mmbguide
جمعه 16 فروردین 1392, 14:04 عصر
با سلام
من میخوام هر موقع که فرمی رو طراحی میکنم و اشاء رو داخل اون قرار میدم با یک الگوش مشابه اونها رو تنظیم کنم. واسه همین هم یک ماژول ساختم و کد زیر زو نوشتم
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"
چیکار باید بکنم. ممنون
من میخوام هر موقع که فرمی رو طراحی میکنم و اشاء رو داخل اون قرار میدم با یک الگوش مشابه اونها رو تنظیم کنم. واسه همین هم یک ماژول ساختم و کد زیر زو نوشتم
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"
چیکار باید بکنم. ممنون