اذهب الي المحتوي
أوفيسنا

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

قام بنشر (معدل)
في ٢٠‏/٩‏/٢٠١٩ at 13:54, حسن بابكر said:

السلام عليكم

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

القيمة ترسل الي حقل num_word

eta.rar 34.17 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 3 downloads

اتفضل :fff:

ان اردت عدد الاحرف استخدم هذا الكوود

على ان يظهر العدد ف مربع نص باسم NUM_Characters

Me.NUM_Characters = Len(Replace(MASS.Text, " ", ""))

 

eta.accdb

تم تعديل بواسطه ابا جودى
قام بنشر (معدل)
في ٢٠‏/٩‏/٢٠١٩ at 14:05, kha9009lid said:

ههههههههه ماشى يا استاذ @kha9009lid :fff: جعلكم الله سباقون بالخيرات يارب 
انا وضعت الحل على ان يتم اثناء الكتابه احتساب عدد الكلمات

ولكن يدور ببالى سؤال هل يمكن تحقيق ذلك داخل استعلام ؟ :biggrin:  عدد الحروف وعدد الكلمات 

يا سلام لو موديول بقه جميل كده ويتطبق على كل زوايا البرنامج :wink2: يا عينى ع المخمخة :rol:

تم تعديل بواسطه ابا جودى
قام بنشر
الان, ابا جودى said:

ههههههههه ماشى يا استاذ @kha9009lid :fff: جعلكم الله سباقون بالخيرات يارب 
انا وضعت الحل على ان يتم اثناء الكتابه احتساب عدد الكلمات

ولكن يدور ببالى سؤال هل يمكن تحقيق ذلك داخل استعلام ؟ :biggrin:  عدد الحروف وعدد الكلمات 

هههههه

حبيب البي @ابا جودى المهم النتيجة وصاحب الموضوع وجد طريقتين تؤدي الغرض

بخصوص استفسارك تريد اجابة ادفع اول

نفس طريقتك مع حبيبنا @عبد اللطيف سلوم

  • Like 1
  • Haha 1
قام بنشر

اللهم صل وسلم وبارك على سيدنا وسيد الخلق وحبيبنا نبينا محمد صلوات ربى وسلامه عليه :biggrin:

وللعلم املك الاجابه :biggrin: ولكن اريد ان ارى ما بجعبتكم استاذى العزيز 

قام بنشر
21 دقائق مضت, ابا جودى said:

اللهم صل وسلم وبارك على سيدنا وسيد الخلق وحبيبنا نبينا محمد صلوات ربى وسلامه عليه :biggrin:

وللعلم املك الاجابه :biggrin: ولكن اريد ان ارى ما بجعبتكم استاذى العزيز 

اعرف انك تملك الاجابة ولكن كنت امزح معك

عدد الحروف في استعلام

Len(Replace([الاسم];" ";""))

عدد الكلمات

Len([الاسم])-Len(Replace([الاسم];" ";""))+1

مرفق مثال استعلام3

حساب.accdb

  • Thanks 1
قام بنشر (معدل)
في ٢٠‏/٩‏/٢٠١٩ at 15:20, kha9009lid said:

اعرف انك تملك الاجابة ولكن كنت امزح معك

عدد الحروف في استعلام


Len(Replace([الاسم];" ";""))

عدد الكلمات


Len([الاسم])-Len(Replace([الاسم];" ";""))+1

مرفق مثال استعلام3

حساب.accdb 516 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 1 download

ما شاء الله
الله يفتح عليك يا استاذنا الجليل

وهذه الطريقة التى احبها الاكواد داخل موديول لاتعامل معها فى كل زوايا البرنامج بكل سهولة  :yes:

انظر الموديول والاستعلام 4 :fff:

حساب.accdb

تم تعديل بواسطه ابا جودى
  • Thanks 1
قام بنشر
2 دقائق مضت, ابا جودى said:

ما شاء الله
الله يفتح عليك يا استاذنا الجليل

وهذه الطريقة التى احبها الاكواد داخل موديول لاتعامل معها فى كل زوايا البرنامج بكل سهولة  :yes:

انظر الموديول والاستعلام 4 :fff:

حساب.accdb 492 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 0 downloads

لمسات سحرية @ابا جودى ساحر الاكسس

  • Haha 1
قام بنشر (معدل)

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

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

كل الشكر والتقدير والعرفان بالجميل لكم استاذى الفاضل الموقر الجليل ومعلمى القدير واخى الحبيب الاستاذ @kha9009lid :fff: 

تم تعديل بواسطه ابا جودى
قام بنشر
في ٥‏/٨‏/٢٠١٩ at 20:42, kha9009lid said:

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

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


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 452 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 15 downloads

 

في ٢٠‏/٩‏/٢٠١٩ at 15:28, ابا جودى said:

ما شاء الله
الله يفتح عليك يا استاذنا الجليل

وهذه الطريقة التى احبها الاكواد داخل موديول لاتعامل معها فى كل زوايا البرنامج بكل سهولة  :yes:

انظر الموديول والاستعلام 4 :fff:

حساب.accdb 492 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 6 downloads

السلام عليكم استاذنا

بعد  تحميل الملف ظهرت مشكلة في فتح الملف

لايمكن فتح الملف التنسيق

حساب.accdb

قام بنشر (معدل)

الأخ العزيز حسن بابكر .. قد تفضل أخوىّ العزيزان kha9009lid و ابا جودى بالرد عليك بكل ما يخص الموضوع من صلة سواء حساب عدد الكلمات أو عدد الحروف.

ولذلك إن تفضلت علينا لا تفتح موضوعا جديدا لنفس السؤال .. يكفيك كتابة مثلا "للرفع" فى نفس الموضوع

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

eta.zip

تم تعديل بواسطه essam rabea
  • Like 1
  • Thanks 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information