مع ان الاستفسار غير واضح ولكن لحساب عدد الكلمات في الحقل توجد عدة طرق
الاولى طريق استاذنا الفاضل ابو خليل وباستخدام دالتين
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
وفي المرفقات نموذج للطرق الثلاث علما بانه في هذة الكرق قد يحصل عدد غير صحيح مع الاسماء المركبة مثل عبد الله بسبب المسافة
Database21.accdb