AbuuAhmed

كلام غير علمي، أحدهم أطلقها وركض خلفها بعضهم وأصبحت من المسلمات (الخاطئة) في هذا المنتدى. لن أدخل في ردود أخرى هدفها الجدل والغلبة. ليتك أوضحت كلمة "لست" بضم التاء أم بفتحها، فإذا كانت بالضمة فكنت سأمتنع عن التعليق ولكن إن كانت بالفتح فأرى ردي واجبا وصمتي عنها خيانة علمية.

ابحث عن لغة اسمها على ما أتذكر: Basic4Android

أكيد بتكون بنفس الطريقة: Me.txt1 = Replace(Me.txt1, "عبدال", "عبد ال") Me.txt1 = Replace(Me.txt1, "عبدرب", "عبد رب") Me.txt1 = Trim(Replace(Me.txt1 & " ", "ة ", "ه ")) Me.txt1 = Trim(Replace(Me.txt1 & " ", "ي ", "ى ")) تم التعديل في حالة أن التاء أو الياء في الإسم الأخير.

وهذه بعد مشاهدتي لمشاركة الأستاذ أبو جودي: Me.txt1 = Replace(Replace(Me.txt1, "عبدال", "عبد ال"), "عبدرب", "عبد رب")

نصحتك باستخدام ما عبد من الأسماء بالشكل الصحيح، و "طنشتني" هل تعلم أن عندك 4 كلمات بها خطأ إملائي من أصل 11 كلمة. يجب الاهتمام باللغة والإملاء. على كل هذا اقتراح برمجي لطلبك: Me.txt1 = Replace(Me.txt1, "عبدال", "عبد ال", 1)

‏الأفضل عدم وضع مسافة بين (عبدالله) إذا كان اسم إنسان، أما إذا وصفًا فتوضع مسافة، نحو: يا زيد أنت عبد الله وإليه تدعو. وكذلك كل الأسماء المعبدة.

أسف توقعت أني وضعت رابط الموضوع

مليونا وألفا ومائتا أصح مما تطلبه لأن التفقيط يراعي قواعد اللغة، أما مسألة التاء المربوطة فهي متعلقة بجنس العملة وجنس الكسر، أنصح أن تنزل المثال في مشاركتي الأولى لتعرف كيفية استخدام التفيط بصورة صحيحة. المثال لفهم الاستخدام ولكن لا تستخدم وحدته النمطية فالشفرة اللي في مرفقك أحدث. طبعا لا أنصح بالتعديل على الشفرة، ويمكنك البحث في المنتدى عن تفقيط آخر فالتفاقيط هنا كثيرة.

تفقيط من "أبو هادي" حذفت المرفق السابق لاشتباهي أن هناك خطأ وربما هو متعمد من المبرمج. لاحظت أن البليون بالإنجليزي يأتي بعد المليون ولكنه يأتي بالعربي بعد المليار، وأنا لم أبحث ربما يكون صحيحا وربما لا. طباعه الشيكات_02.mdb

يوجد ملف باسم ArbMsgBox_20200907.rar على الرابط: Abu Hadi - MS Access مايكروسوفت أكسس (google.com) وله نسخة قديمة كذلك في الموقع هنا على الرابط:

مثال على استخدام الدالة: فحص_عدد_أجزاء_الاسم_01.accdb

بالاستفادة من فكرة الأستاذ موسى، دالة لتعطيك مخرج نعم/لا للاسم الذي يحتوي على عدد الأجزاء المطلوبة، ولا داعي لطرح واحد من عدد الأجزاء: Option Explicit Function NamePartsCounter(ByVal sName As String, ByVal Parts As Byte) As Boolean Parts = Parts - 1 sName = Trim(sName) Do While InStr(1, sName, " ") > 0 sName = Replace(sName, " ", " ") Loop NamePartsCounter = Parts = (Len(sName) - Len(Replace(sName, " ", ""))) 'If NamePartsCounter Then Debug.Print sName End Function 'إجراء لفحص الدالة Sub test() Debug.Print NamePartsCounter("عبدالله أحمد علي", 3) End Sub وأنصح في تخزين الأسماء باستخدام الـ "أندرسكور" بدلا من المسافة ، وعند العرض يتم معالجة الأسماء بتديل الأندرسكور بالمسافة باستخدام دالة Replace

شكرا لكم أستاذ أبو خليل، أخجلتني بكرمك وبفزعتك غير المستغربة. للأسف نفس المشكلة، يبدو أنه لا نصيب لي للاطلاع على هذا العمل. خلاص لا أريد المزيد من المحاولات. شكرا مرة أخرى لأبي خليل ولا يهون الجميع.

لم أعهد البخل في أعضاء المنتدى 🙂 الطلب للجميع، فقد فشلت في فتح الملف بشكل سليم. الأمر ليس ملحا فإن لم يتمكن أحد من تنفيذ طلبي فلا بأس. جمعة مباركة.

شكرا لكم، هل يمكن رفع نسخة على الإصدار 2007؟

ويمكن اختصار الكود ليصبح كالتالي: Me.NOTE.Enabled = Me.الرمز = "A" Me.TIME_WORK.Enabled = Me.الرمز = "A" أو كالتالي: Me.NOTE.Locked = Me.الرمز <> "A" Me.TIME_WORK.Locked = Me.الرمز <> "A"

جرب أدخل الأرقام بالإنجليزي (أرقام عربية وليست هندية) ربما يقبل منك.

لي الشرف أخي الكريم.

لا أدري هل حلي مكرر أم لا تحديد يوم وتاريخ بداية كل أسبوع ونهايته حسب التاريخ الحالي_03.xlsx

ذاكرتي اللعينة تجعلني أرتكب الأخطاء مشاركتي هنا كانت بالخطأ.

حسب فهمي لطلبك إذا كان صحيحا: Database11_04.accdb

وهناك أضفت لك الطريقة الثانية Database11_03.accdb

صممت لك تقرير يعتمد على استعلام، طبعا لو كان عندك بيانات كبيرة سيكون ثقيلا نوعا ما. إذا بيانات ضخمة سأصمم لك تقريرا بتحكم من داخل التقرير بواسطة الكود. Database11_02.accdb

خذ لك نظرة على هذا الموضوع:

يوجد ملف لأم القرى باسم: EventsCalendar_20070118.rar تم رفع الملف هنا لتمام الاستفادة EventsCalendar_20070118.xlsm