تغيير خصائص كنترول من نموذج اخر

[bumb]

السلام عليكم

 

كيف اتحكم بأدوات النموذج من خلال نموذج اخر

[صالح حمادي]

السلام عليكم

الكود التالي يمكنك من تغيير التسمية الظاهرية للأزرار في نموذج آخر اسمه frm1

Dim frm As Form
Dim fc As Control
Set frm = Form_frm1

For Each fc In frm.Controls
    If fc.ControlType = 104 Then
       fc.Caption = "officena"
    End If
Next fc
Set frm = Nothing

 

التحكم في الأزرار.accdb

[kha9009lid]

اضافة لما اشار الية استاذنا الفاضل @صالح حمادي

يمكن التحكم

• حجم النموذج
• مصدر بيانات النموذج
• تسميات الحقول
• اخفاء او اظهار حقول وازار اوامر
• تغيير اللون للنموذج او كائناته

الخ والقائمة تطول

مرفق مثال صغير لما تم الاشارة اليه

بحيث يكون لدينا نموذج واحد نتحكم بخصائصة ومصدر بيانته من خلال زر امر بدلا من عمل نموذجين او اكثر

 

 

مثال.accdb

[bumb]

6 ساعات مضت, صالح حمادي said:

السلام عليكم

الكود التالي يمكنك من تغيير التسمية الظاهرية للأزرار في نموذج آخر اسمه frm1

Dim frm As Form
Dim fc As Control
Set frm = Form_frm1

For Each fc In frm.Controls
    If fc.ControlType = 104 Then
       fc.Caption = "officena"
    End If
Next fc
Set frm = Nothing

 

التحكم في الأزرار.accdb 1.04 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 4 downloads

الكود مكتوب فيه 104 الى ماذا هذا الرقم

    If fc.ControlType = 104 Then

 

[صالح حمادي]

21 ساعات مضت, bumb said:

لكود مكتوب فيه 104 الى ماذا هذا الرقم

هذا الكود هو رمز زر الأمر أو نستطيع وضع مكانه acCommandButton

مثلا مربع النص 109 و label رمزها 100 و هكذا