Moosak

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

وهذي فكرة أخرى (يأخذ الحرف الأول من الكلمة) 🙂 في الاستعلام الثاني 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 إعجاب وشهادة كبيرة منك يا معلمنا 😇🌷 الحمدلله هذا كله من فضل الله وإنعامه .. ثم مما تعلمناه منكم ، وتشجيعكم الدائم 🙂 وأسأل الله تعالى أن يجيب دعواتك الصادقة يا حبيب الملايين 👐🏻 حاسس إني عارف اللي بتفكر بيه ( اللي بالي بالك ) 😉👌🏻 بس برضوه مش حقول ومستنيك وأفكارك ولمساتك المتميزة👍🏼😊

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

كان منطلق فكرة إنشاء هذه الأداة أن لي زميل يعاني معاناة شديدة لفهم تركيبة هذه الدوال وتوزيع الفواصل وعلامات التنصيص فيها .. ففكرت في مساعدته بطريقة سهلة ومفهومة للجميع .. ومنها إلى ما أنعم الله به علينا اليوم 😊

=Nz(DMax("[NoM7alfa]";"tblM7alfa";"[EmpNoM7alfa]=[Forms]![frmSearch]![SubfrmQTGetAlll].[Form]![Emp_No]" And [M7alfaDate] Between DateSerial(Year(Date); Month(Date); 1) AND DateSerial(Year(Date); Month(Date) + 1; 0) );0)+1 جرب الآن أخي عمر 🙂

مثل ما أخبرتك أخي طارق ضع الكود كقيمة إفتراضية للحقل user هكذا : والنتيجة : الآن عند إنشاء أي سجل سوف تنحفظ عندك هذه القيمة مباشرة في الجدول جورج الطويل تعديل 3 (1).accdb

شكراً لكم جميعاً .. 🌹 تفاعل جميل منكم 😊

هل جربت ال vbNull أخي أبو عبدالله ؟