مساعدة في دالة dcount

[الشقاوي]

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

اخواني 

اريد  طريقة دالة dcount  للبحث بأكثر من شرط (شرطين أو ثلاثة)

ولكم الشكر والتقدير 

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

DCount("REFVAL","SrNoiseOutCome","[SRNOIOUT]='INDUST'" And "[SRNOICAT]='NUICEA'")

 

تم تعديل أغسطس 26, 2018 بواسطه محمد احمد لطفى

[jjafferr]

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

 

تفضل هذا الرابط به طريقة سهلة ، ولكن قم بتغيير الامر من Dlookup الى DCount

 

جعفر

[الشقاوي]

السلام عليكم 

 

شكراً لكم جميعاً 

ولكن حاولت تطبيق الدالة للبحث بأكثر من شرط  ولم تنجح  الطريقة   علماً ان معيار البحث رقمي

[jjafferr]

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

 

اذن آن الاوان ان ترفق هذه الجزئية من برنامجك ، وتخبرنا بالضبط عن المطلوب ، وبمثال لوسمحت ، لأننا لا نرى ما تراه

 

جعفر

[الشقاوي]

هذا المثال مرفق 

ولك الشكر اخي الكريم 

NBZ.accdb

[jjafferr]

 

1. نعمل استعلام خاص لمصدر بيانات النموذج ، واسميته qry_1

.

2. في حدث تحميل النموذج ، استعمل هذا الكود

 

Private Sub Form_Load()

        Dim myCriteria As String
        
        myCriteria = "[A2]=1"
        myCriteria = myCriteria & " And [A3]=1"
        myCriteria = myCriteria & " And [A4]=1"
        myCriteria = myCriteria & " And [A5]=1"

        Me.TOTL = DCount("*", "qry_1", myCriteria)

End Sub


او

Private Sub Form_Load()

        Me.TOTL = DCount("*", "qry_1", "[A2]=1 And [A3]=1 And [A4]=1 And [A5]=1")
End Sub

.

جعفر

952.NBZ.accdb.zip

[الشقاوي]

تم التطبيق ولك الشكر وتقدير  اخي جعفر