*كود* تغيير خصائص عناصر التحكم فى جميع الفورم (لغة الارقام)

موضوع منقول من المنتدي القديم

الكاتب osama57

تغيير خصائص عناصر التحكم في جميع النماذج

السلام عليكم

هذا كود يغير في خصايص كل عناصر التحكم من نوع (مربعات النص ومربعات التحرير والسرد والتسميات) في كل النماذج ، بحيث تكون الاشكال الرقمية هندي او دولي ، سويته لاني كان عندي 50 نموذج واستصعبت تغييرها بالطريقة العادية

الكود في زر امر اسمه Command2 في نموذج ما

Private Sub Command2_Click()

Dim MyRec As Recordset
Dim mfrm As Form
Dim ctl As Control
Dim MyStr As String

DoCmd.Close
Set MyRec = Application.CurrentDb.OpenRecordset("SELECT MSysObjects.Name FROM MSysObjects" _
& " WHERE (((MSysObjects.ParentId) = -2147483646)) ORDER BY MSysObjects.Name;", dbOpenSnapshot)
With MyRec
.MoveFirst
Do Until .EOF
MyStr = MyRec!Name
DoCmd.OpenForm MyStr, acDesign, , , acFormPropertySettings
Set mfrm = Forms(MyStr)
        For Each ctl In mfrm
        If TypeOf ctl Is ComboBox Or TypeOf ctl Is TextBox Or TypeOf ctl Is Label Then
        ctl.Properties("NumeralShapes") = 2
        End If
        Next
DoCmd.Close acForm, MyStr, acSaveYes
MyStr = ""
.MoveNext
Loop
End With
MyRec.Close

End Sub

--------------------------------------------------------------------------------

الكاتب: osama457 بتاريخ: 9/4/2002 9:46:54 AM

--------------------------------------------------------------------------------

كود رائع

طريقة جيدة ولكن في عبارة SQL لما طبقتها أظهرت لي بعض النماذج مع بعض الماكروات مع بعض الوحدات النمطية ، ولذلك عدلت في عبارة SQL كالتالي :

SELECT MSysObjects.Name, MSysObjects.Type FROM MSysObjects WHERE (((MSysObjects.Type)=-32768)) ORDER BY MSysObjects.Name; 


وللفائدة غير الرقم الموجود بعد :

ctl.Properties("NumeralShapes") = 2

بأحد الأرقام التالية :

النظام=0

اللغة العربية=1

الدولي=2

والله يعطيك العافية على الكود .

السياق=3

ولك تحياتي

--------------------------------------------------------------------------------

الكاتب: ابوحمود. بتاريخ: 9/4/2002 9:54:32 PM

--------------------------------------------------------------------------------

شكر

لك كل الشكر على التصحيح

--------------------------------------------------------------------------------

الكاتب: osama457