Moosak

هذا أحد البرامج الأجنبية نزلته من فترة قريبة لعله يفيدكم 🙂 Speech.accdb وهذا ملف آخر فيه مجموعة من المكتبات الصوتية لمختلف اللغات ومن ضمنها العربية Translate&Speak_v4.3_64-bit.zip

شكرا لك الأخ عمر .. 🌹 🙂 فعلا أنا أستخدم نفس البرنامج لعمل أيكونات البرامج .. سهل وسريع ومريح 👍🙂

وهذا شرح لرموز الإدخال من دورة المبدع منذر السفان 🙂 أنواع الرموز المستخدمة في أداة شكل الإدخال Input Mask.pdf

شكرا لمروركم الكريم 🙂

وعليكم السلام ورحمة الله وبركاته أخي @SAROOK جميل جدا بارك الله فيك .. قمت بعمل تعديل على العلاقة بين الحقلين في الجدولين لتكون علاقة متكاملة One To Many : الخطوة التالية أن تقوم بنفس عملية الربط بين النموذج الرئيسي والفرعي بنفس الحقول ( قمت بهذه الخطوة عنك كما في الصورة ) : وإعادة تنسيق بسيطة للنموذج الفرعي : وأعتذر منك سأتوقف حاليا عند هذه النقطة لانشغالي بأمور أخرى ضرورية ... وقد حملت الملف المعدل ليواصل الإخوان تنفيذ بقية الطلب .. 🙂 SearchInSubandMain mod..accdb

ربي يبارك فيك دكتور قاسم .. في هذه الجزئية من الكود غير هذا : إلى : Finaltxt = Finaltxt & " " & SplitCatcher(Counter) & vbNewLine

مبارك عليك أخي ناقل @ناقل .. 😊 وسام تستحقه عن جدارة 👍🏼😉 وفقك الله في الدارين وزادك الله من واسع علمه 🌹🙂

وأنا أشهد 👍🏼😂

وعليكم السلام ورحمة الله وبركاته أخي صاروخ 🙂 لديك بعض الأخطاء في تصميم الجداول .. وهي من الأساسيات المطلوب مراعاتها .. 1- العلاقة بين الجدولين : لعمل هذه العلاقة تحتاج لعمل حقل رقمي في الجدول SubTable وهو الحقل الذي تربط به الحقل ID الذي في الجدول MainTable بالجدول الفرعي .. 2- بنفس الطريقة في النموذج : تربط النموذج الأساسي بالنموذج الفرعي بنفس الحقلين المربوطين في الجداول .. 3- بعد هذه الخطوات الأساسية يمكن الإنتقال للخطوة التالية وهو سؤالك الرئيسي في هذا الموضوع 🙂 تكرما قم بتعديل مرفقك أولا لننتقل للخطوة التالية، وبذلك نتعلم من بعضنا البعض 🙂

هذا الكلام يوحي بعلوم جديدة .. 😁

ضع مثال حي (ملف أكسس) أخي العزيز قاسم 🙂 والهدف أنه سيكون التطبيق أسهل عليك في برنامجك

وهذه تجربتي مع أخي المهندس قاسم @Eng.Qassim ومستندا على ملفه 🙂 طبعا سوف نحتاج لجدول خاص بقائمة الأسماء فيه عمودين 1 - الاسم أو القبيلة(اسم العائلة) و 2- النوع وهو حقل رقمي أن كان اسم فالنوع 1 وإن كانت قبيلة فالنوع 2 نحتاجه للفصل بين الأسماء . بعدها قمت بتطوير دالة تقوم بفحص كلمات الفقرة كلمة كلمة وتقارنها بالأسماء الموجودة في الجدول ، فإن عثرت على الاسم في الجدول تختزله من الفقرة وتضيفه إلى المصفوفة ثم تنتقل للكلمة التالية وهكذا .. 🙂 وهذه هي الدالة : Public Function LoopThroughText(TXT As String) As String Dim LookInHere As String Dim Counter As Integer Dim SplitCatcher As Variant Dim Finaltxt As String LookInHere = TXT SplitCatcher = Split(LookInHere, " ") For Counter = 0 To UBound(SplitCatcher) If SplitCatcher(Counter) = DLookup("[PerName]", "[NamesT]", "[PerName] Like '*" & SplitCatcher(Counter) & "*'") Then If DLookup("[Type]", "[NamesT]", "[PerName] Like '*" & SplitCatcher(Counter) & "*'") = 1 Then Finaltxt = Finaltxt & " " & SplitCatcher(Counter) Else Finaltxt = Finaltxt & " " & SplitCatcher(Counter) & "،" End If End If Next LoopThroughText = Finaltxt End Function بعدها تنادي على الدالة في استعلام أو نموذج كما تشاء هكذا : LoopThroughText(TXT) AAA.accdb

اعرض الملف الكاتب الذكي لدوال المجال :::: Dloockup وأخواتها 😊 بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته يسرني اليوم أن أقدم لكم هذه الهدية المتميزة والرائعة 😊 ( الكاتب الذكي الآلي لدوال المجال في أكسس ) Dloockup, DCount, DMax, DMin, Dfirst, DLast , DSum, DAvg هذه الأسطورة هي عبارة عن أداة صممتها في أكسس ( بفضل الله وحمده ) تقوم بكتابة دوال المجال نيابة عنك بشكل آلي .. وتعطيك النتيجة بشكل مباشر 😉👌🏼 لن يخطيء أحد بعد اليوم في كتابة جملة هذه الدوال إن شاء الله 😁 كل ما عليك فعله هو استيراد هذه الأداة لبرنامجك ثم اختيار الجدول أو الاستعلام المطلوب والحقل المراد وبعدها سترى العجب العجاب 🙂 ✨ ومن مزاياها :✨ 1 - تسهل عليك كتابة أسماء الجداول والحقول ( فقط تختارها من القائمة المنسدلة ) . 2- يحل مشكلة تداخل النصوص عند استخدامها مع الجداول والحقول المكتوبة باللغة العربية . 3- تفحص لك النتيجة مباشرة للتأكد من أنك ستحصل على البيانات التي تريدها . 4 - سهلة الاستخدام فقط اتبع الخطوات الموضحة وتأكد من اختيار نوع البيانات الصحيح . 5 - يمكنك عمل دالة بأربعة 4 معايير بكل سهولة ويسر . 6 - يمكنك عمل تعديلاتك الخاصة على الدالة مباشرة وفحص النتيجة مباشرة بعد التعديل على النتيجة النهائية . 7 - إمكانية الحصول على الصيغة الخاصة بمحرر الأكواد VBA أو الصيغة المستخدمة في الاستعلامات ومنشيء التعبير . 8- إمكانية استخدام الأداة بشكل مستقل من غير الحاجة لنقلها إلى برنامجك . 9- وغيرها الكثير مما سيفتح الله عليكم اكتشافه بأنفسكم إن شاء الله 😅 طريقة الاستخدام : سهلة يسيرة بحمد الله .. فقط قم بسحب النموذج المسمى SmartDomainFunctionsBuilder_F إلى برنامجك عن طريق السحب والإفلات .. ثم قم بفتح النموذج عندك وسوف يقوم هو آليا بالتعرف على الجداول والاستعلامات الخاصة ببرنامجك بدون الحاجة إلى جهد يذكر 🙂 ( مع إمكانية استخدام الأداة بشكل مستقل من غير الحاجة لنقلها لبرنامجك ولكنك ستفقد الكثير من المميزات 😉 ) الأداة تم عمل الكثير من التجارب عليها وتم تلافي العديد من الأخطاء وإصلاحها بحمد الله وفضله... ولكن لا زلت لا أستغني عن آراءكم وملاحظاتكم من خلال استخدامكم لها 😉 الشرح بالتفصيل : 🙂 وهنا قمت بشرح الأداة بشكل مفصل نوعا ما في مقطع فيديو مدته نصف ساعة تقريبا : وأهم من الأداة نفسها 😉 لا تنسوني من صالح دعائكم لي ولوالدي .. ولا تحرموني من آرائكم ومقترحاتكم ونصحكم وإرشادكم 🙂 أخوكم ومحبكم موسى الكلباني 😊 صاحب الملف Moosak تمت الاضافه 05 ماي, 2022 الاقسام قسم الأكسيس  

جارِ القضاء عليه 😋😅

الحمدلله على سلامتك عمي جعفر 😊🌷 عودا حميدا .. افتقدناك 🙂

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