اداة لاعادة تعين التنسيقات لكل النماذج والتقارير مع تغير اللغة والترجمة الكائنات كل دفعة واحده الى اكسس (Tools_Run_All_Forms_Reports_With_Change_V1_MS_Access)

[hanan_ms]

بعد اذن الاستاذ @moamen salem ❤️🌹☕

#ابداع حل اكبر مشكلة ممكن تواجهك عند نقل البرنامج للعميل... تغيير نوع الخط في جميع الكائنات #مرفق

 

وبعد اذن الاستاذ @Moosak❤️🌹

 

 تعديل على الكود بتغير كافة النماذج و التقارير باسلوب لطيف وكامل  مع الكود 😇 

وتغير لكل عنصر خطه وحجمه ويمكنك الزيادة 

 

من غير اغلاق الكل وتفجير 😂

 

2- ترجمة العناصر وتغير اللغة ولكن لم اكمل تثبيت اللغة لانة المفترض انشاء قاعدة صفرية تلقائي وتحفظ الترجمة فقط غير الارتباط ☕

==========================( بتحديث )

نغير توجية العناصر من اليمين الى اليسار 

- تشغيل بوضع عرض التصميم مع الاخفاء 

- انتهاء ثم عرض النموذج او التقرير 

تابع الفيديو للتوضيح اسفل الموضوع + تحميل المرفق

☕

=============================================( مرفق + فيديو )

 

Tools_Run_All_Forms_Reports_With_Change_V1_MS_Access.rar

[gavan]

🌹🌹❤️❤️

[hanan_ms]

=============================================( صور + مرفق + فيديو )

Update: 🌹

بعد اذن استاذ @Moosak ❤️🌹☕

 

1- تغير اتجاه العناصر تلقائي بعد التحديث

- اداة بسيطة مع جدول فقط

- عرض النموذج بوضع التصميم مخفي ثم العرض 

تابع الفيديو للتوضيح اسفل الموضوع + تحميل المرفق

☕

=============================================( مرفق + فيديو )

2- تصحيح الكود بجلب انواع العناصر مع اسم العنصر 

- Controls( Button ).Name

'============================ ( acBoundObjectFrame  Bound object frame
'*( acCheckBox  Check box )*
'*( acComboBox  Combo box )*

If Forms(frm).Controls(Button).ControlType = acBoundObjectFrame Then
 Me.Type = "acBoundObjectFrame"
 End If
If Forms(frm).Controls(Button).ControlType = acCheckBox Then
 Me.Type = "acCheckBox"
 End If
If Forms(frm).Controls(Button).ControlType = acCommandButton Then
 Me.Type = "acCommandButton"
 End If
If Forms(frm).Controls(Button).ControlType = acImage Then
 Me.Type = "acImage"
 End If
If Forms(frm).Controls(Button).ControlType = acLine Then
 Me.Type = "acLine"
 End If
If Forms(frm).Controls(Button).ControlType = acObjectFrame Then
 Me.Type = "acObjectFrame"
 End If
If Forms(frm).Controls(Button).ControlType = acOptionGroup Then
 Me.Type = "acOptionGroup"
 End If
If Forms(frm).Controls(Button).ControlType = acPage Then
 Me.Type = "acPage"
 End If
If Forms(frm).Controls(Button).ControlType = acPageBreak Then
 Me.Type = "acPageBreak"
 End If
If Forms(frm).Controls(Button).ControlType = acRectangle Then
 Me.Type = "acRectangle"
 End If
If Forms(frm).Controls(Button).ControlType = acSubform Then
 Me.Type = "acSubform"
 End If
If Forms(frm).Controls(Button).ControlType = acTabCtl Then
 Me.Type = "acTabCtl"
 End If
If Forms(frm).Controls(Button).ControlType = acToggleButton Then
 Me.Type = "acToggleButton"
 End If

             If Forms(frm).Controls(Button).ControlType = acComboBox Then
             Me.Type = "acComboBox"
             End If
             If Forms(frm).Controls(Button).ControlType = acCommandButton Then
             Me.Type = "acCommandButton"
             End If
             If Forms(frm).Controls(Button).ControlType = acLabel Then
             Me.Type = "acLabel"
             End If
             If Forms(frm).Controls(Button).ControlType = acListBox Then
             Me.Type = "acListBox"
             End If
             If Forms(frm).Controls(Button).ControlType = acOptionButton Then
             Me.Type = "acOptionButton"
             End If
             If Forms(frm).Controls(Button).ControlType = acTextBox Then
             Me.Type = "acTextBox"
             End If

 

تابع الفيديو للتوضيح اسفل الموضوع + تحميل المرفق

☕

=============================================( مرفق + فيديو )

 

Update Tools_Run_All_Forms_Reports_With_Change_V1_MS_Access.rar

[hanan_ms]

=============================================( صور + مرفق + فيديو )

Update: 🌹

1- اضافة تغير الاتجاه مع اتجاه الارتساء افقي وعامودي ببساطة 

'**************(  HorizontalAnchor ) ********* ( ارتساء افقي )

'( acHorizontalAnchorLeft 0 )=========( 0 يسار
'( acHorizontalAnchorRight 1 )=========( 1 يمين
'( acHorizontalAnchorBoth 2 )=========( 2 كليهما

'**************(  VerticalAnchor ) ********* ( ارتساء عاموديí)

'( acVerticalAnchorTop 0 )=========( 0 اعلى
'( acVerticalAnchorBottom 1 )=========( 1 اسفل
'( acVerticalAnchorBoth 2 )=========( 2 كليهما

     Forms(frm).Controls(Button).HorizontalAnchor = 1 
  

     Forms(frm).Controls(Button).VerticalAnchor = 2 

2- اضافة قائمة التبديل من القائمة الرئيسية مع تثبيت كل النماذج والتقارير بالتوجيه مع الارتساء

3- اضافة كتاب طريقة الاستخدام 

- اشلون تثبت التنسيقات من نوع الخط وحجم الخط لكافة النماذج والتقارير

-اشلون تسخدم تغير توجيه النموذج مع الارتساء بنموذج واحد فيه الدوال والاكواد وينفعك عند تغير اللغة او عمل آخر 

تابع الفيديو للتوضيح اسفل الموضوع + تحميل المرفق

☕

=============================================( مرفق + فيديو )

تحميل المرفق

https://www.mediafire.com/file/0ayif5vc4arcoi3/Update_V1_2+Tools_Run_All_Forms_Reports_With_Change_MS_Access.rar/file