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

كل عام وأنتم بأتم صحة وعافية ، تقبل الله منا ومنكم الصيام وصالحات الأعمال ، وهنأتم بالعيد السعيد ، أعاده الله علينا وعليكم باليمن والبركات 🙂🌷🌹

هذي الدالة تعطينا فكرة لعمل تشفير للجمل والكلمات

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

الحمدلله تم تصحيح هذا الخطأ 🙂 : وتم تعديل الكود : 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

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

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

أو هنا :

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

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