مرحبا للجميع
اريد مساعدة في طريقه اجمع بها عدد تكرار حرف معين في صف يحتوي علي اكثر من خليه وفي كل خليه حرف واحد فقط
هل هناك طريقه
وجزاكم الله كل خير
[ تمت الإجابة ]جمع عدد حروف في صف واحد يحتوي علي اكثر من حرف
السلام عليكــم ورحمـة الله وبركاتــه
اضف هذه الدالة الى برنامجك
Function ChrCnt(Strtext As String, Chrsrch As String) As Integer ChrCnt= 0 For i = 1 To Len(Strtext) If Mid(Strtext, i, 1) = Chrsrch Then ChrCnt = ChrCnt + 1 Next i End Function
2- انشيء استعلاماً مبنياً على الجدول المطلوب واضف اليه الحقلين التاليين
Alstr: c1 & c2 & ...& cn
ملاحظة : c1,c2 ..cn الحقول في الجدول
Countchr:ChrCnt(Alstr,[الحرف المطلوب])
وبالتوفيق
ناصر المصاروة
تم تعديل هذه المشاركة بواسطة Naser Al Masarwa في 22 يناير 2009 في 13:56
شبكة سوارقريباً
Sewar
اشكرك جدا يا اخي الفاضل
ولكن ممكن توضيح للاستعلام
وكيف اطبقها علي النموذج ليحفظ في جدول
تم تعديل هذه المشاركة بواسطة tamer_kh_5251 في 22 يناير 2009 في 14:23
جزاك الله كل خير
اخي الفاضل اعذرلي جهلي
فعلا المثال شغال كما ينبغي
لكن مش فاهم فكرته وبالتالي مش قادر اوظفه في شغلي
يا ريت حضرتك توضح الفكره و لو فيه طريقه مباشره للتأثير علي الجدول من خلال نموذج رئيسي