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

Moosak

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    2270

  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    57

 نوع المحتوي 

كل منشورات العضو Moosak

  1. Moosak
    مزيد من المعلومات حول "الكاتب الذكي لدوال المجال :::: Dloockup وأخواتها 😊"

    Version 1.3

    431 تنزيل

    بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته يسرني اليوم أن أقدم لكم هذه الهدية المتميزة والرائعة 😊 ( الكاتب الذكي لدوال المجال في أكسس ) Dloockup, DCount, DMax, DMin, Dfirst, DLast , DSum, DAvg هذه الأسطورة هي عبارة عن أداة صممتها في أكسس ( بفضل الله وحمده ) تقوم بكتابة دوال المجال نيابة عنك بشكل آلي .. وتعطيك النتيجة بشكل مباشر 😉👌🏼 لن يخطيء أحد بعد اليوم في كتابة جملة هذه الدوال إن شاء الله 😁 كل ما عليك فعله هو استيراد هذه الأداة لبرنامجك ثم اختيار الجدول أو الاستعلام المطلوب والحقل المراد وبعدها سترى العجب العجاب 🙂 ✨ ومن مزاياها :✨ 1 - تسهل عليك كتابة أسماء الجداول والحقول ( فقط تختارها من القائمة المنسدلة ) . 2- يحل مشكلة تداخل النصوص عند استخدامها مع الجداول والحقول المكتوبة باللغة العربية . 3- تفحص لك النتيجة مباشرة للتأكد من أنك ستحصل على البيانات التي تريدها . 4 - سهلة الاستخدام فقط اتبع الخطوات الموضحة وتأكد من اختيار نوع البيانات الصحيح . 5 - يمكنك عمل دالة بأربعة 4 معايير بكل سهولة ويسر . 6 - يمكنك عمل تعديلاتك الخاصة على الدالة مباشرة وفحص النتيجة مباشرة بعد التعديل على النتيجة النهائية . 7 - إمكانية الحصول على الصيغة الخاصة بمحرر الأكواد VBA أو الصيغة المستخدمة في الاستعلامات ومنشيء التعبير . 8- إمكانية استخدام الأداة بشكل مستقل من غير الحاجة لنقلها إلى برنامجك . 9- وغيرها الكثير مما سيفتح الله عليكم اكتشافه بأنفسكم إن شاء الله 😅 طريقة الاستخدام : سهلة يسيرة بحمد الله .. فقط قم بسحب النموذج المسمى SmartDomainFunctionsBuilder_F إلى برنامجك عن طريق السحب والإفلات .. ثم قم بفتح النموذج عندك وسوف يقوم هو آليا بالتعرف على الجداول والاستعلامات الخاصة ببرنامجك بدون الحاجة إلى جهد يذكر 🙂 ( مع إمكانية استخدام الأداة بشكل مستقل من غير الحاجة لنقلها لبرنامجك ولكنك ستفقد الكثير من المميزات 😉 ) الأداة تم عمل الكثير من التجارب عليها وتم تلافي العديد من الأخطاء وإصلاحها بحمد الله وفضله... ولكن لا زلت لا أستغني عن آراءكم وملاحظاتكم من خلال استخدامكم لها 😉 الشرح بالتفصيل : 🙂 وهنا قمت بشرح الأداة بشكل مفصل نوعا ما في مقطع فيديو مدته نصف ساعة تقريبا : وأهم من الأداة نفسها 😉 لا تنسوني من صالح دعائكم لي ولوالدي .. ولا تحرموني من آرائكم ومقترحاتكم ونصحكم وإرشادكم 🙂 أخوكم ومحبكم موسى الكلباني 😊
  2. Moosak
    جارِ القضاء عليه 😋😅
  3. Moosak
    الحمدلله على سلامتك عمي جعفر 😊🌷 عودا حميدا .. افتقدناك 🙂
  4. Moosak
    السلام عليكم ورحمة الله وبركاته أخي سيد .. تم تعديل الكود ليتلافى هذا الخطأ 🙂 Public Function RandomizeTxt(TXT As String) As String Dim x As Double Dim y As String Dim m As Double Dim L As String Dim R As String y = Replace(TXT, " ", "") m = Len(y) / 2 R = StrReverse(y) For x = 1 To m + 0.5 L = L & Mid(R, x, 1) & " " & Mid(y, x, 1) & " " Next If InStr(1, m, ".") > 0 Then L = Left(Trim(L), Len(L) - 2) End If RandomizeTxt = Trim(Replace(Replace(L, " ", ""), " ", " ")) End Function تجربة تكسير الكلام (1).accdb
  5. Moosak
    كل عام وأنتم بأتم صحة وعافية ، تقبل الله منا ومنكم الصيام وصالحات الأعمال ، وهنأتم بالعيد السعيد ، أعاده الله علينا وعليكم باليمن والبركات 🙂🌷🌹
  6. Moosak
    هذي الدالة تعطينا فكرة لعمل تشفير للجمل والكلمات
  7. Moosak
    أخي سید منصور هاشمی قمت بتعديلات جديدة على الكود .. فقد ظهرت لي أخطاء جديدة فجعلته هذه المرة يتجاهل المسافات ثم يضيفها من جديد لتجنب وقوع الأخطاء 🙂 حمل نفس الملف الأخير
  8. Moosak
    الحمدلله تم تصحيح هذا الخطأ 🙂 : وتم تعديل الكود : Public Function RandomizeTxt(TXT As String) As String Dim x As Double Dim y As String Dim m As Double Dim L As String Dim R As String y = Replace(TXT, " ", "") m = Len(y) / 2 If InStr(1, m, ".") > 0 Then y = Replace(y, Mid(y, m + 0.5, 1), Mid(y, m + 0.5, 1) & " ") End If R = StrReverse(y) For x = 1 To m + 0.5 L = L & Mid(R, x, 1) & " " & Mid(y, x, 1) & " " Next RandomizeTxt = Trim(Replace(Replace(L, " ", ""), " ", " ")) End Function تجربة تكسير الكلام (1).accdb
  9. Moosak
    أخي العزيز قاسم 🙂🌷 عندما تكون في حدود برنامج الأكسس (يعني فاتح البرنامج) تكون الأمور طيبة والتطبيق سهل .. لكن إذا كنت عامل minimize للبرنامج وتريد الرسائل تظهر في شريط المهام أو بطريقة أخرى في الويندوز فأعتقد أنه يحتاج الاستعانة بالمكتبات البرمجية للويندوز .. وهذا ما لا علم لي فيه حتى الآن 😅 لكن من الإخوة في المنتدى من لديهم تعمق في هذا الأمر .. ومنهم نتعلم 👍🏼🙂 وقد ذكرت لي أنت فكرة تشغيل ملف صوتي كتنبيه وهي فكرة تستحق التجربة 😉👌🏻
  10. Moosak
    كل الشكر لكما 😊🌷
  11. Moosak
    العفو أخي سيد .. ذلك فضل الله .. 🙂 وعليكم السلام ورحمة الله وبركاته أخي الحبيب @احمد الفلاحجي العفو حبيبنا بارك الله فيك 🙂 في الحقيقة هذا الجزء حل لي مشكلة إذا كان عدد الحروف فردي وتمت قسمته على 2 بيطلع لنا كسور وسيتم تكرار الحرف الأوسط مرتين ، لذلك زودت المسافة علشان دايما يكون العدد زوجي وتشتغل الدالة صح 😉👌🏻 ولذلك زودت هذا الجزء باش مهندس قاسم 😁✌️🏻 وللتأكد قم بتجميد هذي الجزئية .. وجرب تحط كلمة من خمسة حروف مثلا .. وشوف الفرق ب و بدون
  12. Moosak
    أهلا أخي سيد تم بحمد الله نجاح التجربة 🙂 وهذه هي الأكواد المستخدمة والدالة المكسرة للكلام Public Function RandomizeTxt(TXT As String) As String Dim x As Double Dim y As String Dim m As Double Dim L As String Dim R As String y = Replace(TXT, " ", "") m = Len(y) / 2 If InStr(1, m, ".") > 0 Then y = Replace(y, Mid(y, m + 0.5, 1), Mid(y, m + 0.5, 1) & " ") End If R = StrReverse(y) For x = 1 To m + 0.5 L = L & Mid(R, x, 1) & " " & Mid(y, x, 1) & " " Next RandomizeTxt = Trim(Replace(Replace(L, " ", ""), " ", " ")) End Function المرفق :
  13. Moosak
    الموضوع يحتاج دراسة وتعديل الكود ليتوافق مع عدد حروف الكلمة مهما كبر .
  14. Moosak
    وهذي فكرة أخرى (يأخذ الحرف الأول من الكلمة) 🙂 في الاستعلام الثاني MonthlyReportQ2 حضور سائقي الملاكي 2022.rar
  15. Moosak
    تم عمل استعلام جدولي لتجميع البيانات يتم فتحه من الصفحة الرئيسية : بعد اختيار الشهر والسنة يفتح الاستعلام : المرفق : حضور سائقي الملاكي 2022.rar
  16. Moosak
    وعليكم السلام ورحمة الله وبركاته .. الأخ سيد ماهي القاعدة التي تبني عليها ؟ لو أخذنا كلمة : س ي د ……مثلا كيف ستكون النتيجة ؟
  17. Moosak
    وعليكم السلام ورحمة الله وبركاته.. تكرما أخي @الأترُجّة قم بتحويل الأوفيس معك إلى اللغة الإنجليزية أو العربية ثم أرفق الرسائل من جديد ..🙂 وذلك لتحصل على إجابة سريعة.
  18. Moosak
    نعم أخي سيد طبعا ممكن .. 🙂
  19. Moosak
    تم الإنجاز أخي سيد 🙂 ... تفضل : الأكواد المستخدمة والدالة التي تحول الحروف : Private Sub GoCmd_Click() Dim x As Integer Dim y As String Dim L As String Dim R As String If IsNull(Me.FromTXT) Or Len(Me.FromTXT) = 0 Then Exit Sub For x = 1 To Len(Me.FromTXT) L = Mid(Me.FromTXT, x, 1) R = Replace(L, L, ARLetters(L)) y = y & Space(2) & R Next Me.ToTXT = y End Sub Function ARLetters(Letter As String) As String Select Case Letter Case "ا": ARLetters = "ألف" Case "أ": ARLetters = "ألف" Case "ء": ARLetters = "همزة" Case "ى": ARLetters = "ألف مقصورة" Case "ب": ARLetters = "باء" Case "ت": ARLetters = "تاء" Case "ث": ARLetters = "ثاء" Case "ج": ARLetters = "جيم" Case "ح": ARLetters = "حاء" Case "خ": ARLetters = "خاء" Case "د": ARLetters = "دال" Case "ذ": ARLetters = "ذال" Case "ر": ARLetters = "راء" Case "ز": ARLetters = "زاي" Case "س": ARLetters = "سين" Case "ش": ARLetters = "شين" Case "ص": ARLetters = "صاد" Case "ض": ARLetters = "ضاد" Case "ط": ARLetters = "طاء" Case "ظ": ARLetters = "ظاء" Case "ع": ARLetters = "عين" Case "غ": ARLetters = "غين" Case "ف": ARLetters = "فاء" Case "ق": ARLetters = "قاف" Case "ك": ARLetters = "كاف" Case "ل": ARLetters = "لام" Case "م": ARLetters = "ميم" Case "ن": ARLetters = "نون" Case "ه": ARLetters = "هاء" Case "هـ": ARLetters = "هاء" Case "و": ARLetters = "واو" Case "ي": ARLetters = "ياء" Case Else: ARLetters = Letter End Select End Function تحویل الحروف.zip
  20. Moosak
    دائما متألق يا @ابو جودي 😊
  21. Moosak
  22. Moosak
    وإليك أيضا عدة حلول رائعة هنا :
  23. Moosak
    بارك الله همم الشباب وحفظكم الله .. حلول رائعة وجميلة 🙂 ولي رأي بأن يتم إنشاء جدول يوضع فيه الكلمة المختصرة ويقابلها العبارة الكامله لها .. هكذا : ثم يتم إنشاء وحدة نمطية تفحص وجود الكلمة في الجدول وتحضر العبارة الكاملة في مربع النص الآخر .. بهذه الطريقة سيكون متاح للمستخدم أن يضيف إلى الجدول ما يشاء لاحقا بدون الحاجة لتعديل الوحدة النمطية كلما أرنا إضافة دولة جديدة .. هذا كود بعد التحديث : Private Sub text1_AfterUpdate() Dim LookFor As String Dim FullName As String If IsNull(Me.text1) Then Exit Sub LookFor = Trim(Me.text1) FullName = DLookup("[LongName]", "[Cuntries]", "[ShortName] Like '*" & LookFor & "*'") Me.text2 = FullName End Sub ( إعلان : شكرا للكاتب الذكي لدوال المجال 😊 الراعي الرسمي لهذه الدالة )   وهذه النتيجة ( قبل / بعد ) : الملف : db2_text.mdb
  24. Moosak
    تشرفت بحضورك أخي أشرف .. وأنت لا تنساني من دعواتك الطيبة وملاحظاتك القيمة 😊
  25. Moosak
    الله الله الله .. جمال في جمال ماشاء الله .. 😃🌹 رائعة من روائعك أخي عمر .. 🙂 أحييت فينا ذكريات الواجهات الجميلة والجذابة في هذه الأيام المباركة 😊 عمل جميل وجهد واضح ماشاء الله 👍🏼
×
×
  • اضف...

Important Information

  I accept