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

أخي العزيز قاسم 🙂🌷 عندما تكون في حدود برنامج الأكسس (يعني فاتح البرنامج) تكون الأمور طيبة والتطبيق سهل .. لكن إذا كنت عامل minimize للبرنامج وتريد الرسائل تظهر في شريط المهام أو بطريقة أخرى في الويندوز فأعتقد أنه يحتاج الاستعانة بالمكتبات البرمجية للويندوز .. وهذا ما لا علم لي فيه حتى الآن 😅 لكن من الإخوة في المنتدى من لديهم تعمق في هذا الأمر .. ومنهم نتعلم 👍🏼🙂 وقد ذكرت لي أنت فكرة تشغيل ملف صوتي كتنبيه وهي فكرة تستحق التجربة 😉👌🏻

كل الشكر لكما 😊🌷

العفو أخي سيد .. ذلك فضل الله .. 🙂 وعليكم السلام ورحمة الله وبركاته أخي الحبيب @احمد الفلاحجي العفو حبيبنا بارك الله فيك 🙂 في الحقيقة هذا الجزء حل لي مشكلة إذا كان عدد الحروف فردي وتمت قسمته على 2 بيطلع لنا كسور وسيتم تكرار الحرف الأوسط مرتين ، لذلك زودت المسافة علشان دايما يكون العدد زوجي وتشتغل الدالة صح 😉👌🏻 ولذلك زودت هذا الجزء باش مهندس قاسم 😁✌️🏻 وللتأكد قم بتجميد هذي الجزئية .. وجرب تحط كلمة من خمسة حروف مثلا .. وشوف الفرق ب و بدون

أهلا أخي سيد تم بحمد الله نجاح التجربة 🙂 وهذه هي الأكواد المستخدمة والدالة المكسرة للكلام 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 المرفق :

الموضوع يحتاج دراسة وتعديل الكود ليتوافق مع عدد حروف الكلمة مهما كبر .

وهذي فكرة أخرى (يأخذ الحرف الأول من الكلمة) 🙂 في الاستعلام الثاني MonthlyReportQ2 حضور سائقي الملاكي 2022.rar

تم عمل استعلام جدولي لتجميع البيانات يتم فتحه من الصفحة الرئيسية : بعد اختيار الشهر والسنة يفتح الاستعلام : المرفق : حضور سائقي الملاكي 2022.rar

وعليكم السلام ورحمة الله وبركاته .. الأخ سيد ماهي القاعدة التي تبني عليها ؟ لو أخذنا كلمة : س ي د ……مثلا كيف ستكون النتيجة ؟

وعليكم السلام ورحمة الله وبركاته.. تكرما أخي @الأترُجّة قم بتحويل الأوفيس معك إلى اللغة الإنجليزية أو العربية ثم أرفق الرسائل من جديد ..🙂 وذلك لتحصل على إجابة سريعة.

نعم أخي سيد طبعا ممكن .. 🙂

تم الإنجاز أخي سيد 🙂 ... تفضل : الأكواد المستخدمة والدالة التي تحول الحروف : 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

دائما متألق يا @ابو جودي 😊

وإليك أيضا عدة حلول رائعة هنا :

بارك الله همم الشباب وحفظكم الله .. حلول رائعة وجميلة 🙂 ولي رأي بأن يتم إنشاء جدول يوضع فيه الكلمة المختصرة ويقابلها العبارة الكامله لها .. هكذا : ثم يتم إنشاء وحدة نمطية تفحص وجود الكلمة في الجدول وتحضر العبارة الكاملة في مربع النص الآخر .. بهذه الطريقة سيكون متاح للمستخدم أن يضيف إلى الجدول ما يشاء لاحقا بدون الحاجة لتعديل الوحدة النمطية كلما أرنا إضافة دولة جديدة .. هذا كود بعد التحديث : 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

تشرفت بحضورك أخي أشرف .. وأنت لا تنساني من دعواتك الطيبة وملاحظاتك القيمة 😊

الله الله الله .. جمال في جمال ماشاء الله .. 😃🌹 رائعة من روائعك أخي عمر .. 🙂 أحييت فينا ذكريات الواجهات الجميلة والجذابة في هذه الأيام المباركة 😊 عمل جميل وجهد واضح ماشاء الله 👍🏼

أو هنا :

السلام عليكم أخي محمد .. أطلع على هذا الموضوع .. لعلك تجد فيه حاجتك :

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

الحقيقة أخي أبو الحسن أنا كنت أحاول إيجاد حل لموضوعك بهذه الأداة حتى قبل ما أطرحها في المنتدى لكن واجهتني مشكلة أن دوال المجال لا تعمل مع الاستعلامات التي لها معايير مرتبطة بقيمة في نموذج (يطلب قيمة معلمة) وهذا بإقرار شركة مايكروسوفت .. والاستعلام (رصيد سابق) هو من هذا النوع ، حيث أنه يطلب بيانات من النموذج : لذلك لم تعمل الدوال معه .. فحاولت التوصل إلى مصدر البيانات الأصلي في الجداول ولكن لقلة فهمي للأمور المالية لم أتمكن من استيعاب فكرة الرصيد السابق من جذورها بعد عدة محاولات 😅 لذلك انسحبت بهدوء وتركت الميدان لأهله 😄🖐🏼️

أستاذنا @ابو جودي .. سبب هذي الرسالة هو الحقل C في الجدول tbldata : وهو من نوع Large Number .... حاول ألا تستخدم هذا النوع من البيانات إطلاقا في برامجك لأنها ميزة مضافة في النسخ الحديثة 2016 وفوق .. لذلك إذا استخدمته لن يعمل البرنامج معاك في النسخ الأفدم .. وعوضا عن ذلك استخدم نوع البيانات Number فقط ومن خصائص الحقل في الأسفل ضع الفيلد سايز = Long Integer عن تجربة 😉👌🏼

الحمدلله على سلامتك يا سيد المعلمين 😊✋🏻🌷 والغايب عذره معه 🌹 كتير أوي يا سيد المعلمين .. 😁🌹 يكفيني 513 إعجاب وشهادة كبيرة منك يا معلمنا 😇🌷 الحمدلله هذا كله من فضل الله وإنعامه .. ثم مما تعلمناه منكم ، وتشجيعكم الدائم 🙂 وأسأل الله تعالى أن يجيب دعواتك الصادقة يا حبيب الملايين 👐🏻 حاسس إني عارف اللي بتفكر بيه ( اللي بالي بالك ) 😉👌🏻 بس برضوه مش حقول ومستنيك وأفكارك ولمساتك المتميزة👍🏼😊

أخي طارق جرب ادخال سجل جديد وأخبرنا بالنتيجة