عد سجلات بجدولين مختلفين بشرط أكثر من قيمة

[kaser906]

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

كتبت هذا الكود لعد سجلات

Me.peoplev = DCount("[service]", "Tabil_Visitors", "([Num_brnamge] =forms![Forme_Fatora].[Num_brnamge]And[service] =1 or [Num_brnamge] =forms![Forme_Fatora].[Num_brnamge]and[service] = 2 or[Num_brnamge] =forms![Forme_Fatora].[Num_brnamge]and[service] = 3 or[Num_brnamge] =forms![Forme_Fatora].[Num_brnamge]and[service] = 6 or[Num_brnamge] =forms![Forme_Fatora].[Num_brnamge]and[service] = 7 or[Num_brnamge] =forms![Forme_Fatora].[Num_brnamge]and[service] = 8 )and[Independent_Facilities]=1 or[Independent_Facilities]=2 or[Independent_Facilities]=3")
Me.peoplev2 = DCount("[service]", "Tabil_Visitors2", "([Num_brnamge] =forms![Forme_Fatora].[Num_brnamge]And[service] =1 or [Num_brnamge] =forms![Forme_Fatora].[Num_brnamge]and[service] = 2 or[Num_brnamge] =forms![Forme_Fatora].[Num_brnamge]and[service] = 3 or[Num_brnamge] =forms![Forme_Fatora].[Num_brnamge]and[service] = 6 or[Num_brnamge] =forms![Forme_Fatora].[Num_brnamge]and[service] = 7 or[Num_brnamge] =forms![Forme_Fatora].[Num_brnamge]and[service] = 8 )and[Independent_Facilities]=1 or[Independent_Facilities]=2 or[Independent_Facilities]=3")

حيث اني اريد عد السجلات التي تكون فيها

قيمة الحقل  service  = 1 or 2 or 3 or  or 6 or 7 or 8 ويستثني الرقم  4  و 5

وتكون قيمة الحقل Independent_Facilities  1 or 2 or 3  ويستثني الرقم 4

ويكون حقل Num_brnamge = حقل Num_brnamge في النموذج

لكن الكوديين السابقين لايعطيني نتيجة صحيحة

امل التعديل

 

Dcoun.rar

[jjafferr]

وعليكم السلام

 

اعتقد بأني استاهل علامتين بس علشان هذا الترتيب ، واما اذا الاجابة صح ، فنور على نور

    criti = "[Num_brnamge] =" & Forms![Forme_Fatora].[Num_brnamge]
    criti = criti & " And"
    criti = criti & " ([service] Between 1 and 3 or [service] Between 6 and 8)"
    criti = criti & " And"
    criti = criti & " [Independent_Facilities] Between 1 and 3"
    'Debug.Print criti
    
    Me.peoplev = DCount("[service]", "Tabil_Visitors", criti)
    Me.peoplev2 = DCount("[service]", "Tabil_Visitors2", criti)
    

 

جعفر

[kaser906]

9 ساعات مضت, jjafferr said:

وعليكم السلام

 

اعتقد بأني استاهل علامتين بس علشان هذا الترتيب ، واما اذا الاجابة صح ، فنور على نور

    criti = "[Num_brnamge] =" & Forms![Forme_Fatora].[Num_brnamge]
    criti = criti & " And"
    criti = criti & " ([service] Between 1 and 3 or [service] Between 6 and 8)"
    criti = criti & " And"
    criti = criti & " [Independent_Facilities] Between 1 and 3"
    'Debug.Print criti
    
    Me.peoplev = DCount("[service]", "Tabil_Visitors", criti)
    Me.peoplev2 = DCount("[service]", "Tabil_Visitors2", criti)
    

 

جعفر

صراحة شغل مرتب

ربي يعطيك الصحة والعافية

حبيت استفسر عن هذي criti

هل هي دالة أو ايش وماهي وظائفها

وبعدين لاتنسى موضوع تفكيك جملة SQL وتحويلها الى كود ترى ما زلت انتظر الشرح 

[jjafferr]

وعليكم السلام

 

خليك في النموذج مال الكود اعلاه في وضع التصميم ، وشاشة الكود مغلقة ،

انقر على الكيبورد Ctrl+G ، بتدخل الكود ، وبيكون في نافذة صغيرة في اسفل شاشة الكود ،

في الكود اعلاه ، احذف الشرطة من امام Debug.print ،

ارجع للنموذج ، شغله ، وخليه يعطيك النتائج ،

ارجع لشاشة الكود ، وشوف الشاشة في الاسفل شو مكتوب فيها

 

جعفر

[kaser906]

2 ساعات مضت, jjafferr said:

وعليكم السلام

 

خليك في النموذج مال الكود اعلاه في وضع التصميم ، وشاشة الكود مغلقة ،

انقر على الكيبورد Ctrl+G ، بتدخل الكود ، وبيكون في نافذة صغيرة في اسفل شاشة الكود ،

في الكود اعلاه ، احذف الشرطة من امام Debug.print ،

ارجع للنموذج ، شغله ، وخليه يعطيك النتائج ،

ارجع لشاشة الكود ، وشوف الشاشة في الاسفل شو مكتوب فيها

 

جعفر

يا سلام عليك

شغل محترفين

رحم الله والديك

[jjafferr]

ووالديك ان شاء الله

 

هذه هي الطريقة الابسط في عمل الكود ،

وبدون اخطاء (لأنك تتعامل مع متغير واحد فقط في كل سطر) ،

والاسهل انك شوي شوي تجرب سطر وتضيف آخر ،

والارتب اذا بعدين اردت تغير شيء في الكود ، فتعرف وين تروح ، وتعرف انه ما بيأثر على الشروط/الاسطر الاخرى

 

يعني شطارتي مو في الكود ، وانما في الترتيب

 

المرتب جعفر

[kaser906]

5 ساعات مضت, jjafferr said:

المرتب جعفر

راائع استاذ صارت الصورة واضحه

الان حبيت استفسر منك عن الجملة التي يتم نسخها من الاستعلام مباشرة

'

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

وتعلم ان هناك بعض البرامج معمولة بالاكسس تحولها الى cod Vba

لكن احيانا لاتأتي بنتيجة صحيحة

فهل من طريقة تنصح بها

 

[jjafferr]

هممم

 

هذا اللي انت طالبه من زمان

طيب ارفق لي قاعدة بيانات مصغرة ، وانا احاول اعمل موضوع خاص به ان شاء الله

 

جعفر

[kaser906]

21 ساعات مضت, jjafferr said:

هممم

 

هذا اللي انت طالبه من زمان

طيب ارفق لي قاعدة بيانات مصغرة ، وانا احاول اعمل موضوع خاص به ان شاء الله

 

جعفر

تسلم استاذ

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

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

ثانيا

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

لو تعطيني مواصفات تكون موجودة بالقاعدة

او الله يعينك تستعين بقاعدة من اللي عندك ما اعتقد عليك قاصر

[kaser906]

في ١٢‏/١‏/٢٠١٨ at 17:11, kaser906 said:

تسلم استاذ

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

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

ثانيا

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

لو تعطيني مواصفات تكون موجودة بالقاعدة

او الله يعينك تستعين بقاعدة من اللي عندك ما اعتقد عليك قاصر