ما الخطأ في هذا الكود

[ِAbo_El_Ela]

Me.n= Dcount("*";"Harka";"[نوع المستند]='"& [نوع المستند] &"'"And كود الدعوي = Me.كود_الدعوي")

 

 

تم تعديل نوفمبر 25, 2021 بواسطه jjafferr
إظهار الكود بالطريقة الصحيحة بإستعمال زر <> من القائمة

[ِAbo_El_Ela]

[ِAbo_El_Ela]

الكود موجود في نموذج 

frmHarkaNew

تحت زر حفظ

 

Database3.rar

[ِAbo_El_Ela]

كيفية العد بشرطين نصي و عددي

[ناقل]

1 ساعه مضت, ABOLO2 said:

كيفية العد بشرطين نصي و عددي

هذه يسهل ما تشاء من شروط ....

استخدم هذا 

Dim myCriteria As String
        myCriteria = "[نوع المستند] = '" & Me.نوع_المستند & "'"
        myCriteria = myCriteria & " AND "
        myCriteria = myCriteria & "[كود الدعوي] =" & Me.كود_الدعوي
        Me.n = DCount("[كود الحركة]", "harka", myCriteria)

 

[ِAbo_El_Ela]

اشكرك اخي العزيز تعبتك معي 

الكود اللي حضرتك علمتة مش بيدي رسالة خطا 

و لكن النتيجة غير صحيحة 

الناتج ديما صفر 

فهل من نظرة اخري علي الكود 

[ِAbo_El_Ela]

مازالت المشكلة موجودة 

 

[ناقل]

حسب طلبك كان هناك شرطان للعد

كود الدعوى

نوع المستند

وفي الجدول المعطى كود الدعوى 1

نوع المستند عقد 

انظر عند الضغط على الزر في الشرح يكون الناتج 2 

 

[king5star]

أضف +1 

Me.n = DCount("[harka_Num]", "harka", myCriteria)+1

تم تعديل نوفمبر 25, 2021 بواسطه king5star

[ِAbo_El_Ela]

18 ساعات مضت, ناقل said:

هذه يسهل ما تشاء من شروط ....

استخدم هذا 

Dim myCriteria As String
        myCriteria = "[نوع المستند] = '" & Me.نوع_المستند & "'"
        myCriteria = myCriteria & " AND "
        myCriteria = myCriteria & "[كود الدعوي] =" & Me.كود_الدعوي
        Me.n = DCount("[كود الحركة]", "harka", myCriteria)

 

اسف جدا استاذي 

خطأ في التطبيق من عندي

و بعد التنفيذ تم المطلوب 

 

3 ساعات مضت, ناقل said:

حسب طلبك كان هناك شرطان للعد

كود الدعوى

نوع المستند

وفي الجدول المعطى كود الدعوى 1

نوع المستند عقد 

انظر عند الضغط على الزر في الشرح يكون الناتج 2 

 

شكرا جزيلا استاذنا و معلمنا 

شكرا لسعة صدرك 

معلش انا مبتدئ 

[ناقل]

ليس ما يدعو للاسف اخي الكريم ... حياك الله .. بالنوفيق