عمر ضاحى

اتفضل تم تنفيذه على مثال المهندس / قاسم 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 لا يفعل شئ اخر وينتظر ظهور النموذج 😅 مثلا

اضم صوتي لصوت استاذي ومعلمي @Eng.Qassim مين ال هيقراء شريط اخبار من 4000 معلومه فى شريط اخبار😅 الأفضل أن يتم اظهار عدد المنتهي صلاحياتهم وعند الضغط مرتين على شريط الاخبار يظهر تقرير بكل تفاصيل المنتهي صلاحياتهم

اتفضل اتنمي ده ما تريده ما تم عمله كود جبل البيانات من الجدول او الاستعلام ووضع جميع السجلات فى سطر واحد للعرض وتخزينها فى المتغير xTEXT Dim db As DAO.Database Dim rst As DAO.Recordset Dim xTEXT As String Dim delimiter As String Set db = CurrentDb Set rst = db.OpenRecordset("TablTest", dbOpenDynaset) xTEXT = "" delimiter = " - " With rst Do While Not .EOF xTEXT = xTEXT & ![ID] & " " & ![TextName1] & " " & ![TextName2] & " " & ![TextName3] & delimiter .MoveNext Loop .Close End With Set rst = Nothing db.Close Set db = Nothing If Right(xTEXT, Len(delimiter)) = delimiter Then xTEXT = Left(xTEXT, Len(xTEXT) - Len(delimiter)) End If AutoText.Caption = xTEXT وهذا الكود يتم وضعه فى حدث عند التحميل ثم نأتي لكود التحريك لمربع التسميه فى حدث عند عداد الوقت Private Sub Form_Timer() AutoText.Caption = Mid(AutoText.Caption, 2) & Left(AutoText.Caption, 1) End Sub وخلاص كده ^_^ واتفضل ملف للمراجعه شريط اخبار مصدره جدول.rar

خلينى امخمخ وان شاء الله اطلع بنتيجة ترضيك

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