نجوم المشاركات

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

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

اهلا بك اخى واستاذى العزيز @أبو عبدالله الحلوانى وجزاك الله خيرا على مشاركتك معنا 🌹 للاجابه على اخى محمد سوف اطلع ع مثالك والتعديلات لاتعلم منها اخى العزيز بارك الله فيك بالنسبه لاخى محمد @محمد احمد لطفى لم اجد اى خطأ كما اشرت وللتاكد قم بفصل المعادلات فى حقول منفرده ستجد ان النتائج المشار اليها بالخطا صحيحه لعل التواريخ التى وضعتها بالمعادلات محتاجه تعديل ممكن تراجعها براحتك سوف اطلع معك ع تعديلات اخى ومعلمى العزيز ابوعبدالله جزاه الله عنا كل خير بالتوفيق اخوانى

تفضل أخي الكريم =IF(A2="";"";IF(A2>=1000;1500;IF(AND(A2<1000;A2>0);750;0))) اذا كان الرقم اكبر من يصرب.xlsx

شاهد المرفق اخي Book1.xlsm

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

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

بالعكس اخي في الله ارجوا من الله سبحانه وتعالى ان تجد السبيل للحل

استاذنا العزيز @أبو عبدالله الحلوانى سأقرب اليك مايريده اخينا ... مثلا لدينا عميل جديد1 ولديه رصيد 3000 جنيه..حينما نختار الفترة من 1/12/2020 الى 31/6/2022 سيظهر الرصيد خلال هذه الفترة 2000 جنيه مثلا ..ويظهر ايضا في عمود ثاني اسمه الرصيد السابق لهذه الفترة ويساوي 1000 جنيه والنتيجة تنطبق على بقية العملاء...بحيث العميل الذي ليس لديه رصيد سابق تظهر النتيجة في الحقل =0 بصراحة انا قمت اشوف كوابيس بسبب هذا المثال لان حاولت كثيرا ولم يضبط معي 🤕

معلش انا فهمي تقيل حبتين اعطني مثال بالارقام يعني لو حددت السنة المالية 2022 التي تبدأ في 1/7/2021 هل تريد احضار الرصيد السابق للعميل 1 مثلا خلال العام المالي السابق الذي يبدأ في 1/7/2020 وينتهي في 30/6/2021 أم ماذا تعني بالرصيد السابق خلال السنة المالية فقط آسف استفساراتي كثير لكن أول ما امسك بداية الخيط هتلقيني فريرة ان شاء الله يا ريت مثال بالأرقام والتواريخ لو تسمح - وبعتذر لعدم تواصلي الا غدا ان شاء الله

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

صحيح ما ذكرت طيب بدله بقى حتى يتم ضبط الحروف بالعكس لانه بيجيب اول حرف كما هو If InStr(1, m, ".") > 0 Then TXT = " " & TXT End If بالتوفيق

😍الان توضحت الرؤيا ان كان العدد فردي دائما مبدع استاذ موسى

فكرة جميلة جدا استاذ @Moosak ..لكن لم اجد فائدة من هذا الجزء If InStr(1, m, ".") > 0 Then TXT = TXT & " " End If

حقیقتا شی عجیب 😉 حضرتک خبیر بکل معناه بهذا العلم احسنتم جزاک الله خیرا اخی العزیز🌺

كدا الصورة وضحت استفسار اخير الرصيد السابق للفترة المحددة هيكون حدوده ايه عني مثلا لو عندنا ثلاث سنوات مالية وحضرتك حددت السنة المالية الحالية 2022 الرصيد السابق لها هل هيكون سنة ايضا ام كل ما يسبقها من السنوات، توضيح بالأرقام : يعني لو حددنا السنة المالية من 1/7/2021 الي 30/6/2022 كيف سيكون الرصيد السابق؟ هل هو خلال الفترة من 1/7/2020 حتي 30/6/2021 أم خلال كل الفترات السابقة للتاريخ المحدد ايا كان عدد السنوات السابقة؟!

فيديوووووو جديددددد كيفية علم ترقيم تسلسلي في البيفوت تيبل في الفيديو دة هانتعلم ازاي نضيف جوة البيفوت تيبل ترقيم تسلسلي زي اللي موجود في الاكسيل https://youtu.be/JexkDt05R20 كيفية عمل ترقيم تسلسلي داخل البيفوت تيبل.xlsx

وعليكم السلام ورحمة الله وبركاته تقبل الله طاعتكم وكل عام وحضرتك وكل اعضاء المنتدي الكرام بخير حقيقة تصفحت مرفقكم وقد تهت به - ولا أدري اهذا من تأثير الصيام ام - تخانة مخ - 1- ممكن حضرتك تبسط لنا المطلوب ربما هنالك طريقة اسهل من صنع استعلامات كثيرة او اكواد ما فهمت من اطلاعي علي نص الموضوع هو استخراج الرصيد الدائن والمدين لكل عميل هل هذا صحيح ان كان هذا هو المطلوب فقط فأعتقد ان هذا الاستعلام الذي اسمه (الرصد السابق) فقط يفي بالغرض والا فعد لرقم واحد بالأعلي 👆 فهذه نتيجة الاستعلام كما ظهرت عندي

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

السلام عليكم اخي الكريم هناك قسم مخصص للمشاكل والاقتراحات يمكنك طرح الموضوع فيه كما ارسلت لك رسالة

جزاء الله خيرا اخي الكريم هذا هو المطلوب تماما لك جزيل الشكر

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله تعالى وبركاته إخوتي المباركون إدارة موقع أوفيسنا؛ جزاكم الله تعالى لطيبِ مجهودكمُ. وأستسمح إخوتي قرأتُ ضِمن إحدى الموسوعات؛ ردًّا لأحد الإخوة يطلب التّواصُل مع الإخوة وتحديدًا أخي المُبارك أ. @محمد طاهر نفع الله تعالى به وبجميع إخوتي. الأخ هو أ. @محمدكمالمحمدعبدالمنعم في هذا الموضوع: https://www.officena.net/ib/topic/114151-موقع-مُميّز-وسهل-الاستخدام-لعمل-بطاقات-المعايدة-الخاصة/ والله تعالى يحفظ إخوتي جميعًا، ويَجزيهمُ عنّا خَير الجَزاءِ.

هذا النموذج یساعد کثیرا taksir.zip

الله يرضى عليك تسلم

جزيت خيرا ممكن التعديل على المعادلة واضافة شرط اخر : اذا كان الرقم (0) تكون النيجة (0) وليس (750)

السلام عليكم ورحمة الله وبركاته 💐 تفضل اخي الكريم ضع في الخلية b2واسحب نزولاً =IF(A2="";"";IF(A2>=1000;1500;750)) تقبل تحياتي العطرة لشخصكم الكريم .. والسلام عليكم ورحمة الله وبركاته 💐 اذا كان الرقم اكبر من يصرب.xlsx

جرب هذا التعديل ووافنا بالنتائج تم اضافة البيانات الي الجدول ومن ثم الي الاستعلام Database1.rar

شاهد المرفق اخي ما الخطأ في الكود_3.xlsm

اخي هذه صورة بارميتر ..اما مكتوب بالخطأ..او يشير الى نص غير موجود

مشاركة مع أخي وأستاذي @احمد الفلاحجي جزاه الله خيرا جرب هذا المرفق ووافنا بالنتائج شرح الدالة داخلها Database1.rar

شاهد المرفق اخي test501.xlsm

شكرا معلمى @احمد الفلاحجي أريد أن انوه انها ليست مظبوطة 100 % بها أخطاء ضريبة _4.mdb

وعليكم السلام-ويتم ذلك بإستخدام هذه المعادلة =VLOOKUP($C8,INDIRECT("'"&$C$3&"'!"&"I9:U700"),13,0) 1العمال.rar

يمكنك التحايل على البرنامج والإبداع بطريقة اللعب بالألوان والخطوط .. هكذا على سبيل المثال 🙂 :

اجريت بعض التعديلات على النموذج

اعمل في مقطع التفصيل واضبط مقاسات التقرير على مقاسات الملصق الجديد 3x4 ضع الباركود في اسفل التفصيل سيكون النصف الاعلى من تفصيل التقرير فارغ ولا تنسى احذف راس وتذييل الصفحة جرب ووافنا بالنتيجة