طلب مراجعة كود استدعاء الوان الخلفيه للفورم

[عمر ضاحى]

السلام عليكم ورحمة الله وبركاته 

كل سنه وانت طيبين 

 

بعد اذن اساتذتى الكرام 

محتاج مساعدتكم فى الوقوف على خطأ فى كتابة كود

عندي هذا الكود 

Public Sub colorSet(Frm As Form)
On Error Resume Next
Dim frmName As String
frmName = Frm.Name
'استيراد الالوان
frmName.Header.BackColor = GetSetting("FormColor", "ColorOption", "HeaderColor", 12874308)
frmName.Details.BackColor = GetSetting("FormColor", "ColorOption", "DetailColor", 16769023)
frmName.Footer.BackColor = GetSetting("FormColor", "ColorOption", "FooterColor", 12874308)
End Sub

وباقوم باستدعاء الكود

Private Sub Form_Load()
Call colorSet(Me)
End Sub

اريد ان اعرف اين الخطأ فى كتابتى للكود 

 

لانى اريد بدل ما اقوم بنسخ الكود 

On Error Resume Next
'ÇÓÊíÑÇÏ ÇáÇáæÇä
Me.Header.BackColor = GetSetting("FormColor", "ColorOption", "HeaderColor", 12874308)
Me.Details.BackColor = GetSetting("FormColor", "ColorOption", "DetailColor", 16769023)
Me.Footer.BackColor = GetSetting("FormColor", "ColorOption", "FooterColor", 12874308)

فى كل فورم 

اريد ان اضعه فى مديول واستدعيه كلما ارته بكلمه 

 

[kanory]

تفضل <<<<<<<

Public Sub colorSet(frm As Form)
With frm.Form
    .Section(acHeader).BackColor = 12874308
    .Section(acDetail).BackColor = 16769023
    .Section(acFooter).BackColor = 12874308
End With
End Sub

 

[عمر ضاحى]

منذ ساعه, kanory said:

تفضل <<<<<<<

Public Sub colorSet(frm As Form)
With frm.Form
    .Section(acHeader).BackColor = 12874308
    .Section(acDetail).BackColor = 16769023
    .Section(acFooter).BackColor = 12874308
End With
End Sub

 

هو ده 

الف الف شكر لحضرتك 

السهل الممتنع ^_^

[ابو البشر]

24 دقائق مضت, عمر ضاحى said:

هو ده 

الف الف شكر لحضرتك 

السهل الممتنع ^_^

وهذا نفس كودك مع تصريف بسيط ......

frm.Section(acHeader).BackColor = GetSetting("FormColor", "ColorOption", "HeaderColor", 12874308)
frm.Section(acDetail).BackColor = GetSetting("FormColor", "ColorOption", "DetailColor", 16769023)
frm.Section(acFooter).BackColor = GetSetting("FormColor", "ColorOption", "FooterColor", 12874308)