متقاعد

تفضل استاذنا ابو اشرف اوفسنا.accdb

وعليكم السلام عند استخدام مربع تحرير وسرد في الجدول الخدمات فانت عملت حقل المحافظة من نوع رقم وكذلك الحال لحقل الخدمة الان ترغب في عمل مخطط بياني مبني على الجدول ولكن يظهر رقم المحافظة ورقم الخدمة وللتغلب على ذلك هناك بعض الطرق منها استخدام استعلام يتم عمله حسب الصورة المرفقة او قم بانشاء استعلام جديد فارغ ثم في طريقة عرض SQL ضع الكود الاتي ⬇️ SELECT المنتفعين.التاريخ, المحافظات.المحافظات, الخدمات.الخدمات, المنتفعين.المعرف FROM المحافظات INNER JOIN (الخدمات INNER JOIN المنتفعين ON الخدمات.المعرف = المنتفعين.الخدمات) ON المحافظات.المعرف = المنتفعين.المحافظة;

انا مثلك في البداية اتوقعت انا هناك عمليتين لكن لما تدخل جدول nas تجد ان هناك عمليه واحدة مكتمله تابعة للسجل برقم 4 وتاريخ 27 وتفصيلها في الجدول بواقع ثلاث سجلات 1500 وارد لمحمود 200 وارد لخالد باليورو و300 صدار لجابر اما في جدول ras فيوجد سجلين 4 وهو الاب للسجلات الثلاث التي تحدثنا عنها وسجل رقم 5 بتاريخ 24 وليس له سجلات تابعه وبخصوص التكرار الذي اشار اليه الاستاذ الفاضل عمر فهو بسبب اعتماده في عمل الاستعلام all على استعلامين اخرين ولم يتم اضافة حقلي الربط الموجود في الجدولين وهذا تسبب في وجود تكرار غير صحيح وقد تم تعديل مصدر الاستعلام في مشاركتي السابقة واضافة حقل الربط وبالتالي لن يظهر اي سجل غير مكتمل ولم يعد هناك تكرار تحياتي استاذ احمد

جرب الان محاولة لتصحيح الاستعلام مصدر الجمع واعتذر عن المراجعة لانشغالي جملة الاستعلام ⬇️ SELECT ras.itm, ras.ch, ras.com, ras.dat, nas.wared, nas.sader, nas.omla, nas.amil, ras.[not], nas.nott FROM ras INNER JOIN nas ON ras.ch = nas.ch; الملف مرفق hawalat(2).accdb

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

استخدام مربعات القوائم المنسدلة في الجداول يسبب مثل هذه المشاكل مثلا انت تكتب المعيار دولار بينما بسبب استخدام القوام في الجدول اكسس يتعامل مع المعرف وهو هنا رقم 1 لذا ينتج الخطأ وكذلك اسم الشركة المعييار لا يطابق البحث ويتطلب اضافة معرفة الشركة للنموذج لتكون كتابة الدالة ⬇️ =Nz(DSum("[wared]";"all";"[omla]=1 " & " And [com]=" & [cco] & "");0) الملف مرفق مع عدم الاقتناع hawalat(2).accdb

وعليكم السلام استاذ حمدي الملف يعمل بدون مشاكل على الاصدار 2021 اعتقد انك تستخدم اصدار 2003 والاصدارات القديمة لاتدعم التصدير الى هذه الصيغة اعتقد ان هناك ملحق يتم اضافته ولكني لست واثق لكوني اعتمد على الذاكرة مرفق صورة من موقع مايكروا توضح الاصدارات التي تدعم هذه الصيغة تحياتي

هنا الاستاذ العزيز احمد قام بتعديل نوع الحقل الى نص والامور تمام طيب لو اردنا بقاء الحقل كماهو تاريخ وقت واظهار اليوم Me.Zday = [Zdate] ثم في خصائص الحقل zday تنسيق نضع dddd الملف مرفق تاريخ.accdb

اذكر وطبعا انا اعتمد على الذاكرة انه نحصل على رسالة عندما يحاول اكثر من مستخدم التعديل على نفس السجل في نفس الوقت لحين حفظ التعديل او اغلاق السجل انا اتحدث عن اوراكل لذا فان اوراكل تقوم بخاصية اقفال السجل مع اتاحة التعامل مع السجلات الاخرى في الجدول بينما بعض قواعد بيانات اخرى تقوم باقفال الجدول باكمله ولا علم لي بكيفية تعامل sql server مع مثل هذا التعارض وكان هناك خاصية تمكن من العمل على نفس السجل والحديث عن اوراكل مع ذلك استخدام هذه الخاصية يتسبب في فقد تامين السجل وهذا التامين ميزة من ميزات قواعد البيانات لكني لم اعد اذكرها لطول ابتعادي عن المجال ردي هنا ليس تأييد او اعتراض على فكرة الاستاذ قدور ولكن بخصوص مداخلتك بشأن الرقم المكرر ممكن التغلب عليها من خلال ترقيم مخصص لكل مدخل بيانات تحياتي

اذا كانت البيانات من اكثر من جدول وهناك علاقة تم عملها مسبقا بين الجداول مثل راس الفاتورة واطراف الفاتورة فبمجرد اضافة الجدولين للاستعلام يكون الربط وفقا للعلاقة التي تم عملها سابقا. اذا اعتمدنا على طريقة فتح التقرير ثم التصدير ممكن جعل التقرير يفتح في وضع مخفي مثال هذه الطريقة ⬇️ Dim reportName As String Dim fileName As String Dim criteria As String Dim filepath As String reportName = "r_A" fileName = Me.NO & ".pdf" criteria = "[no]=" & Me.NO filepath = "d:\" DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, filepath & fileName DoCmd.Close acReport, reportName, acSaveNo في طريقة التصدير يمكن تصدير تقرير وممكن استعلام وممكن جدول وهنا لا يتم معاينة الكائن اثناء عملية التصدير مثال لتصدير استعلام لعرض السجل الحالي نضع المعيار الذي اشرنا اليه في الاستعلام ثم يكون الامر Dim k As String k = Me.NO & ".pdf" DoCmd.OutputTo acOutputQuery, "q_1", _ acFormatPDF, "d:\" & k فقط حددنا نوع الكائن المراد تصديره بانه استعلام طبعا تصدير التقرير افضل من تصدير استعلام لغرض التنسيق مع كل ماسبق اكسس يعطي خيارات متنوعة لعمليات التصدير وبدون الحاجة لكل ماسبق

كما اشرت لا يشترط فتح التقرير عند التصدير اتحدث هنا عن الطريقة الثانية التي اشرت اليها وهي وضع مصدر السجلات للتقرير استعلام بمعيار من النموذج الذي يحتوي على زر امر التصدير وممكن كتابة الكود على النحو التالي Dim k As String k = Me.NO & ".pdf" DoCmd.OutputTo acOutputReport, "r_A", _ acFormatPDF, "d:\" & k, True في اخر معلمَه في الامر وضعنا true وهنا بمجرد تصديره سيتم فتحه بواسطة البرنامج الافتراضي لملفات pdf واذا اردنا عدم فتح الملف الناتج فقط نحذف المعلمَه Dim k As String k = Me.NO & ".pdf" DoCmd.OutputTo acOutputReport, "r_A", _ acFormatPDF, "d:\" & k وممكن استخدام المعلمات التي اشرت اليها في ردي الاول مثلا تحديد ترميز نصي معين وايضا تحديد جودة الملف الناتج وهنا لدينا قيمتان acExportQualityPrint وقيمتها الافتراضية 0 وهي تساعد على تحسين اخراج الملف للطباعة وهي الافتراضية عند عدم اختيار هذه المعلمَه acExportQualityScreen وقيمتها الافتراضية 1 وهي تساعد على تحسين اخراج للملف للعرض على الشاشة كما يمكن تحديد مكان الحفظ مباشرة او بشكل يدوي وايضا ممكن تحديد الاماكن المطلوبة من خلال قائمة منسدلة الحديث يطول لما يمكن عمله ولكن خير الزاد مابلغك المحل تحياتي

الامر DoCmd.OutputTo له ثمانية معلمات او Parameters هذه المعلمات ليس منها ما يخص الفلترة وبالتالي لن نستطيع اضافة شرط الفلترة ضمن الامر نفسه ولكن هناك طرق للتحقيق المطلوب وسوف اتحدث عن طريقتين ولكن بشكل مختصر وضع الشرط في امر فتح التقرير كما في اجابتك التي اشرت اليها بانها الاجابة الافضل هنا ☝️ الشرط عن طريق متغير وبالتالي فهذه الطريقة لا تختلف عن طريقتك في بداية الموضوع واختيارك لها كافضل اجابة خيارك الشخصي ولكنه بالنسبة لمبرمج قديم امر غير منطقي الا اذا كنت تراجعت عن شرطك الاساسي الطريقة الثانية وبدون الحاجة الى امر فتح للتقرير عن طريق وضع مصدر السجلات للتقرير استعلام بمعيار رقم الفاتورة [forms]![kkk]![id] وبالتالي سيتم تصدير الفاتورة الحالية فقط وبدون الحاجة الى امر فتح التقرير اخيرا ما سبق وجهة نظر وليس الهدف النقد لاختياراتك تحياتي

الشكر لله اخي احمد

الملف في الرابط هنا للتحميل

الموضوع بالنسبة لي غير واضح اذا كان المقصود عد كافة السجلات بعد استبعاد مرات التكرار يكون لدينا 7 سجلات Unique Value ID TeacherName CountOfcity country 1 احمد محمد 2 العراق 2 محمد حسنين 2 العراق 4 حسين علي 1 العراق 5 زينب محمد علي 2 مصر 6 منى عبد الرحمن 1 العراق 7 سامر محمد 1 مصر 9 سهى عبد الخالق 1 مصر اما في حالة استبعاد اي سجل مكرر اي فقط عد السجلات الغير مكررة فيكون عدد السجلات 4 فقط Unique Value ID TeacherName CountOfcity country 4 حسين علي 1 العراق 6 منى عبد الرحمن 1 العراق 7 سامر محمد 1 مصر 9 سهى عبد الخالق 1 مصر لوجود تكرار للسجل رقم 5 ورقم 10 زينب محمد علي وفي جميع الاحوال هو تصور مبني على فهمي للامر

حسب مرفق الاستاذ العراقي ومشاركتكم استاذ موسى يكون العدد 8 ولكن هناك اخر تكرار في الجدول مع اختلاف رقم id Teachers ID TeacherName city country 5 زينب محمد علي القاهرة مصر 10 زينب محمد علي القاهرة مصر وبالتالي اذا كان فهمي صحيح يكون العدد بدون التكرار 7 Unique Value ID TeacherName CountOfcity country 1 احمد محمد 2 العراق 2 محمد حسنين 2 العراق 4 حسين علي 1 العراق 5 زينب محمد علي 2 مصر 6 منى عبد الرحمن 1 العراق 7 سامر محمد 1 مصر 9 سهى عبد الخالق 1 مصر هذا الرد بناء على فهمي للامر وليس للمشاركة في الحل تحياتي

بالتوفيق استاذ فؤاد

حاولت بشتى الطرق اني اجد فرق ولو بيوم واحد والى عام 2079 ولم اجد شغل كبار

حسب فهمي للامر test.accdb

ماشاء الله تبارك الله نعم استاذي اتفق معك ان خواطرك لم تكذب عليك اسال الله ان يمتعك بالصحة والعافية وان يبارك في عمرك وعلمك وذريتك 🌹

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

صمت الحكماء وسمت العلماء قالت العرب : الصمت حكمة وقليل فاعله احسن الله اليك استاذنا ولكنها من باب رحم الله امرأ عرف قدر نفسه فكلما تقدمت في العمر وازددت علما وخبرة تقينت انني مازالت اجهل الكثير الشباب شباب القلب استاذنا محمد بارك الله لك في عمرك وعلمك ربما يكون ذلك فانا في الاوراق الرسمية اتممت الستين وفي رواية اخرى 63 والله اعلم لكون ابائنا لم يهتموا بالتوثيق حتى وقت متأخر في هذه لا اتفق معك ليس مجاملة لاخي جعفر ولكن ارجح اجابته اعلاه ☝️ تحياتي للجميع

هههههه لتنفيذ هذه الفكرة ممكن استخدام الامر التالي في زر امر If Me.NewRecord Then Exit Sub Dim x As Variant Dim a As Variant x = ([g1s11] & "|" & [g1s12] & "|" & [g1s13] & "|" & [g1s14] & "|" & [g1s15]) DoCmd.GoToRecord , , acNewRec a = Split(x, "|") [g1s11] = a(0) [g1s12] = a(1) [g1s13] = a(2) [g1s14] = a(3) [g1s15] = a(4) وممكن بدون الحاجة الى مصفوفة عن طريق حلقة مشابهه لكود استاذنا جعفر تحياتي

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

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