عمر ضاحى

بعتذر عن التأخير اتفضل هذا ما تريد ؟ وهذا ايضا جل اخر افضله 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()));

ممكن تجرب الكود هذا Dim cbMenu1 As CommandBar Dim menultems1 As CommandBarControl Dim subMenu As CommandBarPopup Dim FPath, SFileName01, SFileName02, SFileName03, SFileName04, SFileName05, SFileName06, SFileName07, SFileName08, SFileName09, SFileName10 As String Dim Aa01, Aa02, Aa03, Aa04, Aa05, Aa06, Aa07, Aa08, Aa09, Aa10 As IPictureDisp FPath = CurrentProject.Path SFileName01 = FPath & "\ICONS\01.bmp" Set Aa01 = stdole.StdFunctions.LoadPicture(SFileName01) SFileName02 = FPath & "\ICONS\02.bmp" Set Aa02 = stdole.StdFunctions.LoadPicture(SFileName02) SFileName03 = FPath & "\ICONS\03.bmp" Set Aa03 = stdole.StdFunctions.LoadPicture(SFileName03) SFileName04 = FPath & "\ICONS\04.bmp" Set Aa04 = stdole.StdFunctions.LoadPicture(SFileName04) SFileName05 = FPath & "\ICONS\05.bmp" Set Aa05 = stdole.StdFunctions.LoadPicture(SFileName05) SFileName06 = FPath & "\ICONS\06.bmp" Set Aa06 = stdole.StdFunctions.LoadPicture(SFileName06) SFileName07 = FPath & "\ICONS\07.bmp" Set Aa07 = stdole.StdFunctions.LoadPicture(SFileName07) SFileName08 = FPath & "\ICONS\08.bmp" Set Aa08 = stdole.StdFunctions.LoadPicture(SFileName08) SFileName09 = FPath & "\ICONS\09.bmp" Set Aa09 = stdole.StdFunctions.LoadPicture(SFileName09) SFileName10 = FPath & "\ICONS\10.bmp" Set Aa10 = stdole.StdFunctions.LoadPicture(SFileName10) 'Debug.Print FPath 'Debug.Print SFileName10 'Debug.Print Aa01 On Error Resume Next CommandBars("Menu1").Delete ' Create the main menu Set cbMenu1 = CommandBars.Add("", 5, , True) ' Create a submenu Set subMenu = cbMenu1.Controls.Add(Type:=msoControlPopup): subMenu.Caption = "MAIN MENU 1" Set menultems1 = subMenu.Controls.Add: menultems1.Caption = "SUB FROM MAIN MENU 1": menultems1.OnAction = "CmD003": menultems1.Picture = Aa01 Set menultems1 = subMenu.Controls.Add: menultems1.Caption = "SUB FROM MAIN MENU 2": menultems1.OnAction = "CmD003": menultems1.Picture = Aa01 Set menultems1 = subMenu.Controls.Add: menultems1.Caption = "SUB FROM MAIN MENU 3": menultems1.OnAction = "CmD003": menultems1.Picture = Aa01 Set subMenu = cbMenu1.Controls.Add(Type:=msoControlPopup): subMenu.Caption = "MAIN MENU 2" Set menultems1 = subMenu.Controls.Add: menultems1.Caption = "SUB FROM MAIN MENU 4": menultems1.OnAction = "CmD003": menultems1.Picture = Aa01 Set menultems1 = subMenu.Controls.Add: menultems1.Caption = "SUB FROM MAIN MENU 5": menultems1.OnAction = "CmD003": menultems1.Picture = Aa01 Set menultems1 = subMenu.Controls.Add: menultems1.Caption = "SUB FROM MAIN MENU 6": menultems1.OnAction = "CmD003": menultems1.Picture = Aa01 Set menultems1 = cbMenu1.Controls.Add: menultems1.Caption = "TEST 1": menultems1.OnAction = "cmdChangeUser": menultems1.Picture = Aa01 Set menultems1 = cbMenu1.Controls.Add: menultems1.BeginGroup = True: menultems1.Caption = "TEST 2": menultems1.OnAction = "CmD053": menultems1.Picture = Aa05 Set menultems1 = cbMenu1.Controls.Add: menultems1.Caption = "TEST 3": menultems1.OnAction = "CmD003": menultems1.Picture = Aa02 Set menultems1 = cbMenu1.Controls.Add: menultems1.Caption = "TEST 4": menultems1.OnAction = "CmD004": menultems1.Picture = Aa02 cbMenu1.ShowPopup

ما شاء الله تبارك الله ابدااااع وشغل على ميه بيضه 😍

اولا بحب اشكرك شكرا جزيلا على هذه الشهادة العظيمه استاذي @ابوخليل فلست ارى نفسي انى اقتربت من هذا المستوي ولسه قدامي الطريق طوييييييييل حتى اصل لمثل هذه الشهادة وهنا احب ان اقدم شكري وتقدير لاساتذتى الكرام @jjafferr و @ابوخليل و @ابو جودي @Eng.Qassim @Moosak الكثير هنا كلهم اساتتى واتعلمت منهم الكثير سائل المولى ان يبارك لنا فى اعمارهم وان يحفظهم من كل شر وان يبارك لهم فى جميع امورهم واهلهم اجمعين فلكم جزيل الشكر جميع على ما قدمتوه لنا فى هذا الصرح العظيم ❤️

انا مش شايف انها ظاهره هنا