AbuuAhmed

لم أفهم المشكلة الجديدة، جرب المثال بعد التعديلات الجديدة. ManyCheckboxValues_02.accdb

ضع هذا الشرط: Date() - [PayDate] > 31

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

دالة لتجمع القيم وإجراء لتوزيع القيم Sub SplitValues() Dim Box As Byte For Box = 1 To 5 Me.Controls("chk" & Box) = Mid(Me.moreinfo, Box, 1) * -1 Next Box End Sub Function JoinValues() Dim Box As Byte For Box = 1 To 5 JoinValues = JoinValues & Abs(Nz(Me.Controls("chk" & Box), 0)) Next Box End Function

جرب المثال: ShowParameters_02.accdb

يبدو وصلتك العدوى يا @TQTHAMI هل هو المطلوب؟ أم كان فهمي خاطئا؟

مرفق المثال حاول تدخل على المعاملات إن صح التعبير (جمع معامل) Parameters وعرفهما كتاريخ بحيث لو كتبت 1/3 مثلا سيحولها تلقائيا 01/03/2023 ShowParameters_01.accdb

ويمكن أن تجعلهما كحقلين/عمودين في الاستعلام بنفس طريقة الفلترة.

وعليكم السلام شرحك غير واضح بشكل كاف، الحل حسب فهمي. عدلت في مصدر صندوق رقم الفقاسة. Database20_02.accdb

أين جربته؟، التقويم موحود في نظام التشغيل ويندوز وفي الاكسل ولكن لا أعلم إذا هو موجود في الأكسس كتطبيق أو في الـ vba. لي محاولة باستخدام دوال الاكسل من خلال الأكسس: دالتان vba للتحويل بين تقويمي أم القرى والميلادي باستخدام الإكسل. تبقى هذه الملاحظة المهمة لمستخدمي التقويم الهجري القياسي:

فيه مشكلة بالتواصل بيننا، تقويم مايكروسفت ليس به مشكلة، حاول تفهمني، المشكلة لمن لديه تقويم رسمي خاص ببلده لا يوافق التقويم القياسي/المعياري/الاصطلاحي. تقويم أم القرى تقويم خاص للسعودية فقط وهو تقويم مبني على حسابات فلكية يراعي فيها الاقتران والمكث والعمر وقد مر على الأقل في مرحلتين تصحيحيتين هذا غير تصحيح وقت الفجر، حتى بلدان الخليج لا تستخدمه. فمايكروسفت من الطبيعي أن تستخدم التقويم الأعم الأشمل للمسلمين فهو تقويم مبني على المتوسطات الحسابية وله قانون متقن يفوق دقته التقويم الميلادي الجريجوري. فيا عزيزي لا تدخل التقويمين القياسي وأم القرى في مقارنة فتصحح أحدهما وتخطئ الآخر. معاناة مستخدمي تقويم أم القرى كانت محصورة فقط في السعودية للموظفين السعوديين منهم والوافدين. أما بقية البلدان لم يشعروا بهذه المشكلة وربما كثيرون لا يعرفوا عنه شيئا. الموضوع لا يستاهل كل هالحوار 🙂

نعم ربما هو يستخدم تقويم أم القرى (لم يوضح) وربما في بلده يعتمدون تقويما هجريا خاصا بهم كما ليبيا سابقا وربما لا زالوا، وهذا كله ليس له علاقة بتخطئة التقويم الهجري القياسي.

عزيزي، لا أوافقك إلا إذا زودتني بمثال. إذا فهمنا الحبكة في الأكسس، سنفهم لماذا تأتي المشاكل، حقل تاريخ لن يعمل إلا مع تقويم من جنسه، بمعنى: - إذا كان تقويم قاعدة البيانات ميلادي فلن تستطيع استخدام حقل التاريخ للهجري وعليه أنت مجبر (عند الرغبة في حفظه) أن تجعل حقل الهجري من نوع نصي. والعكس صحيح: - فإذا كان تقويم قاعدة البيانات هجري فلن تستطيع استخدام حقل التاريخ للميلادي وعليه فأنت مجبر ان تجعل حقل الميلادي من نوع نصي. ربما هناك مشكلة واحدة في التقويم الهجري وهي عند إدخال يوم 30 لشهر مدته 29 سيحيل اليوم إلى الأول من الشهر التالي (من الذاكرة، غير متأكيد)، أي أنه لن ينبهك أن الإدخال خاطئ ولكنه سيصحح المدخل. من الجيد أن تدعمونا بأمثلة ولكم جزيل الشكر.

لازم تفرق بين التقويم الهجري القياسي/المعياري والهجري الشرعي، الهجري الشرعي لا يمكن اعتماده في المعاملات الرسمية لأنه متحرك/متغير ولا يمكن الاعتماد عليه إلا في ما يخص العبادات. بعض الدول تعمل على خيار ثالث باعتماد تقويم فلكي قريب للشرعي وتعتمده رسميا كالسعودية والكويت وقطر كمثال ولكنه لا يغني عن الشرعي أيضا. ما يطمئن أن التقويم في الويندوز وما يكروسوفت وفي الفيجوال هو نفسه التقويم الإسلامي المعتمد منذ أيام الخليفة عمر بن الخطاب بكل قوانينه بالتمام والكمال.

ممتاز، إذا عرف السبب بطل العجب 🙂 يبقى احتمال لو أن الموظف غير متعود على غلق البرنامج.

مجهود تشكر عليه عزيزي، عملت شيء مشابه للفكرة قديما للشركات التي عملت بها بس لا أتذكر الطريقة ولا عندي نسخ من تلك البرامج. ما جربت الكود، ولكن لفت نظري أنك تقوم بعد الحصول على وقت الخادم/السيرفر بعمليات حسابية لمعرفة الفرق. وملاحظتي "إن كنت فهمت صح" لماذا لا تعتمد تاريخ الخادم مباشرة بعيدا عن المقارنات وحساب الفرق؟

أنا لا أحبذ استخدام نتائج المدد على شكل سنة وشهر ويوم في الحسابات، حيث يصعب الحصول على نتائج دقيقة، والبديل هو حساب المدد بالسنين وأجزاءها العشرية. في المرفق دالتان أحدهما لحساب مدد الشهور كلها 30 يوم والأخرى لمدد الشهور الفعلية وأنا أنصح بالثانية. جرب قد تعجبك وتغير قناعاتك ومن ثم طريقتك في الحساب. PeriodsCalculator_01.xlsm

وهذا لن يغني عن استخدام دوال التحويل. فمن تقويمه في قاعدة البيانات ميلادي فهو في حاجة لدالة التحويل إلى هجري عند الرغبة. ومن تقويمه في قاعدة البيانات هجري فهو في حاجة لدالة التحويل إلى ميلادي عند الرغبة.

تقومان بفحص تقويم الـ vba ونوع المدخل، فهي تساعد المستخدم كثيرا وتجنبه الأخطاء إن شاء الله. عملت تجاربي عليها، ويمكنكم اجراء المزيد من التجارب. Option Compare Database Option Explicit Function Greg2Hijri(GregDate As Variant, _ Optional dFormat As String = "yyyy/mm/dd") As Variant Dim CurCal As VbCalendar On Error Resume Next CurCal = Calendar Greg2Hijri = Null '"WrongInput" If Calendar = vbCalGreg And (VarType(GregDate) = vbDate Or _ VarType(GregDate) = vbLong) Then Calendar = vbCalHijri Greg2Hijri = Format(GregDate, dFormat) ElseIf VarType(GregDate) = vbString Then Calendar = vbCalGreg If IsDate(GregDate) Then Greg2Hijri = CDate(GregDate) End If End If Calendar = CurCal End Function '------------------------- Function Hijri2Greg(HijriDate As Variant, _ Optional dFormat As String = "yyyy/mm/dd") As Variant Dim CurCal As VbCalendar On Error Resume Next CurCal = Calendar Hijri2Greg = Null '"WrongInput" If Calendar = vbCalHijri And (VarType(HijriDate) = vbDate Or _ VarType(HijriDate) = vbLong) Then Calendar = vbCalGreg Hijri2Greg = Format(HijriDate, dFormat) ElseIf VarType(HijriDate) = vbString Then Calendar = vbCalHijri If IsDate(HijriDate) Then Hijri2Greg = CDate(HijriDate) End If End If Calendar = CurCal End Function '-------------------------------------------------------------------- Sub TestingDateConverting() Dim CurCal As VbCalendar CurCal = Calendar Debug.Print "Greg2Hijri" Calendar = vbCalGreg Debug.Print Greg2Hijri(Date, "yyyy-mmmm-dd") Debug.Print Greg2Hijri(CLng(Date), "yyyy mm dd") Debug.Print Greg2Hijri("06/07/2023") Debug.Print "-----------" Calendar = vbCalHijri Debug.Print Greg2Hijri(Date, "yyyy-mmmm-dd") Debug.Print Greg2Hijri(CLng(Date), "yyyy mm dd") Debug.Print Greg2Hijri("06/07/2023") Debug.Print "-------------------------------" Debug.Print "Hijri2Greg" Calendar = vbCalHijri Debug.Print Hijri2Greg(Date, "yyyy-mmmm-dd") Debug.Print Hijri2Greg(CLng(Date), "yyyy mm dd") Debug.Print Hijri2Greg("18/12/1444") Debug.Print "-----------" Calendar = vbCalGreg Debug.Print Hijri2Greg(Date, "yyyy-mmmm-dd") Debug.Print Hijri2Greg(CLng(Date), "yyyy mm dd") Debug.Print Hijri2Greg("18/12/1444") Debug.Print "-------------------------------" Calendar = CurCal End Sub

شكرا أستاذ، ما عليك زود

وجدت الحدث، وهذه أول مرة أجربه منذ أن دخلت عالم الأكسس 🙂 Private Sub Form_Error(DataErr As Integer, Response As Integer) If DataErr = 3200 Then Response = 0 MsgBox "لا يمكن حذف هذا الموظف قبل حذف إجازاته" End If End Sub DeleteParentRecord_02.accdb

شكرا، في أي حدث وضعت هذا الكود؟ هل يمكنك وضعه في مثالي ورفعه هنا؟

عن طريق النموذج استخدم زر حذف بدلا من محدد السجل. هذا اللي خطر في بالي الآن، يمكن الزملاء لديهم تجارب أفضل. DeleteParentRecord_01.accdb

لا تستطيع تغيير لون التظليل ولا الخط.

تشتتي زاد مع هذا الموضوع 😞 النسخ مرة أخرى بعد تصحيح الخطأ الأخير. RichText_Memo_07.accdb RichText_Query_07.accdb PlainText_Sel_07.accdb