مساعدة في شرط السن

[nacer_alger]

سلام عليكم

اريد مثال اعمل عليه  شرط السن  اي تصفية حسب السن  في النموذج

الموظفين اصغر من 30 سنة

اكبر من 30 سنة

بين 30 سنة و 35 سنة

تم تعديل ديسمبر 2, 2014 بواسطه nacer_alger

[rudwan]

لانعرف مكونات قاعدة اليانات لديك 

لكن هذه هي طريقة حساب العمر

=DateDiff("yyyy", [DOB], Date()) 

انسخ هذا الكود الى الاستعلام او النموذج لديك و قم بتبديل dob

باسم حقل تاريخ ميلاد الموظف لديك

[nacer_alger]

شكرا لك اخي rudwan

 

هذ كود خاص بنموذج و الاستعلام

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

[rudwan]

هذ كود خاص بنموذج و الاستعلام

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

 

 

 

أخي الكريم

أولا لايوجد شيء اسمه كود خاص بالنموذج و كود خاص بوحدة نمطية

الكود يستخدم لكل مكونات البرنامج سواء في النماذج أو الاستعلامات ماعدا الجداول

ثانيا : الجداول تستخدم لتخزين البيانات الثابتة , أما القيم المحسوبة فيتم حسابها عن طريق الاستعلامات

مثال العمر هنا , يكفيك أن تقوم بتخزين تاريخ ميلاد الشخص في حقل في الجدول

و تقوم بانشاء استعلام لحساب العمر , و لا ينصح برمجيا بتخرين العمر في الجدول

[.Azhar]

استخدم هذه الوحدة النمطية 

Public Function AgeGroup(BirthDate As Date) As String

    Dim intAge As Integer

    intAge = DateDiff("yyyy", [BirthDate], Now()) + _
             Int(Format(Now(), "mmdd") < Format([BirthDate], "mmdd"))

    Select Case intAge

    Case 0 To 17
        AgeGroup = "0-17"
    Case 18 To 25
        AgeGroup = "18-25"
    Case 26 To 30
        AgeGroup = "26-30"
    Case 31 To 35
        AgeGroup = "31-35"
    Case 36 To 40
        AgeGroup = "36-40"
    Case 41 To 45
        AgeGroup = "41-45"
    Case 46 To 50
        AgeGroup = "46-50"
    Case Is > 50
        AgeGroup = "50+"
    End Select

End Function

واستخدم هذا الكود لاستدعاء الوحدة النمطية 

=GetAge([BirthDate])

حيث ان BirthDate هو حقل تاريخ التولد في الجدول 

واذا تريد ان يظهر لك واقع العمر يقع بين ما بين انشأ مربع نص غير منظم على النموذج واستخدم هذا التعبير لمصدر بياناته . 

=AgeGroup([BirthDate])

[nacer_alger]

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