عمر ضاحى

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

مبدئيا ارشح لحضرتك قناة الاستاذ محمود عبدالغفار https://www.youtube.com/@mahmoud1969 هتلاقى فيها سلسلة لشرح ادوات ال VBA وغيرها من الاكواد

ما تم تم عمل جداول التى تم ذكرها سابقا فى مشارقتى السابقة وتم عمل العلاقات بين الجداول واصلاح الملاحظات وهذه هى النتيجة New Microsoft Access Database2.rar واترك لك الباقى

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

اتفضل تم تنفيذه على مثال المهندس / قاسم DD227-2.rar

هذا الخطأ معناه ان هناك حقل [Org_Name] هذا الحقل متكرر فى اكثر من جدول بنفس الاسم يجب ان يكون هناك اختلاق بين التسميات زود حرف فى باقي الجداول او ارقام لتميز كل حقل عن الاخر

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

الملاحظات 1- لا تضع رموز غريبه فى مسميات الحقول فى الجداول 2- يجب ان تكون الحقول التى سيتم عمل العلاقات بينهم من نفس النوع ( فبما ان الحقول الرئيسية فى الجداول الفرعية من نوع ترقيم تلقائى او رقم فهو يعتبر رقم لذا يجب ان يكون المقابل لها فى الحقول فى الجدول الرئيسي من نفس النوع "رقمي" ) انظر الى الصورة التالية توضح لك جذء من صور العلاقات المختلفة فى الاكسيس هناك الكثير من المواضيع التى تتكلم عن صور العلاقات بين الجداول انصحك ان تبحث عنها وتقرئها جيدا سوف تفيدك مستقبليا كثيرا

اعمل ملف اكسيس وارفعه واحنا نسعدك فى عمل العلاقات (لكن انتبه : اعمل التسميات للحقول واسماء الجداول باللغة الانجليزيه ولا تضع مسافات بين الكلام)

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

ما شاء الله يسلم يمينك على المجهود ويجعله فى ميزان حسناتك

الف الف سلامه عليك استأل الله الكريم رب العرش العظيم ان يشفيك شفاء لا يغادر سقما

بعتذر عن التأخير اتفضل هذا ما تريد ؟ وهذا ايضا جل اخر افضله New Microsoft Access Database.rar

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

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

اتفضل هل هذا ما تريده ؟ مثال.rar هذه صورة لنتيجة ما تم فعله

لا يمكن

لا اعتقد انه ممكن او عملى لانك بتطلب البحث داخل محرر الاكواد من فورم او داخل اكواد السكول داخل الاستعلامات والله اعلم

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

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

المشكله الاولة هي ان هناك حقول تحمل نفس الاسم فى اكثر من جدول بينهم علاقة وحلها فى الاتى تميز كل حقل بجدوله مثلا تضيف كلمة Item للحقل ال فى جدول Item وكلمة InvSub للجدول الفرعي للفواتير (هذا اقتراح) وممكن تعدلها بما تراها مناسب لك SELECT Sales_Invoice_sub.Sales_Invoice_No, Sales_Invoice_sub.Item_Name, Sales_Invoice_sub.Quantity_of_cartons, Sales_Invoice_sub.pieces_in_each_caton, Sales_Invoice_sub.JUST_PIECES, (Nz([Quantity_of_cartons],0)*Nz([pieces_in_each_caton],0))+Nz([JUST_PIECES],0) AS total_pieces1, (Nz([total_pieces1],0)*Nz([sales_cost_price_kwacha],0))-Nz([Discount],0) AS Value1, (Nz([total_pieces1],0)*Nz([sales_shop_order_price],0))-Nz([Discount],0) AS sales_total_sell_price, Sales_Invoice_sub.landing_cost, (Nz([landing_cost],0)*(Nz([JUST_PIECES],0)+Nz([bonus_qty],0))) AS total_landing_cost, Sales_Invoice_sub.Discount, item.Notes, item.Category_Name, item.packing_type, Sales_Invoice_sub.category_type, (Nz([total_pieces1],0)*Nz([sales_sell_shop_price_kwacha],0)) AS total_special, (Nz([total_order_k],0)-Nz([discount_kwatcha],0)) AS total_order, (Nz([total_pieces1],0)*Nz([sales_order_price_kwacha],0)) AS total_order_k, (Nz([total_order_us],0)-Nz([discount_dollar],0)) AS total_us, (Nz([total_pieces1],0)*Nz([sales_order_price_$],0)) AS total_order_us, Sales_Invoice_sub.discount_sub, ((Nz([total_order_k],0)*Nz([discount_sub],0))/100) AS discount_kwatcha, ((Nz([total_order_us],0)*Nz([discount_sub],0))/100) AS discount_dollar, Sales_Invoice_sub.sales_cost_price_kwacha, Sales_Invoice_sub.sales_shop_order_price, Sales_Invoice_sub.sales_order_price_kwacha, Sales_Invoice_sub.sales_sell_shop_price_kwacha, Sales_Invoice_sub.notes, Sales_Invoice_sub.bonus_qty, (Nz([bonus_qty],0)+Nz([total_pieces1],0)) AS total_pieces_with_bonus, Sales_Invoice_main.discount_main, ((Nz([total_order_us],0)*Nz([discount_main],0))/100) AS [discount_main_$], Nz([discount_main_$],0)+Nz([discount_dollar],0) AS [total_inoice_discount_$], ((Nz([total_order_us],0)-Nz([discount_dollar],0))-Nz([discount_main_$],0)) AS total_retail_sell, Sales_Invoice_main.curency_type, Sales_Invoice_main.term_of_payment, Sales_Invoice_main.Customer_Name, Sales_Invoice_main.sales_Invoice_date, Sales_Invoice_main.manual_invoice_no, item.supplier_company, item.cosmatics_category, item.cosmatics_group, item.barcode, item.cosmatics_range, item.DOASGE_FORM, item.category_med, item.Batch_No FROM Sales_Invoice_main INNER JOIN (item INNER JOIN Sales_Invoice_sub ON item.Item_Name = Sales_Invoice_sub.Item_Name) ON Sales_Invoice_main.Sales_Invoice_No = Sales_Invoice_sub.Sales_Invoice_No WHERE (((Sales_Invoice_sub.Item_Name)<>"balancing rate")); دي نسخه من التقرير بعد التعديل المشكله اتحلت وفتح عادي

كما اخبرك الاستاذ @زياد الحسناوي هتحتاج تعمل فورم اما ان تعمل مربع نص وتستخدم معاها دالة Like وبكده هيكون مثل بحث قوقل او تستخدم قائمة بها جميع المسميات الوظيفيه وتحتار منها ما تريد

ممكن تكتبها هكذا LIKE "*" & "مهندس" & "*" وهو هيجيب لك كل ال فيها كلمة مهندس

انت حطيت الرابط وانا فتحته وشوفت التعليقات فقولت اضيف تعليق ^_^

ممكن اضافة كود تسجيل عدد النقرات على الزر اذا كانت النقرات 1 يفعل الكود اذا زاد عن 1 لا يفعل شئ اخر وينتظر ظهور النموذج 😅 مثلا