التدخل لاستخدام عناصر تحكم اقل

[AMINYOUSIF]

لاصحاب العلم و الفضل 

حاولت ان اعمل وحدة نمطية  NewFORM

و عند استدعاء ها لم ينجح الامر 

نصحنى قبل تحليل الاداء عمنا و استاذنا ابو خليل 

بتقليل عناصر التحكم 

بعد ما انتهى من طلباتى 

حاولت و لم اوفق 

المرفق لمن يجد عنده الوقت و الصبر 

انا عارف ان الموضوع كبير و محتاج وقت 

 

ارجو تعديل زر جديد الى

Private Sub comnew_Click()
    DoCmd.GoToRecord , , acNewRec
    DoCmd.GoToControl "dateoftrans"
        Me.comresearch_01 = Null
        Me.dateoftrans.Locked = False
        Me.stat.Locked = False
        Me.F_DATAILS.Locked = False
        Me.comsave.Enabled = True     'xxxxxxxx
        Me.comexit.Enabled = False
End Sub
 

 

 

 

 

 

ACC.rar

تم تعديل منذ 3 ساعات بواسطه AMINYOUSIF
تعديل فى كود زر

[AMINYOUSIF]

اعتذار الى كل المتابعين 

تم رفع ملف به كثير من الاخطاء 

عذرا يمكن من طول الوقت و التركيز

عذرا على التسمية 

و لكن دى اخر نسخة بعد تعديلات الاخ الكريم / خليفة 

قيسب الفضل لاصحابة

 

مشروع خليفة.rar

[ابوخليل]

عذرا ان كنا ساعدناك في هذا الموضوع

بالنسبة لي فقد نسيت مالمطلوب

يا ليت توضح المطلوب بشرح تفصيلي دقيق

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

[AMINYOUSIF]

عمنا و استاذنا الكبير 

سامحنى ان اخطأ القصد

عمنا الكبير ساعدنى فى اهم طلب بخصوص شاشة تكويد الحسابات 

و لكن هناك F_HEAD  يوجد به اكواد كبيرة و ان كانت صحيحة 

و كانت نصحتك لية تقليل عناصر التحكم و كنت فى بداية المشروع 

و عندما انتهيت من المشروع عملت تحليل اداء 

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

و استبدالها باستدعاءها ( دى كان تفكرى و ان صح )

لتقليل الاكواد الكبيرة 

اعتذر على الاطالة 

و اشكرك على الاهتمام و العناية

[ابوخليل]

بالنسبة للدالة فمكانها الفورم نفسه .. لأنك تطبق على حقول موجودة فعلا في الفورم

انظر التعديل .. الامر يسير يمكنك صنع اي دالة تحمل اجراءات محددة تتكرر في اكثر من موقع على النموذج

Private Sub Add_New_Record()
     Me.comresearch_01 = Null
   dateoftrans.Locked = True
    Me.stat.Locked = True
    Me.F_DATAILS.Locked = True
    DoCmd.GoToRecord , , acNewRec
  End Sub
'نناديها هكذا :
'Call Add_New_Record

علما لا اعلم ما فائدة تمكين الحقول في الدالة لأنها ممكنة فعلا .. الا اذا كانت في الأصل عندك غير ممكنة

في المثال المرفق طبقت الدالة خلف زر جديد

مشروع خليفة2.rar

[ابوخليل]

26 دقائق مضت, ابوخليل said:

علما لا اعلم ما فائدة تمكين الحقول في الدالة لأنها ممكنة فعلا .. الا اذا كانت في الأصل عندك غير ممكنة

 

عفوا .. اقصد ان الدالة تقوم بحماية الحقول بينما هي محمية بالفعل

لجعل الحقول قابلة للتحرير اعتقد ستصبح الدالة هكذا

Private Sub Add_New_Record()
     Me.comresearch_01 = Null
   dateoftrans.Locked = False
    Me.stat.Locked = False
    Me.F_DATAILS.Locked = False
    DoCmd.GoToRecord , , acNewRec
  End Sub

 

[AMINYOUSIF]

استاذنا الكبير 

اشكرك على عنايتك و اهتمامك 

ملفك نجح 100% 

وكان تحليل الاداء 100%

نسخة حرفيا 

و كان تحليل الاداء يحتاج الى استخدام عاصر اقل 

بدون تعبك سؤال اخير 

اذا كانت الاكواد صحيحة ( اظنها كذالك) 

هل هناك ضرر من تركها بحجمها

شكرا 

 

   

تم تعديل منذ 3 دقائق بواسطه AMINYOUSIF
تصحيح لغوى