kha9009lid

نورت الموقع @ابا جودى

بالتوفيق اخي الفاضل

جرب المرفق لعلة المطلوب Class2.accdb

قاعدة البيانات في اصداري 16 و19 متوافق مع اصدارات 7 المحدث و10 و13 في قاعدتك الحالة لم تفتح على الاصدارات السابقة لكونك استخدمت حقل من نوع رقم كبير لبعض الحقول

امين واياك يا ابا اشرف

كان التحديث للحقل اسم اليوم من القائمة المنسدلة Rs("day") = Me.Zday.Column(1) الان اصبحنا نحصل على اليوم مباشرة من التاريخ فعدلت تحديث الحقل للجدول الى Rs("day") = Me.Zday

جرب المرفق Library.mdb

فقط استغني عن دالة فورمات وملحقها DSum("[المبيعات]-[المشتريات]";"tbl1";"[ترقيم]<=" & [ترقيم])

نعم هذة طريقة اكسس بمجرد ادخال بيانات احد الحقول يتم الحفظ ويمكن التغلب على ذلك بعدة طرق منها في خصائص الحقول في الجدول نختار مطلوب = نعم عن طريق كود في حدث قبل التحديث للنموذج نضع الامر If MsgBox("هل ترغب في حفظ السجل", vbInformation + vbYesNo, "مطلوب") = vbNo Then Undo DoCmd.CancelEvent Else End If

لابد من وضع اسم الحقل الخاص بالتاريخ والخاص باليوم جرب المرفق Library.mdb

في حدث بعد التحديث لحقل التاريخ ضع الكود التالي [Zday] = Format([ZDate], "dddd") الملف مرفق Library.mdb

كخاصية مضمنه في النموذج لا وانما ممكن عملها عن طريق كود بسيط اذا كان حقل له وعليه في نفس الجدول ممكن استخدام التعبير Format(DSum("[المبيعات]-[المشتريات]";"tbl1";"[ترقيم]<=" & [ترقيم]);"عملة") للحصول على الرصيد دالة format اختيار للحصول على التنسيق بشكل مباشر اما اذا كان له في جدولة وعليه في جدول اخر بمعنى جدول للمدفوعات وجدول للمصروفات فنحتاج الى خطوات اضافية ربما اضع مثال لذلك في وقت لاحق في جميع الاحوال الافضل للحصول على الرصيد ان يكون عن طريق الاستعلام في المرفقات مثال للطريقة الاولى رصيد1.accdb

جزاك الله خير اخي عماد والشكر لله سبحانه

ممكن عملها اذا كان رقم 2020 ثابت لا يتغير في حدث بعد التحديث للحقل m p r نضع الكود التالي [Person_in_charge] = [Person_in_charge] & "/2020" اما اذان 2020 يرمز للعام فالافضل انشاء حقل مخفي في النموذج تكون قيمته =Year(Date()) والهدف من ذلك ان سجلات العام القادم تاخذ الملحق /2021 وهكذا للسنوات القادم ويكون الكود على النحو التالي [Person_in_charge] = [Person_in_charge] & "/" & [y_d] y_d اسم الحقل المخفي الخاصة العام يمكن الاستغناء عن الحقل المخفي عن طريق متغيير ولكن دائما الحل الاسهل اسرع في وصول المعلومة للمتلقي المثال مرفق PRODUCT21.mdb

العفو يا ابا عبد الله الشكر لله سبحانه

مثال جميل ابو اشرف

تقصد بدون اكواد وبدون وحدة نمطية نعم ممكن ولكن بعدة خطوات اولا نحتاج الى اضافة جدول يحتوي على كافة التواريخ الميلادية وما يقابلها من تواريخ هجرية ثانيا في الاستعلام نجعل قيمة حقل التاريخ الهجري يساوي الاتي DLookUp("[h_date]";"tbl1";"[m_date]=" & Format([dates_m];"\#mm\/dd\/yyyy\#")) اي اننا نطلب قيمة التاريخ الهجري من الجدول الاضافي اذا كان التاريخ الميلادي في الجدول الاضافي يساوي التاريخ الميلادي في الاستعلام وبالتنسيق المحدد في دالة format ثالثا بعد الحصول على قيمة التاريخ الهجري يمكننا بسهولة الحصول على حقل اليوم والشهر والسنة المثال مرفق استعلام q2 هجري2.accdb

جرب المرفق ولو عملناها في النموذج تكون النتيجة افضل لكونها تحفظ مباشرة في الجدول هجري.accdb

العفو استاذي @jo_2010 واذا كنت مازلت ترغب في التصفية عن طريق امر لكل مدينة مع ان الفكرة غير عملية حاليا لديك 3 مدن وربما غدا 10 مدن او اكثر فلا توجد مشكلة ممكن عملها لكل زر امر نضع الكود التالي مع تغيير اسم المدينة Dim myfilter As String myfilter = "[city]='" & "الرياض" & "'" Me.tbl1.Form.Filter = myfilter Me.tbl1.Form.FilterOn = True ولعرض الكل Me.tbl1.Form.FilterOn = False ولكن اعيد ان هذه الطريقة ليست عمليه المثال في المرفق بحث3.accdb استاذنا الفاضل @أحمد الفلاحجى جزاك الله خير

المثال السابق يبحث في نفس النموذج واذا كنت تستخدم نموذج رئيسي ونموذج فرعي Dim myfilter As String myfilter = "[city]='" & [tx2] & "'" Me.tbl1.Form.Filter = myfilter Me.tbl1.Form.FilterOn = True المثال مرفق بحث2.accdb

جرب المرفق كود بسيط DoCmd.ApplyFilter , "[city]='" & [tx2] & "'" بحث.accdb

وممكن استخدام الدالة DateAdd DateAdd("d";[المدة باليوم];[d1]) ولها ثلاث وسيطات d تعني اننا نرغب في اضافة ايام المدة وهي الحقل الذي يحتوي عدد الايام d1 حقل التاريخ وفقا للمثال دالة DateAdd تستخدم في الاستعلام ومنشئ التعبير وفي الاكواد التاريخ.accdb

جرب المرفق مع ملاحظة تغيير اسم حقل رقم الكتاب الوارد التسميات العربية المركبة تسبب مشاكل مع الاكواد مع اعتزازنا باللغة العربية وحبنا لها Microsoft Access قاعدة بيانات جديد.accdb

الف مبروك استاذنا الفاضل @أحمد الفلاحجى جهودكم كبيرة واستحقاقكم اللقب كان امر متوقع

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