Moosak

السلام عليكم 🙂 أخي العزيز @أبو امين .. لا تعجل على إخوانك .. فلا يعلم بظروفهم إلا الله .. وخصوصا منهم من قلص حصة المنتدى من الوقت في رمضان ليتفرغ للعبادة 🙂 .. والحقيقة كانت لي محاولات في تعديل ملفك ولكن .. كلها لم تنجح وتحتاج لمزيد من الوقت .. وربما لتغييرات جذرية في الكود ولكن لم أتفرغ لها .. نعم أخي @عمر ضاحى .. استخدم هذه الدالة لمبدعنا @ابو جودي 🙂 : '==============================================( MnthName) اسماء الشهور الهجرى - العربى( الميلادى) - الانجليزيى( الميلادى) - اختصارالانجليزيى( الميلادى) - القبطى - السريانى' ' .__ __. ___ .___ ___. _______ _______. ______ _______ .___________. __ __ _______ .___ ___. ______ .__ __. .___________. __ __ _______. ' | \ | | / \ | \/ | | ____| / | / __ \ | ____| | || | | | | ____| | \/ | / __ \ | \ | | | || | | | / | ' | \| | / ^ \ | \ / | | |__ | (----` | | | | | |__ `---| |----`| |__| | | |__ | \ / | | | | | | \| | `---| |----`| |__| | | (----` ' | . ` | / /_\ \ | |\/| | | __| \ \ | | | | | __| | | | __ | | __| | |\/| | | | | | | . ` | | | | __ | \ \ ' | |\ | / _____ \ | | | | | |____ .----) | | `--' | | | | | | | | | | |____ | | | | | `--' | | |\ | | | | | | | .----) | ' |__| \__| /__/ \__\ |__| |__| |_______||_______/ \______/ |__| |__| |__| |__| |_______| |__| |__| \______/ |__| \__| |__| |__| |__| |_______/ ' Public Function MnthName(ByVal dtAnyDate As Date, ByVal strLng As String) 'to call the Function 'To Hijri 'txtMonthNameHijri =MnthName(txtDate,"HJ") 'To Arabic 'txtMonthNameArabic =MnthName(txtDate,"Ar") 'To English 'txtMonthNameEnglish =MnthName(txtDate,"En") 'To English Short 'txtMonthNameEnglish =MnthName(txtDate,"EnShrt") 'To Coptic 'txtMonthNameCoptic =MnthName(txtDate,"Cpti") 'To Syriac 'txtMonthNameSyriac =MnthName(txtDate,"Syr") Dim str01 As String Dim str02 As String Dim str03 As String Dim str04 As String Dim str05 As String Dim str06 As String Dim str07 As String Dim Str08 As String Dim Str09 As String Dim Str10 As String Dim Str11 As String Dim Str12 As String If strLng = "HJ" Then str01 = ChrW("1605") & ChrW("1581") & ChrW("1585") & ChrW("1605") str02 = ChrW("1589") & ChrW("1601") & ChrW("1585") str03 = ChrW("1585") & ChrW("1576") & ChrW("1610") & ChrW("1593") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1608") & ChrW("1604") str04 = ChrW("1585") & ChrW("1576") & ChrW("1610") & ChrW("1593") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1570") & ChrW("1582") & ChrW("1585") str05 = ChrW("1580") & ChrW("1605") & ChrW("1575") & ChrW("1583") & ChrW("1610") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1608") & ChrW("1604") & ChrW("1610") str06 = ChrW("1580") & ChrW("1605") & ChrW("1575") & ChrW("1583") & ChrW("1610") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1570") & ChrW("1582") & ChrW("1585") & ChrW("1577") str07 = ChrW("1585") & ChrW("1580") & ChrW("1576") Str08 = ChrW("1588") & ChrW("1593") & ChrW("1576") & ChrW("1575") & ChrW("1606") Str09 = ChrW("1585") & ChrW("1605") & ChrW("1590") & ChrW("1575") & ChrW("1606") Str10 = ChrW("1588") & ChrW("1608") & ChrW("1575") & ChrW("1604") Str11 = ChrW("1584") & ChrW("1608") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1593") & ChrW("1583") & ChrW("1577") Str12 = ChrW("1584") & ChrW("1608") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1581") & ChrW("1580") & ChrW("1577") ElseIf strLng = "Ar" Then str01 = ChrW("1610") & ChrW("1606") & ChrW("1575") & ChrW("1610") & ChrW("1585") str02 = ChrW("1601") & ChrW("1576") & ChrW("1585") & ChrW("1575") & ChrW("1610") & ChrW("1585") str03 = ChrW("1605") & ChrW("1575") & ChrW("1585") & ChrW("1587") str04 = ChrW("1571") & ChrW("1576") & ChrW("1585") & ChrW("1610") & ChrW("1604") str05 = ChrW("1605") & ChrW("1575") & ChrW("1610") & ChrW("1608") str06 = ChrW("1610") & ChrW("1608") & ChrW("1606") & ChrW("1610") & ChrW("1577") str07 = ChrW("1610") & ChrW("1608") & ChrW("1604") & ChrW("1610") & ChrW("1577") Str08 = ChrW("1571") & ChrW("1594") & ChrW("1587") & ChrW("1591") & ChrW("1587") Str09 = ChrW("1587") & ChrW("1576") & ChrW("1578") & ChrW("1605") & ChrW("1576") & ChrW("1585") Str10 = ChrW("1575") & ChrW("1603") & ChrW("1578") & ChrW("1608") & ChrW("1576") & ChrW("1585") Str11 = ChrW("1606") & ChrW("1608") & ChrW("1601") & ChrW("1605") & ChrW("1576") & ChrW("1585") Str12 = ChrW("1583") & ChrW("1610") & ChrW("1587") & ChrW("1605") & ChrW("1576") & ChrW("1585") ElseIf strLng = "En" Then str01 = "January" str02 = "February" str03 = "March" str04 = "April" str05 = "May" str06 = "June" str07 = "July" Str08 = "August" Str09 = "September" Str10 = "October" Str11 = "November" Str12 = "December" ElseIf strLng = "EnShrt" Then str01 = "Jan" str02 = "Feb" str03 = "Mar" str04 = "Apr" str05 = "May" str06 = "Jun" str07 = "Jul" Str08 = "Aug" Str09 = "Sep" Str10 = "Oct" Str11 = "Nov" Str12 = "Dec" ElseIf strLng = "Cpti" Then str01 = ChrW("1591") & ChrW("1608") & ChrW("1576") & ChrW("1577") str02 = ChrW("1571") & ChrW("1605") & ChrW("1588") & ChrW("1610") & ChrW("1585") str03 = ChrW("1576") & ChrW("1585") & ChrW("1605") & ChrW("1607") & ChrW("1575") & ChrW("1578") str04 = ChrW("1576") & ChrW("1585") & ChrW("1605") & ChrW("1608") & ChrW("1583") & ChrW("1577") str05 = ChrW("1576") & ChrW("1588") & ChrW("1606") & ChrW("1587") str06 = ChrW("1576") & ChrW("1572") & ChrW("1608") & ChrW("1606") & ChrW("1577") str07 = ChrW("1571") & ChrW("1576") & ChrW("1610") & ChrW("1576") Str08 = ChrW("1605") & ChrW("1587") & ChrW("1585") & ChrW("1609") Str09 = ChrW("1578") & ChrW("1608") & ChrW("1578") Str10 = ChrW("1576") & ChrW("1575") & ChrW("1576") & ChrW("1577") Str11 = ChrW("1607") & ChrW("1575") & ChrW("1578") & ChrW("1608") & ChrW("1585") Str12 = ChrW("1603") & ChrW("1610") & ChrW("1575") & ChrW("1607") & ChrW("1603") ElseIf strLng = "Syr" Then str01 = ChrW("1603") & ChrW("1575") & ChrW("1606") & ChrW("1608") & ChrW("1606") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1579") & ChrW("1575") & ChrW("1606") & ChrW("1610") str02 = ChrW("1588") & ChrW("1576") & ChrW("1575") & ChrW("1591") str03 = ChrW("1570") & ChrW("1584") & ChrW("1575") & ChrW("1585") str04 = ChrW("1606") & ChrW("1610") & ChrW("1587") & ChrW("1575") & ChrW("1606") str05 = ChrW("1571") & ChrW("1610") & ChrW("1575") & ChrW("1585") str06 = ChrW("1581") & ChrW("1586") & ChrW("1610") & ChrW("1585") & ChrW("1575") & ChrW("1606") str07 = ChrW("1578") & ChrW("1605") & ChrW("1608") & ChrW("1586") Str08 = ChrW("1570") & ChrW("1576") Str09 = ChrW("1571") & ChrW("1610") & ChrW("1604") & ChrW("1608") & ChrW("1604") Str10 = ChrW("1578") & ChrW("1588") & ChrW("1585") & ChrW("1610") & ChrW("1606") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1608") & ChrW("1604") Str11 = ChrW("1578") & ChrW("1588") & ChrW("1585") & ChrW("1610") & ChrW("1606") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1579") & ChrW("1575") & ChrW("1606") & ChrW("1610") Str12 = ChrW("1603") & ChrW("1575") & ChrW("1606") & ChrW("1608") & ChrW("1606") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1608") & ChrW("1604") End If MnthName = Choose(Format(dtAnyDate, "MM"), str01, str02, str03, str04, str05, str06, str07, Str08, Str09, Str10, Str11, Str12) End Function '----------------------------End------------------------------------------------------------------------------------------- شخابيط وافكار : Date Functions - دوال التاريخ بطعم جديد وتحكم شامل

ماشاء الله تبارك الله 🙂 عمل جميل جدا .. ويفتح آفاق وأفكار كثيرة .. 😉 الشكر لك عمي @ابوخليل والشكر موصول للأستاذ @حسونة حسين ربما يمكننا بطريقة ما تحويله إلى ملف أكسس ( وهو تخصص منتدانا ) بصفحة بحث ميسرة 🙂 .. وهل المواضيع متجددة ( تحدث نفسها ) ؟؟ 👍🏼 ✨ موضوع مميز ✨ 👍🏼 .. يثبت 📌

وعليكم السلام ورحمة الله وبركاته عمي قاسم 🙂 وكل عام وانت بخير وصحة وسلامة بمناسبة الشهر الفضيل .. أستأذنك في نقل الموضوع الى المنتدى المفتوح للاختصاص .. وبارك الله لنا في عمرك وصحتك وعلمك 🙂🌹

هذا كود يقوم بنسخ السجل الحالي وتكراره 🙂 '===================================== تكرار السجل Private Sub DublicateRecBtn_Click() On Error GoTo Err_DublicateRecBtn_Click DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdCopy DoCmd.RunCommand acCmdRecordsGoToNew DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdPaste Exit_DublicateRecBtn_Click: Exit Sub Err_DublicateRecBtn_Click: MsgBox Err.Description Resume Exit_DublicateRecBtn_Click End Sub

أخي @أبو امين أرفق الملف ...

😅👇 تستخدم بالحد المعقول .. وتقلل مدة الانتظار في الكود .. وهذي لحالها فكرة 🙂

وعليكم السلام ورحمة الله وبركاته 🙂 سلمنا الله لرمضان، وسلم رمضان لنا، وتسلمه منا ومنكم متقبلا إن شاء الله 🤲🏼 وكل عام وأنتم بخير ☺️🌹

شكرا لكم جميعاً 🙂 🌹

موضوع مميز .. ✨ يثبت ✨ 👍🙂 تم إضافة المرفق إلى المشاركة الأولى لتسهيل الوصول إليه 🙂

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته 🙂 درسنا اليوم عبارة عن فكرة تجميلية لقاعدة البيانات وإظهار شاشة إنتظار عند الإنتقال بين النماذج.. فكرة لمعت وحبيت أوثقها قبل أن تطير بلا عودة 😅 متابعة ممتعة 🙂 حمل المثال من المرفقات .. Waiting Screen.accdb

بالنسبة لسؤالك فالموضوع بسيط جدا 🙂 .. وتستطيع تغيره كالتالي : 1- من نموذج Tqweem غير مكان أسماء الأيام ( انتبه فقط ليبل الأسماء وليس خلايا الأرقام ) هكذا : 2- في نموذج Tqweem_Sanawi في الأكواد تبدل هذه العبارة : بداية الأسبوع بدل : vbSaturday تصبح vbMonday هكذا : 3 - كرر الخطوة رقم واحد في التقرير Tqweem_R ... والنتيجة النهائية 🙂 :

ما شاء الله تبارك الرحمن .. يعمل بكل احترافية 😉👌

لم يعمل ..

قبل ما أجرب .. هل سيعمل هذا السطر مع التقرير ؟

وعليكم السلام ورحمة الله وبركاته .. للأسف لم أعمل على التاريخ الهجري من قبل .. 🙂

تفضل أخي العزيز أبو أحمد 🙂 كانت لي محاولة وفعلا كنت نقلت الكائنات (نسخ / لصق ) ولكن توقفت .. هذا ملف ال 2003 بين يديك 🙂 تقويم سنوي 2003.mdb

نعم ممكن .. هاك : 🙂 تقويم سنوي.accdb

أو هذه مثلا 🙂 تقويم شهري.accdb

سوف نقوم بتثبيت المواضيع المتميزة لمدة أسبوع إن شاء الله .. تقديراً لأصحابها .. ولتأخذ حقها من التفاعل 🙂🌹

آمين ولك بالمثل أخي @حمدى الظابط 🙂🌹

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

الله الله الله عليك دكتور 🙂 إبداع في قمة الإمتاع 😃 رحم الله والديك وأسكنهما مستقر رحمته ، وبارك الله فيك وذريتك إلى يوم الدين .. 🌹 بس ليش يرسل صور بس ؟ 😅🖐️ ممكن تضيف له المستندات بعد .. 🙂

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

فكرة جميلة .. ربما يتم إضافتها في تحديث قادم .. (جاري تطويرها ) 🙂

شكرا لك أخي @qathi واستجاب الله دعواتك 😇.. قصرنا في حقه .. كبير المهندسين 🙂 وكلنا اشتقنا له 😊 لاحقين على الشيب مهندس حسنين 😅 يارب بالصلاح والصحة وطولة العمر 😄 واشتقنا لإبداعاتك 😊✌️