فكرة لاستخدام الاجراءات الشائعة عن طريق الدوالVBA

[samir_samir]

متلا يوجد في البرنامج

200 نموزج

كل نموزج

يوجد

اجراء مثلا تكبير

اجرا مثلا اخر_سجل

اجراء تصغير

---------

بنا نستعمل هزه الطريقه

في اي مشكله في البرمجه مستقبلا

وحده نمطيه لا كل البرنامج

Public Function تكبير()

DoCmd.Maximize

End Function




Public Function اخر_سجل()

DoCmd.GoToRecord , , acNewRec

End Function





Public Function تصغير()

DoCmd.Minimize

End Function

========= الاجراء بهازا الشكل

Private Sub أمر0_Click()

تكبير

End Sub

[امير عاطف]

يجزاك الله كل خير على هذه الفائدة يا ابو سمرة :d