*فورم*عدد السجلات باستخدام دوال المجال التجميعية بالشروط

الحل كالتالي :

TxtDcount = DCount(" [1] ", "Tbl1", "[1] like '" & [Forms]![frmNam]![Txtchr] & "*'")

ولك تحياتي

طريقة أخري أطول !!!

اصنع فورم رئيسي بالاسم الذي ذكرته

ضع فيها فورم فرعي ، ضع علي الفورم الرئيسي صندوف النص الذي ذكرته و ضع دالة Count عادية فى تذييل الفورم الفرعي و اجعلها مخفية و أشر اليها فى صندوق نص علي الفورم الرئيسي

ثم ضع الكود الحالي فى حدث بعد التحديث

Private Sub TxtChr_AfterUpdate()
   Dim  n As String
n = "SELECT  TblCostmur .*  FROM [TblCostmur ]WHERE ((TblCostmur .[FieldName]) Like *'" & TxtChr.value & "') ;"
Forms![FrmCostmur ]![SuybFormName].Form.RecordSource = n
End Sub

فيظهر العدد تلقائيا فى صندوق النص علي الفورم الرئيسي

ملحوظة هذه هي الفكرة فقط و لم أجرب الكود بعد

الأخ /ابو حمود

الأخ /مصراوي

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

الأخ ابو حمود

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

TxtDcount = Dcount(" [1] " , "Tbl1", "[1]='فني' ")

هو نفس السؤال السابق غير أنني لا أريد إلإشارة إلى النموذج ومربع النص الموجود عليه

قمتبالتعديل في الكود الذي كتبته غير أنني لم أفلح فهو يعطني مجموع الحقل ولو أختلفت القيم وهذا مثال لمحاولاتي لغير المفيدة

 TxtDcount = Dcount(" [1] " , "Tbl1", "[1]= like '" &فني  & "*'")

والذي أرغبه من ذلك هو إعطائي نفس النتيجة التي تظهر في الكود الذي كتبته بالأعلى ولكن من دون أن أكتب كلمة فني في النموذج بل تكفي أن أكتبها في الكود0

اعلم أنني ثقيل ولكن الحاجة هي أكبر دافع

أرجو عدم المؤاخذة

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

هذا مثال علي طريقة أبو حمود

http://www14.brinkster.com/mtarafa/forms/count.zip

و ان كنت أنا أفضل طريقة الفورم الرئيسي و الفورم الفرعي حيث سيظهر لي السجلات التي أريد عدها

شكراً أخ مصراوي على المثال فالفائدة فيه تتضح بشكل أكبر .

الأخ 5060

الكود كالتالي :

TxtDcount = DCount("[1]", "Tbl1", "[1] like 'فني*'")

ثم اسئل مابدا لك أهم شيء عندي أنني إذا ذكرت شيء فأرغب أن تستفيد منه لأنني قد أتعب فيه وإذا لم تفهمه فأحب أن تكرر السؤال عنه وإلا مالفائدة ؟;)

ولك تحياتي

أخي وإستاذي الفاضل ابو حمود

شكراً جزيل الشكر على سعة صدرك وتواضعك وهذا يدل على معدنك الطيب ونعم الأخ والسند فعلاً المثالين السابقين يساويان عندي ما قد عرفته في برمجة أكسيس وفقك الله وقد فهمتهما الأن جيداً

الأخ /مصراوي

أشكرك على المثال ونعم الأخ أنت

ما عمر الزين أكتمل

لقد قمت بنسخ الكود

 TxtDcount = DCount("[1]", "Tbl1", "[1]= like 'فني*'")

وغيرت في التسميات فقط كالتالي:

 txt2 = DCount("[Rotba]", "TblName", "[Rotba]= like 'رقيب*'")

ولكن تظهر لي رسالة نصها الأتي:

Run-time Error 3075

خطاء في بناء الجملة (عامل مفقود)في تعبير الستعلام

فهل ياترى ما هو الخطأ 0

نعم الخطأ مني امسح علامة يساوي قبل Like .

ولك تحياتي

شكراً لقد أصبح كل شيء على ما يرام أكرر شكري لك أخي ابو حمود

للرفع .. ((للفائدة)) و ((للأرشيف))