• 0
abade

لم افهم كيف استدعي الوحدة النمطية

سؤال

هل قاعدة كتابة الوحدة النمطية هي نفسها قاعدة كتابة الكود العادي لتنفيذ اي مهمة؟؟

لدي أزرار في النموذج تتكرر باستمرار هل من الممكن ان اجعلهم في وحدة نمطية؟؟؟

كيف استدعي الوحدة النمطية في الأزرار والنماذج؟؟؟

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

8 إجابة على هذا السؤال .

  • 0

السلام عليكم ورحمة الله و بركاته 
اكتب فقط اسم الوحدة النمطية في الحدث المراد تنفيذ الامر به 

مثلا

ليدك وحدة نمطية اسمها SSS

 

Private Sub Command0_Click()
Call SSS
End Sub

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

1 - وحدة نمطية مطلقة

2 - وحدة نمطية للفئات

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

وكيف اعمل الوحدة النمطية المطلقة

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم و رحمة الله و بركاته
قبل ان اجيبك 

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

مثلا :

تريد ان تبي دالة مثلا تقوم بإجراء معين مثلا ان تأخدذ قيمة حقل ما و تقوم بطرحه من جقل أخر و تضيف عليه قيمة ما و من ثم تأخذ هذه النتيجة لتعيدها لوحدة نمطية نقوم بدورها بمعالجة الناتج بصيغة اخرى و من ثم تقوم بتخزينها في حقل ما...
من بعض هذه الوحدات المطلقة   Nz - Dmax -  Dsum و هذه جاهزة و لكن يمكنك ان تبني وحدة مطلقة و تستخدمها في نماذجك
و هذا مثال 
بالمرفق

و اسميت الوحدة Dabade

تم تعديل بواسطه mirage4pc
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
Function Age(varBirthDate As Variant) As Integer
 Dim varAge As Variant
 
 If IsNull(varBirthDate) Then Age = 0: Exit Function
 
 varAge = DateDiff("yyyy", varBirthDate, Now)
 If Date < DateSerial(Year(Now), Month(varBirthDate), Day(varBirthDate)) Then
 varAge = varAge - 1
 End If
 Age = CInt(varAge)
 End Function

 

تم تعديل بواسطه mirage4pc
تغيير الكود
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

احتساب العمر بناء على تاريخ الميلاد

تم تعديل بواسطه mirage4pc
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

و هذه ليست بمطلقة :)
فالطلقة سوف تلي لا حقا ..ز و لكن اعتقد ان هذه هو طلبك حاليا

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اشكرك اخي ميراج

ولم اجد المثال

واعلم اني اتعبتك ولكن اعذر فهمي المتواضع

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .