عمر ضاحى

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

بص الموضوع محتاج انت تنظر لالية البيانات يعنى مثلا حسب كلامك انت محتاج تعمل جدول للسنوات وده الى حد ما محتاجه نظر لان لو علشان تفصل السنوات فممكن بدالة 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

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

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

اعتقد ان ده ممكن عن طريق تواجد قاعدة بيانات اون لاين على mysql و تعمل ربط بين القاعدة وقاعدة البيانات المحلية وهتحتاج حد يبرمج لك صفحة الدفع مبرمجة بال php لازم يكون حد محترف علشان يأمن لك الاتصالات والدفع وهتحتاج تشتري دومين (او تجرب دومين فرعي مجاني) وبعدها هتحمل (او هتعمل كود لتحميل البيانات من القاعدة الخارجية الى القاعدة المحلية وتربط المدفوعات بالبيانات ال عندك اعتقد ده مبدئيا

ارفع نسخه بسيطه من الملف ليس فيه بيانات حقيقية للعمل عليها او جرب تعمل استعلام وضع شرط فى تاريخ الانتهاء <Date() مثلا وشوف النتيجة

جرب هذا الملف TT.rar

اولا هتحتاج الى هذه الدالة ضعها فى مديول Function XDayNumber() As Integer XDayNumber = Weekday(Date, vbSunday) End Function فى الاتسعلام ممكن تستخدم هذا الاستعلام SELECT Timetable.ID, Timetable.EVENT1, Timetable.GRP_CD, Timetable.DAY_NO, Timetable.HOUR_NO, Timetable.CRS_CD, Timetable.ROOM_CD, Timetable.TCH_SC_NO, Timetable.NAM, Timetable.SEC_NM, Timetable.EVENT FROM Tdays INNER JOIN Timetable ON Tdays.ID = Timetable.DAY_NO WHERE (((Timetable.GRP_CD)=[Forms]![result]![GRP_CD]) AND ((Timetable.DAY_NO)=XDayNumber()));