AbuuAhmed

محاولتي:
 

Periods_01.xlsx

كل ما يمكن عمله باستخدام GoTo يمكن عمله عند استخدام Resume Next، يفترض على المبرمج الإحاطة بما يكتب وبأخطاء التشغيل وكيف يصطادها ويعالجها أو تجاوزها.
مشكلة البعض يعتقد أن استخدام GoTo مرحلة متقدمة وخاصة بالمبرمجين المتقدمين والأخرى خاصة بالمبتدئين وبمن يبرمج بـ "البركة".

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

شاهد هذا الموضوع:

5 ساعات مضت, دروب مبرمج said:

لست بحاجة لها و في اعتقادي بأنها ليست مجدية 

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

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

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

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, "عبدال", "عبد ال"), "عبدرب", "عبد رب")

في 20‏/9‏/2023 at 03:30, عبدالعليم اسماعيل said:

عند كتابة اى اسم يبداء بعبد يأخذ  مسافه تلقائيه بدون استعلام

نصحتك باستخدام ما عبد من الأسماء بالشكل الصحيح، و "طنشتني"
هل تعلم أن عندك 4 كلمات بها خطأ إملائي من أصل 11 كلمة. يجب الاهتمام باللغة والإملاء.

على كل هذا اقتراح برمجي لطلبك:
 

Me.txt1 = Replace(Me.txt1, "عبدال", "عبد ال", 1)

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

وكذلك كل الأسماء المعبدة.

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

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

المثال لفهم الاستخدام ولكن لا تستخدم وحدته النمطية فالشفرة اللي في مرفقك أحدث.

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

تفقيط من "أبو هادي"

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

طباعه الشيكات_02.mdb

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

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

7 ساعات مضت, AbuuAhmed said:

دالة لتعطيك مخرج نعم/لا للاسم الذي يحتوي على عدد الأجزاء المطلوبة

مثال على استخدام الدالة:
 

فحص_عدد_أجزاء_الاسم_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

6 ساعات مضت, ابوخليل said:

مع ذلك حولت المرفق الى الاصدار 2003

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

خلاص لا أريد المزيد من المحاولات. شكرا مرة أخرى لأبي خليل ولا يهون الجميع.

21 ساعات مضت, AbuuAhmed said:

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

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

في 28‏/8‏/2023 at 00:26, أبوأحـمـد said:

الملف مفتوح

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

ويمكن اختصار الكود ليصبح كالتالي:

Me.NOTE.Enabled = Me.الرمز = "A"
Me.TIME_WORK.Enabled = Me.الرمز = "A"

أو كالتالي:

Me.NOTE.Locked = Me.الرمز <> "A"
Me.TIME_WORK.Locked = Me.الرمز <> "A"

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

9 ساعات مضت, محمد حسن المحمد said:

أسعدني مروركم العطر أخي الكريم

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

لا أدري هل حلي مكرر أم لا

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

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

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

Database11_04.accdb

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

Database11_03.accdb