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

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

مثلا

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

Private Sub Command0_Click()
Call SSS
End Sub

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

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

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

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

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

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

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

مثلا :

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

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

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

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

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

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

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

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