كيف يتم عد قيمة معينة بحقل ؟

مرحبا

يمكنك أن تعرف متغير Global وبواسطة هذا المتغير يمكنك ان تعد أي حرف انت تريده

بواسطة if

وأرجو أن يكون الحل

الأخ القاروق

السلام عليكم

الحقيقة أنني تحمست للرد عليك بسبب اسمك المجيد ، جعلك الله فاروقاً ببن الحق والباطل

يمكنك استخدام أمر كالتالي :

dim a as integer

dim b as string

dim acount as integer

acount = 0

b = "2،5،5،5،5،6،7،5،5،7،11،00،5،5،3" ' أو أي متغير آخر

for a = 1 to len(b)

if mid(b ,a,1) = "5"  then

acount  = acount  + 1

end if

next

msgbox "تكرار الرقم 5 هو " & acount

وأعتذر إذا كان هناك خطأ في الكود لأنني كتبته مباشرة في المتصفح

السلام عليكم

شكراً للجميع

أخ abohajr شكراً لك ..

ولكن هذا السطر هو حقل غير معرف محتواه ربما وصل إلى 60000 خانة

اقتباس

b = "2،5،5،5،5،6،7،5،5،7،11،00،5،5،3" ' أو أي متغير آخر

فهل يتم كتابة اسم الحقل بدلا من هذا السطر أم يتم كتابة عدد السجلات ويتم وضعه للمتغير b ???

وجزاكم الله خيرا جميعاً

Select count(*) from myTable where field1=5;

الأخ الفاروق

الأمر السابق يمكن تنفيذه مهما كان طول المتغير وسواء كان في جدول أم في نموذج لكن المسألة ستؤثر على سرعة النتيجة بالطبع

اشرح لي ما تريد بالضبط أو أخبرني ما تريد أن تفعل وسوف أجد لك حلاً بإذن الله

السلام عليكم

بارك الله فيكم

لدى قاعدة بيانات بها عدة جداول بأحد الجداول المسمى " Values " يوجد حقل يسمى " serial " أريد أن أقوم بحساب عدد مرات تكرار رقم معين نفرض أنه (الصفر) ..

هذا كل ما فى الأمر وأكرر وافر شكرى للأخ/ abohajr وكل من قام بالرد

---

جيد يمكنك استخدام الأمر السابق في شبكة الاستعلام بعد تحويله إلى دالة ووضعها في إحدى الوحدات النمطية العامة وتمرير المتغير إلى الدالة بحيث تعرض في نتيجة الاستعلام التكرار لكل متغير في الجدول

يمكن أن تكون الدالة بالشكل التالي

function countOfSome (myvar as string)

dim a as integer

dim b as string

dim acount as integer

acount = 0

b = myvar

for a = 1 to len(b)

if mid(b ,a,1) = "5"  then

acount  = acount  + 1

end if

next

msgbox "تكرار الرقم 5 هو " & acount 

end function

وفي شبكة الاستعلام أدرج الحقل الذي يحتوي على المتغير ثم أضف حقلاً جديداً في شبكة الاستعلام بالصيغة التالية :

varcount : countOfSome ([اسم الحقل الذي يحتوي على المتغير])

السلام عليكم

اقتباس

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

لقد ذكرت الوحدة النمطية .. فماذا سيكتب بالإستعلام؟

السلام عليكم

معذرة فلم أنتبه للسطر الثانى إلا بعد كتابة الرد ...

وشكرا لك يا أخ/abohajr

وسأجرب إن شاء الله

أخي الكريم

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

الدالة يجب أن تكون بالشكل التالي

function countOfSome (myvar as string , whatyourvar as string)

dim a as integer

dim b as string

dim acount as integer

acount = 0

b = myvar

for a = 1 to len(b)

if mid(b ,a,1) = whatyourvar   then

acount  = acount  + 1

end if

next

countOfSome  = "تكرار الرقم  " & whatyourvar  & "هو " & acount 

end function

وفي شبكة الاستعلام أدرج الحقل الذي يحتوي على المتغير ثم أضف حقلاً جديداً في شبكة الاستعلام بالصيغة التالية :

varcount : countOfSome ([الرقم الذي تريد عده],[اسم الحقل الذي يحتوي على المتغير])

السلام عليكم

مشكور أخ/ أبو هاجر

سأجرب