طرق فرز وتصفية البيانات للنماذج ، وتصفية التقارير

[jjafferr]

أخي محمد

 

اعتذر منك ، ولكن طريقتك في عرض الموضوع غير صحيحة ، فانت ترفق رسالة خطأ وبدون ان توضح لنا كيف حصلت عليها !!

يجب عليك ان تخبرنا الكود الذي استعملته ، والمتغيرات التي ادخلتها في النموذج ، حتى نعرف وين الخطأ !!

 

والشيء الآخر ، انت تنتقل من شيء الى آخر ، والى شيء آخر ،

وتطلب كود لشيء معين ، ثم تنتقل لشيء آخر ، وبطريقة اخرى ،

فلا انت تستطيع التركيز ، ولا المتابع يمكنه المتابعة بتسلسل ، ولا انا استطيع المواصلة بهذه الطريقة !!

 

رجاء خذ من وقتك ، وخطط تخطيطا دقيقا ، واكتب مالذي تريد الوصول اليه

 

جعفر

[محمد احمد لطفى]

50 minutes ago, jjafferr said:

تفضل

 

بدون سجلات التاريخ الفارغة

Between (IIf(Len([Forms]![main]![Datamasterform]![DateX] & "")=0,#01-Jan-1900#,[Forms]![main]![Datamasterform]![DateX])) And (IIf(Len([Forms]![main]![Datamasterform]![DateX] & "")=0,#01-Jan-2900#,[Forms]![main]![Datamasterform]![DateX]+65))

والشرح
Between 
(IIf(Len([Forms]![main]![Datamasterform]![DateX] & "")=0,#01-Jan-1900#,[Forms]![main]![Datamasterform]![DateX]))
And 
(IIf(Len([Forms]![main]![Datamasterform]![DateX] & "")=0,#01-Jan-2900#,[Forms]![main]![Datamasterform]![DateX]+65))

 

مع سجلات التاريخ الفارغة

Between (IIf(Len([Forms]![main]![Datamasterform]![DateX] & "")=0,#01-Jan-1900#,[Forms]![main]![Datamasterform]![DateX])) And (IIf(Len([Forms]![main]![Datamasterform]![DateX] & "")=0,#01-Jan-2900#,[Forms]![main]![Datamasterform]![DateX]+65)) Or [DateX] Is Null

والشرح
Between 
(IIf(Len([Forms]![main]![Datamasterform]![DateX] & "")=0,#01-Jan-1900#,[Forms]![main]![Datamasterform]![DateX]))
And 
(IIf(Len([Forms]![main]![Datamasterform]![DateX] & "")=0,#01-Jan-2900#,[Forms]![main]![Datamasterform]![DateX]+65))
Or [DateX] Is Null

 

جعفر

اعتذر منك 
هذا الكود سبب الرسالة فى الاستعلام

تم تعديل يوليو 2, 2017 بواسطه محمد احمد لطفى

[jjafferr]

تفضل المرفق ، والكود في الاستعلام

660.2.Test2006.mdb.zip

[محمد احمد لطفى]

لقد عمل كود التاريخ جديدا 

شيىء اخير بعد اذنك تطبيق هذا فى النموذج
تصفية المدينة 

"قليوبية Or "اسكندرية " Or "الدقهلية"

مع المدرسة 
خالد بن الوليد or الخلفاء الراشدين 
 حاولت وفشلت فى زرار تصفية شاملة 

أعتذر منك لا اعرف لماذا و لكن لا استطيع تطبيقها 
مع استبعاد كود التاريخ فى النموذج
وجزاك الله خيرا

 

تم تعديل يوليو 2, 2017 بواسطه محمد احمد لطفى

[jjafferr]

1.

14 ساعات مضت, محمد احمد لطفى said:

لقد عمل كود التاريخ جديدا 

شو كانت المشكلة؟

الكود اللي في الاستعلام هو عينا نفس الكود الذي ارفقته لك!!

 

 

2.

14 ساعات مضت, محمد احمد لطفى said:

شيىء اخير بعد اذنك تطبيق هذا فى النموذج
تصفية المدينة 

"قليوبية Or "اسكندرية " Or "الدقهلية"

مع المدرسة 
خالد بن الوليد or الخلفاء الراشدين 

هل قصدك تريد هذه المعايير:

 

.

بهذه النتيجة:

.

 

    Dim City As String:      Dim City2 As String:    Dim City3 As String
    Dim School As String:    Dim School2 As String
    
    City = "اسكندرية":       City2 = "الدقهلية":     City3 = "قليوبية"
    School = "خالد بن الوليد":     School2 = "الخلفاء الراشدين"
    
    'مجموعة اوامر الحقل الاول
    'المدينة
    myCriteria = "("
    myCriteria = myCriteria & "[testQ].[country1]= '" & City & "'"
    myCriteria = myCriteria & " or "
    myCriteria = myCriteria & "[testQ].[country1]= '" & City2 & "'"
    myCriteria = myCriteria & " or "
    myCriteria = myCriteria & "[testQ].[country1]= '" & City3 & "'"
    myCriteria = myCriteria & ")"
    
    'مجموعة اوامر الحقل الثاني
    'المدرسة
    myCriteria = myCriteria & " AND "
    myCriteria = myCriteria & "("
    myCriteria = myCriteria & "[testQ].[School1]= '" & School & "'"
    myCriteria = myCriteria & " or "
    myCriteria = myCriteria & "[testQ].[School1]= '" & School2 & "'"
    myCriteria = myCriteria & " or "
    myCriteria = myCriteria & "Len([testQ].[School1] & '')=0"
    myCriteria = myCriteria & ")"
    
    'Debug.Print myCriteria
    Me.TestF.Form.Filter = myCriteria
    Me.TestF.Form.FilterOn = True
    

 

جعفر

[محمد احمد لطفى]

جزاك الله كل خير استاذى جعفر

لى طلب أخر مش عارف ققوله و لأ
انى محرج منك كثيرا

[ًعبد من عباد الله]

وماذا عن فرز وتصفية البيانات بين اكثر من جدول وأكثر من نموذج؟

" تصفية متسلسلة أو متفرعة " من خلال الكمبوبوكس أو مربعات التحرير والسرد أي قوائم منسدلة مرتبطة بقوائم منسدلة اخرى, قائمة اختيارات مرتبطة بقوائم اخرى في اكسس, كومبوبوكس مرتبطه مع بعضها, كومبوبوكس معتمدة على بعضها.

كما في المثال المشار إليه في هذا الموضوع

 

تم تعديل فبراير 6, 2018 بواسطه وائل أبو عبد الرحمن