ماهي فائدة الدالة with

[aaabade]

 

ماهي فائدة دالة with

ولماذا لا ارى لها اي اهتمام في مواضيع كثير من المنتديات؟؟

[نبراس كاظم]

حبي فوائدة متنوعة ومن احلى الفوائد هي لما يكون عندك فد مجموعة تكستات او ما شابة

me.text....

تكتب هكذا عن طريقها دون الحاجة الى 

with me

.text....

تقوم بتقليل الكود وعدم تكرار كلمة me دائما 

[AlwaZeeR]

من باب الاختصار في كتابة الأوامر وعدم تكرارها

مثال:

لو اردت تطبيق امر من النموذج الرئيسي للفرعي يكتب بدونها هكذا:

 

Forms!MainForm!SubFormName.Form.AllowEdits = Not Forms!MainForm!SubFormName.Form.AllowEdits.AllowEdits
Forms!MainForm!SubFormName.Form.AllowEdits.Requery
Forms!MainForm!SubFormName.Form.AllowEdits.SetFocus
Forms!MainForm!SubFormName.Form.AllowEdits.cmdName.Caption = "Test"
Forms!MainForm!SubFormName.Form.AllowEdits.cmdName.Enabled = False

ويكتب باستخدامها هكذا ولك حرية الاختيار 

انا عن نفسي استخدمها 

With SubFormName.Form
.AllowEdits = Not .AllowEdits
.Requery
.SetFocus
.cmdName.Caption = "Test"
.cmdName.Enabled = False
End With

المثال السابق 

1- لتحرير نموذج فرعي

2- عمل تحديث للنموذج الفرعي

3- نقل التركيز الى النموذج الفرعي

3- تغيير اسم زر امر الى تست في النموذج الفرعي

4- الغاء التمكين للزر السابق في النموذج الفرعي

ويتم الاستخدام بالطريقة السابقة حسب الحاجة التي تريدها

ولا يتم التطرق لها لان الاغلب يستخدمها في صمت ولا تشكل مشكلة 

::

 

تم تعديل ديسمبر 12, 2019 بواسطه AlwaZeeR

[aaabade]

اشكرك

الله يعطيك العافية

14 ساعات مضت, نبراس كاظم said:

حبي فوائدة متنوعة ومن احلى الفوائد هي لما يكون عندك فد مجموعة تكستات او ما شابة

me.text....

تكتب هكذا عن طريقها دون الحاجة الى 

with me

.text....

تقوم بتقليل الكود وعدم تكرار كلمة me دائما 

شكرا لك

12 ساعات مضت, AlwaZeeR said:

من باب الاختصار في كتابة الأوامر وعدم تكرارها

مثال:

لو اردت تطبيق امر من النموذج الرئيسي للفرعي يكتب بدونها هكذا:

 

Forms!MainForm!SubFormName.Form.AllowEdits = Not Forms!MainForm!SubFormName.Form.AllowEdits.AllowEdits
Forms!MainForm!SubFormName.Form.AllowEdits.Requery
Forms!MainForm!SubFormName.Form.AllowEdits.SetFocus
Forms!MainForm!SubFormName.Form.AllowEdits.cmdName.Caption = "Test"
Forms!MainForm!SubFormName.Form.AllowEdits.cmdName.Enabled = False

ويكتب باستخدامها هكذا ولك حرية الاختيار 

انا عن نفسي استخدمها 

With SubFormName.Form
.AllowEdits = Not .AllowEdits
.Requery
.SetFocus
.cmdName.Caption = "Test"
.cmdName.Enabled = False
End With

المثال السابق 

1- لتحرير نموذج فرعي

2- عمل تحديث للنموذج الفرعي

3- نقل التركيز الى النموذج الفرعي

3- تغيير اسم زر امر الى تست في النموذج الفرعي

4- الغاء التمكين للزر السابق في النموذج الفرعي

ويتم الاستخدام بالطريقة السابقة حسب الحاجة التي تريدها

ولا يتم التطرق لها لان الاغلب يستخدمها في صمت ولا تشكل مشكلة 

::

 

الف شكر