كيفية جمع عدد الكلمات

حسن بابكر · أغسطس 4, 2019

السلام عليكم

ممكن اعرف كيفية الحصول علي عدد الكلمات وبعد ذلك اضربها في 0.6

**عبد اللطيف سلوم** · أغسطس 4, 2019

31 دقائق مضت, حسن بابكر said:

السلام عليكم

ممكن اعرف كيفية الحصول علي عدد الكلمات وبعد ذلك اضربها في 0.6

وضح سؤالك ويا ريت ترفق مثال للتطبيق

هذا قسم اكسس وليس وورد

وين بدك تعد الكلمات ؟؟

**kha9009lid** · أغسطس 5, 2019

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

الاولى طريق استاذنا الفاضل ابو خليل وباستخدام دالتين

Me.نص9 = Len([اسم]) - Len(Replace([اسم], " ", "")) + 1

والطريقة الثانية للمعلم الفاضل استاذنا رمهان ويتم استخدام اربع دوال

Me.نص17 = UBound(Split(Trim(Replace(اسم.Text, Chr(13) & Chr(10), " ")) & " ", " "))

الطريقة الثالثة وهي من اسهل الطرق

Dim k() As String
 
k = Split(اسم, " ")
 
Me.نص19 = UBound(k) + 1

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

تم تعديل أغسطس 5, 2019 بواسطه kha9009lid

**ابو ياسين المشولي** · أغسطس 5, 2019

مشاركة مع اخي خالد

في حدث عند التغير
Me.نص7 = IIf((((Len(Me.اسم.Text)) - (Int(Len(Me.اسم.Text)))) * 1) > 0, (Int(Len(Me.اسم.Text))) + 0, Int((Len(Me.اسم.Text) + 0)))

حسن بابكر · أغسطس 7, 2019

شكرا استاذ ابوياسين

في ملحوظة علي المشكلة الي عندي ... انا مجتاج حساب عدد الكلمات . (مش الاحرف) .. بشرط (عندما تكون عدد حروف الكلمة اكثر من 11 جرف تعتبر كلمتين)

تم تعديل أغسطس 7, 2019 بواسطه حسن بابكر

الردود الموصى بها