السادة الافاضل يرجى منكم الافادة نحو دالة تقوم بحساب عدد نص معين داخل السجل على سبيل المثال حقل اسمه نوع الاجازة وبه نوعان سنوية و عارضة اريد عدد كلمة سنوية وعدد كلمة عارضة
ولكم منى تحياتى وشكرا
دالة تجميع نصوص او حساب عدد سجلات بداخلة نصوص
إذا كنت تريد إحصائية كاملة لكل الأنواع دفعة واحدة، فيمكنك استخدام عبارة SQL التالي:
SELECT [type_field], COUNT([type_field]) FROM [table_name] GROUP BY [type_field]
حيث:
type_field هو اسم الحقل الذي يحوي النص المطلوب (مثل "سنوية أو "عارضة"،...)
table_name هو اسم الجدول
أما إذا كنت تريد عدد تكرار نوع محدد، فيمكنك استخدام الدالة التالية
type_count = DCOUNT("*", "table_name", "type_field = 'سنوية'"))حيث:
type_count هو اسم المتغير أو عنصر التحكم (مثلاً مربع نص) الذي سيحوي النتيجة
type_field و table_name كما سبق أعلاه
يمكن استبدال قيمة أي عنصر تحكم بكلمة سنوية حتى يكون المستخدم قادراً على اختيار ما يريد
والله أعلم.
اخى العزيز لقد جربت الكود الذى ارسلته واعطانى خطأ =DCount("*";"holidays_record";"type_field = ''سنوية'")
السلام عليكم ورحمة الله وبركاته
بعد أذن الأخوين المشرفين الكريمين/ أحمد مبارك الحيقي والأخ محمد وليد علوش
هذه مشاركتي مبنية على مثال الأخ محمد علوش وفقه الله
txt1 = DCount("id", "Tbl1", "vac='" & "عارضة" & "'")
txt2 = DCount("id", "Tbl1", "vac='" & "سنوية" & "'")
End Sub
Private Sub Form_Current()
أرجو احتسابها تنوع في الحلول والاجابات وأرجو المسامحة لأخي محمد لأستخدام مثاله
وفقكم الله
أبومحمد
pms كتب:السلام عليكم ورحمة الله وبركاته
بعد أذن الأخوين المشرفين الكريمين/ أحمد مبارك الحيقي والأخ محمد وليد علوش
هذه مشاركتي مبنية على مثال الأخ محمد علوش وفقه الله
txt1 = DCount("id", "Tbl1", "vac='" & "عارضة" & "'")
txt2 = DCount("id", "Tbl1", "vac='" & "سنوية" & "'")
End SubPrivate Sub Form_Current()أرجو احتسابها تنوع في الحلول والاجابات وأرجو المسامحة لأخي محمد لأستخدام مثاله
وفقكم الله
أبومحمد
اود ان اشكر كل الاخوة الذين افادونى فى الحل مع اختلاف الطرق للحل وكانت افضل طرق الحل
Private Sub Form_Current()
txt1 = DCount("id", "Tbl1", "vac='" & "عارضة" & "'")
txt2 = DCount("id", "Tbl1", "vac='" & "سنوية" & "'")
End Subواود ان اشكر الاخ / أحمد مبارك الحيقي الذى تعب معايا كتير وسرعة الرد على الاسئلة المطروحة بالمنتدى
الف الف شكر
[b]
خي الكريم/ عبده الطوخى
السلام عليكم ورحمة الله وبركاته
ليتك تقرأ ويقرأ غيرك كلماتي بتمعن وهدوء وسعة صدر وطولت بال ولا تستعجل الحكم عليّ فلا زلت مثلك
أطلب العلم رغم تقدمي بالسن .. هذا الكلام لا أقصد فيه تجريح شخصك وانتقاصك فأنت عزيز عليّ مما لحظت
عليك من أدب جم وإنما هي مصارحة مع النفس لحال الكثيرين منا
أخي الحبيب يخطئ بعضنا عند طرح مشاركته ويفضل أخذ الحلول الجاهزة عنها من الشرح والتفصيل لأساتذة
هم مدرستنا ومعلمونا الأوائل فجزاهم الله عنا كل خير .. وقولك:
عبده الطوخى كتب:اود ان اشكر كل الاخوة الذين افادونى فى الحل مع اختلاف الطرق للحل وكانت افضل طرق الحل
txt1 = DCount("id", "Tbl1", "vac='" & "عارضة" & "'")
txt2 = DCount("id", "Tbl1", "vac='" & "سنوية" & "'")
End SubPrivate Sub Form_Current()
أخي الفاضل لعلك سمعت المثل القائل: (أعطني سمكة وسآكل ليوم واحد . علمني صيد السمك وسآكل العمر كله)
لا أخفيك مقدار استيائي عند تفضيلك الحل الجاهز على أسلوب الشرح والتفصيل بما تفضل به الأستاذان
الفاضلان: أحمد مبارك الحيقي والأستاذ: ابو يوسف mrnooo2000 أعتذر له لأني ألتبس عليّ الأسم مع
أستاذي محمد وليد علوش في مشاركتي السابقة ربي يمسيه ويصبحه دائما بالخير والجميع كذلك فعذرا لك أبا يوسف.
تعلم لماذا؟ لأنك ببساطة ابتدأت سؤالك بطلب الإفادة (يرجى منكم الإفادة) وطالب الإفادة من غير المنطق أن
يكتفي بسمكة يومه الواحد .. بل همه التعلم المستمر لأنه سيأكل العمر كله من بركة هذا العلم. نعم علينا أن
نجرب ونخطئ ومن أخطائنا نتعلم ونتعلم على قدر أكبر ممن نذر نفسه ليعلم الناس الخير والأفضل دائما تأصيل العلم
من أصوله المعتبرة حيثما كان مصدرها الإنساني مسلمين وغيرهم ولعل في هذا المنتدى أقطاب حاولوا جاهدين
تقعيد القواعد لتعلم أصول البرمجة وأساسيات كائنات قواعد البيانات ومن دون ذكر أسماء تلحظ معي أخي الكريم
سلسلة من العباقرة الأفذاذ لو أن لي قرار نافذ وقدرة لوفرة لهم البيئة الحاضنة اللائقة بهم لأنهم كنوز أمتنا وطليعة شبابنا وشاباتنا
بذلوا ما في الوسع لخدمتنا دون مقابل وما ضنوا بها على أحد والله أعلم بحالهم (الوظيفي + التكاليف الأسرية + الصحة العامة ..)
فهل من المنطق أن توفر شركة قوقل أو مايكروسوفت لمبرمجيها الوظيفة الخيالية وبرواتب مغرية وبعمل مريح كأنه 7نجوم
مكتب ومواصلات ورحلات طيران + الضمان والتأمين بأنواعه + بونصات إن صح التعبير.. ألخ.
ولا تستثمر جهود شبابنا ورجالنا ونسائنا هؤلاء بالرعاية والاهتمام .
دولة مثل الهند كنا نتندر عليها ونتهكم بها والآن هي في طليعة الدول المتقدمة في البرمجيات ويكفيها فخرا أن دولا أخرى
مثل أمريكا وأوربا وروسيا وأخرى تستعين بخبراتها التقنية فهنيئاً لأمة الهند رجال صنعوا لها القرار وقربوها في مصاف الدول العظمى قريبا.
نحن بحمد الله (كما يشهد التاريخ لنا) أمة صانعة للحضارات والثقافات وحاضراً فينا من الإبداع الخطير في البرمجة والتقنية
مما يؤهلنا للسيادة والريادة . نسمع عن ممولين ميسورين الحال لقنوات فضائية أو مشاريع أستثمارية وهذا مطلب آخر ضروري
ولكن هل سمع فيكم أحد عن مستثمر من جلدتنا منصف من غير جشع ولا طمع لعقول ومواهب أبداعات النخبة من أمتنا بأنشاء
معهد أبحاث تقني متقدم يستقطب الصفوة وله رؤى واضحة ورسالة جليلة وقيم عليا تحقق الطموح لرسم الإهداف الصحيحة .. ولعل تجربة ماليزا
في شتى المستويات خير شاهد لي وداعم لنظريتي.
أخي الحبيب والإخوة الكرام بعد هذا الاسترسال الطويل في الحديث. هل توافقني الرأي بصواب مقولتي ولا أقول: (أنت معي أو ضدي)
فأنا أحترم وجهة النظر الأخرى وأتعايش معها دون التنازل عن طموحي وآمالي.
أبومحمد