AbuuAhmed

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

إضافة بسيطة على كود الحذف: If Me.NewRecord Then MsgBox "لا يوجد سجلات لحذفها!!" Else If MsgBox("هل انت متأكد من حذف السجل الحالي", vbYesNo + vbQuestion) = vbYes Then DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO [a copy] ( id, name, age, [date], [time], user_name ) " & _ "SELECT a.id, a.name, a.age, Date() AS d, Time() AS t, CurrentUser() AS [user] " & _ "FROM a WHERE (((a.id)=[forms]![form1]![id]));" DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 Else Exit Sub End If End If

مثال للكود عند الزيادة: With Me.dDATE .Value = .Value + 1 .DefaultValue = "Dateserial(" & Year(.Value) & "," & _ Month(.Value) & "," & _ Day(.Value) & ")" End With

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

من مشكلاتنا هي ملاحقة الفشل لنا في ما نقدم من حلول بسبب السائلين وبعض الزملاء "المنافسين 🙂"، وهذه متكررة بشكل كبير وأنا أعاني منها كثيرا وربما أكثر من غيري، بعض السائلين يجسد قول أدونيس: "مشكلتنا أننا لا نقرأ النص بل نقرأ كاتب النص!" من اليوم وصاعدا لن أقدم حلا ضمن مثال السائل، بل سأقطع الجزء الخاص بالسؤال ليكون الحل واضحا ولأستطيع أن ألجم به كل مدع بعدم حصوله على الحل المطلوب. أنا أتحدث بشكل عام ولمشكلة عامة أخي @elmozy525 ولا أوجه هذا الكلام لشخصك الكريم بشكل خاص، فلا تشغل نفسك بالرد والإسهاب بالتفاصيل. مرفق المثال مرة أخرى بالطريقة التي اعتمدتها من اليوم، فهل من مخطئ لحلي؟. جمعية_05.accdb

🙂 جميل، استفدنا منكم. المرات الجاية أحاول تكون حلولي صحيحة.

وهذه مساهمة مني كذلك بنفس فكرة أبو خليل مع بعض الاختلافات البسيطة. جمعية_03.accdb

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

محاولة مني، ربما هناك أفكار أفضل. أضفت لك صندوق لعدد السجلات، بدل في العدد وسوف يتكيف النموذج مع العدد المطلب. يمكنك كذلك التعديل في الكود في ثوابت الأرقام بالزيادة البسيطة أو النقصان. Aziz5_02.accdb

مثال لعرض الكل في صندوق تسمية واحد. AllCaptionsInOne_03.accdb

لم أفهم المشكلة الجديدة، جرب المثال بعد التعديلات الجديدة. 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 سيحيل اليوم إلى الأول من الشهر التالي (من الذاكرة، غير متأكيد)، أي أنه لن ينبهك أن الإدخال خاطئ ولكنه سيصحح المدخل. من الجيد أن تدعمونا بأمثلة ولكم جزيل الشكر.

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

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