kha9009lid

اخي @rey360 هذه الطريقة تعطي نتيجة صحيحة اذا كانت البيانات المسجلة في الجدول لعام 2021 اما في حال وجود بيانات لاعوام سابقة فسوف يكون اجمالي المبيعات للاشهر المكررة غير صحيحة مثلا شهر 1/2021 المبيعات 200 شهر 1/2020 المبيعات 500 حينها ستجد ان الاجمالي لشهر يناير 700 ريال وهذا غير صحيح والسبب اننا عملنا الاستعلام الجدولي بدون تحديد العام لذا فمن رأيي المتواضع ان نعمل استعلام نستخرج فيه اسم الشهر او رقمه وايضا حقل غير ظاهر للعام ونحدد فيه معيار العام مباشرة او من خلال نموذج وهو الافضل لكونه يعطي مرونة لاختيار الاعوام دون الحاجة للدخول على تصميم الاستعلام ثم نعمل استعلام جدولي ويكون مصدره الاستعلام الاول في جميع الاحوال قد تواجهنا مشكله في فتح التقرير اذا كانت المبيعات في احد السنوات اقل من 12 شهر لذا هذا الموضوع مفيد لاستاذنا @jjafferr 👇 وهذا ايضا تحياتي

جميل جدا ويمكن استخراج اسم الشهر مباشرة بدلا من رقمه باستخدام الدالة MonthName MonthName(Month([salse]![Date])) او MonthName(Month([Date])) ملاحظة لصاحب الموضوع date من الاسماء المحجوزة لاكسس ومن الخطأ استخدامها لاسماء الحقول او الكائنات الاسماء والرموز المحجوزة في access

قبل تغيير نوع الحقل قم بعمل نسخة احتياطية حتى لا يتسبب التغيير في فقدان بعض بيانات الحقل

هذه المشكلة بسبب تمكين حقل رقمي من نوع رقم كبير افتح القاعد باصدار 2016 البناء 16.0.7812 او احدث او اصدار 2019 ثم عدل الحقل من رقم كبير الى رقم ثم اعمل ضغط واصلاح انظر هنا 👇 وهنا ايضا 👇

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

ماشاء الله تبارك الله علم وادب وسعة صدر الله يجزاك خير اخي حسين ويبارك فيك ولك

في حدث عند النقر للحقل id ضع الامر الاتي If Me.NewRecord Then Exit Sub DoCmd.OpenForm "b", WhereCondition:="[id]=" & [ID] الملف مرفق Database1210.accdb

استدراك حتى لا نحصل على رسالة خطأ اذا كان عدد السجلات كبير نستبدل 👇 Dim x As Byte بـ Dim x As Long او Dim x As Integer Byte = 0 to 255 Integer = -32,768 to 32.767 Long = -2,147,483,648 to +2,147,483,647 والله الموفق

ممكن نحجز متغير Dim x As Byte نجعل المتغير يعد السجلات بمعيار رقم الكود x = DCount("*", "part", "[cpart]=[aa]") نضع شرط اذا كان العدد لا يساوي صفر ينفذ الاجراء If x <> 0 Then bb = DLookup("[npart]", "part", "[cpart]=[aa]") اذا لم يتحقق الشرط يظهر رسالة بعدم صحة الكود ويفرغ حقلي aa و bb ثم ننهي الجملة الشرطية Else MsgBox "رقم الكود غير صحيح حاول مرة اخرى", vbCritical, "خطأ" aa = Null bb = Null End If يكون الكود كاملا بالشكل التالي Dim x As Byte x = DCount("*", "part", "[cpart]=[aa]") If x <> 0 Then bb = DLookup("[npart]", "part", "[cpart]=[aa]") Else MsgBox "رقم الكود غير صحيح حاول مرة اخرى", vbCritical, "خطأ" aa = Null bb = Null End If مرفق الملف بعد التعديل dlook.accdb

اخي محمد لن تجد اجابة لكون المنتدى يشدد على احترام حقوق الملكية الفكرية المحظورات 20. يمنع منعا باتا نشر أية موارد تخالف حقوق الملكية الفكرية بما في ذلك الكتب والكراك وتبادل السيريال، والمخالفة تعرض المشاركة للإلغاء والعضوية للإيقاف. تحياتي وتقديري لك اخي الفاضل والحل العملي شراء سيريل

جزاك الله خيرا يا ابا جودي وباذن الله هذا العمل الجميل في ميزان اعمالك اذا تسمح لي بمداخله بسيطة متعلقة بتمرير قيمة في امر فتح نموذج عن طريق OpenArgs في المثال الذي ارفقته اخي محمد 👇 DoCmd.OpenForm strFormName$, acNormal, , , , OpenArgs:=Time() وطالما صرحنا بـ OpenArgs فلا داعي لـ ,,,, ويمكن كتابة الكود هكذا 👇 DoCmd.OpenForm strFormName$, acNormal, OpenArgs:=Time() ولا يقتصر الامر على هذه الحالة فعند التصريح دائما يمكن تجاوز البارامترات مثال اخر لاستخدام معيار نصي في امر فتح نموذج DoCmd.OpenForm "FreaderL", , , "[x]='" & [y] & "'" يمكن التصريح بالشرط ليكون DoCmd.OpenForm "FreaderL", WhereCondition:="[x]='" & [y] & "'" اضافة الى العديد من الاختصار في الاوامر حيث ان لكل امر قيمة رقمية تغني عن كتابة الامر بشكل كامل مثال لبعض الاوامر DoCmd.RunCommand acCmdDatabaseSplitter = DoCmd.RunCommand 520 ----------------- DoCmd.RunCommand acCmdDeleteRecord = DoCmd.RunCommand 223 ------------------ DoCmd.RunCommand acCmdExportExcel = DoCmd.RunCommand 556 وكذلك لانواع الكائنات فيمكن التصريح بنوع الكائن ويمكن الاختصار بوضع القيمة الرقمية له مثال 👇 If ctli.ControlType = aclabel Then يمكن كتابته هكذا 👇 If ctli.ControlType = 100 Then وغيرها الكثير من الاختصارات مما لايتسع الوقت لذكره تحياتي وتقديري لاخي واستاذي محمد عصام

اعتقد يمكن التعديل على السطر If fld.Name <> "id" Then باضة الحقول التي لاتدخل في التجميع

جرب NA_SER.accdb

في حدث عند النقر على حقل الكود في الفرعي DoCmd.ApplyFilter , "[stcode] = '" & [StCode] & "'" الملف مرفق نقل السجل.accdb

جرب Odb_Emp.accdb

قسم قاعدة البيانات باستخدام معالج التقسيم يكون عندك قاعدة للجداول واخرى لبقية كائنات القاعدة في خصائص النموذج تامين السجلال سجل محرر ابحث في الموقع عن تقسيم القاعدة وستجد العديد من الشروحات بالتوفيق

احسنت اخي احمد وانا اكتبها هكذا ولكني اعاني من التصحيح التلقائي للوحة المفاتيح فكلما اوقفت التصحيح التلقائي اجده يعمل المشكلة انني لا استطيع استخدم لوحة مفاتيح فيزيائية 😞 تم التصحيح وجزاك الله خيرا احبكم الله الذي احببتمونا فيه

امين اخي ازهر والشكر لله سبحانه ولا يهمك اخي احمد حدد الموضوع وان شاء الله نشكر نيابة عنك 🌹

بل نكمل بعض ونتعلم من بعض

Dim x As Integer x = DCount("*", "tbl_img") If x > 30 Then If MsgBox("عدد السجلات اكثر من 30", vbYesNo, "تنبيه") = vbYes Then DoCmd.OpenForm "frm_1" Else DoCmd.CancelEvent End If End If

Dim x As Integer x = DCount("*", "tbl_2") If x > 30 Then MsgBox "عدد السجلات اكبر من 30", , "تحذير" End If او If Me.RecordsetClone.recordcount > 30 Then MsgBox "عدد السجلات اكبر من 30", , "تحذير" Else End If اختر اي من الطريقتين سبقتي استاذ احمد 🌹

والاجمل منه اخي جعفر قوله سبحانه و تعالي : " قُلْ لا أَمْلِكُ لِنَفْسِي نَفْعًا وَلا ضَرًّا إِلا مَا شَاءَ اللَّهُ وَلَوْ كُنْتُ أَعْلَمُ الْغَيْبَ لاسْتَكْثَرْتُ مِنَ الْخَيْرِ وَمَا مَسَّنِيَ السُّوءُ ِ " صدق الله العظيم

رحم الله الجواهري تَجري على رَسْلِها الدنيا ويَتْبَعُها رأْيٌ بتعليـلِ مَجْراهـا ومُعْتَقَـدُ أَعْيَا الفلاسفةَ الأحرارَ جَهْلُهمُ ماذا يُخَبِّـي لهم في دَفَّتَيْـهِ غَـدُ طالَ التَّمَحُّلُ واعتاصتْ حُلولُهمُ ولا تَزالُ على ما كانتِ العُقَـدُ

على الجرح تماما 🩸

رائع جدا استخدمت برنامج مدفوع وسعرة مرتفع استعاد جدول واحد فقط 😞