حساب تكرار حرف

[سمير1404]

السلام عليكم 

الاخوة الكرام 

كنت سابقا وضعت تساؤلا واجاب عليه كلا من الفاضلين الأخ علي العتيبي والاخ سعيد صواب جزاهما الله خير 

سوؤالي اليوم نفس السؤال السابق ولكن باختلاف بسيط وهو 

عند كتابة اي اسم في حقل الاسم اريد ان يظهر في حقل d عدد مرات تكرار الحرف الاول فقط بغض النظر عن الاسم 

مثال 

عند كاتبة اسم علي ثم اضافة اسم علاء  بذلك تكون قيمة حقل d هي رقم 2 لتكرار حرف العين مرتين 

وكلما تكرر حرف العين يتزايد الرقم تلقائيا 

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

نفعكم الله وجزاكم خير .

 

othq.rar

[يوسف أحمد]

و عليكم السلام 

 

اخي العزيز سمير

 

اضع لك احد الحلول و هو بالقيام بحذف الحرف الاول ثم ايجاد طول النص و مقارنته بطول النص الكامل ..

 

لاحظ الاستعلام مصدر النموذج 

 

ملاحظة : تم تغيير بعض المسميات لحقل الاسم و النموذج ... بسبب استخدام اسم عربي للنموذج و اسم محجوز لحقل الاسم  .. ايضاً تم حذف الحقل d  من الجدول لانه يعتبر حقل محسوب لذا تم وضعه في الاستعلام  باسم expr4

 

بالتوفيق

othq.rar

تم تعديل يناير 24, 2016 بواسطه يوسف أحمد

[jjafferr]

وهذه محاولتي:

    Dim x() As String
    
    x = Split(Me!name, " ")
    First_Letter = Left(Me!name, 1)
    Me.d = 0
    
    For i = LBound(x) To UBound(x)
    
        If First_Letter = Left(x(i), 1) Then
            Me.d = Me.d + 1
        End If
        
    Next i
    

 

جعفر

[سمير1404]

اساتذتي الكرام  

يوسف أحمد

jjafferr

اشكر لكم  من اعماق قلبي تفضلكم الكريم بالاجابة على سؤوالي ...

كم استفدت منكم كثيرا وفقكم الله وزادكم من فضله .