عمر ضاحى

اعتقد ان ده ممكن عن طريق تواجد قاعدة بيانات اون لاين على 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 الكثير هنا كلهم اساتتى واتعلمت منهم الكثير سائل المولى ان يبارك لنا فى اعمارهم وان يحفظهم من كل شر وان يبارك لهم فى جميع امورهم واهلهم اجمعين فلكم جزيل الشكر جميع على ما قدمتوه لنا فى هذا الصرح العظيم ❤️

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

هذا الملف انا كنت قمت ببعض التعديلات عليه لفرض اظهار الريبون الاصلى واعادة المعدل مره اخرى واصل الكود كنت لقيته قبل كده فى موضوع فى المنتدي هنا مش متذكر من صاحب الكود الاصلى لكن فيه ما تبحث عنه وهو باضافة هذه الكود ضمن الكود بتاعك RIBBON.rar <backstage> <button idMso="FileCloseDatabase" visible="false"/> <button idMso="SaveObjectAs" visible="false"/> <button idMso="FileSaveAsCurrentFileFormat" visible="false"/> <button idMso="FileOpen" visible="false"/> <button idMso="FileSave" visible="false"/> <tab idMso="TabInfo" visible="false"/> <tab idMso="TabRecent" visible="false"/> <tab idMso="TabNew" visible="false"/> <tab idMso="TabPrint" visible="true"/> <tab idMso="TabShare" visible="false"/> <tab idMso="TabHelp" visible="false"/> <button idMso="ApplicationOptionsDialog" visible="false"/> <button idMso="FileExit" visible="false"/> <button id="btnPrintPreviewClose" isDefinitive="true" label="Close Preview" imageMso="PrintPreviewClose" onAction="OnActionClose"/> </backstage>

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

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

الملف شغال تمام كل الملاحظات ال ظهرت معايا تخص الاكواد بدلة جميع الجمل من Declare Function الى Declare PtrSafe Function اما الباقى فيعمل عادي معي لا ارى اى ملاحظات بخلاف الحقل الذى تحت اسم الام حقل يشير الى جدول غير موجود هنا

ارفق ملف

المكتبات مش من هنا من ال VBA

اتأكد من وجود المكتبة Microsoft Office xx.x Object Library طبعا xx.x ده رقم الاصدار بيختلف حسب النسخه ال انت مسطبها

حلها بسيط اجعل القيمه الافتراضيه للتاريخ فى الاطراف مصدره التاريخ فى رأس الفاتوره

خد هذا الفيديو جميل وده موقع البرنامج https://www.ssesetup.com/download.html الهنود عدو من زماان😅

ولو حبيت تحديث ايضا التواريخ الخاصه باطراف الفاتورة كلها الى نفس التاريخ فى راس الفاتورة اعمل استعلام وضع هذا الاكود فى الاستعلام UPDATE [جدول اطراف الطلب] SET [جدول اطراف الطلب].التاريخ = [Forms]![نموزج طلب الانتاج]![التاريخ] WHERE ((([جدول اطراف الطلب].[رقم الطلب])=[Forms]![نموزج طلب الانتاج]![رقم الطلب])); وسمي الاستعلام مثلا InvDateUpdate ثم قم بعمل زر وسمة UpdateDate مثلا وضع هذا الكود فيه DoCmd.SetWarnings (0) DoCmd.OpenQuery "InvDateUpdate" DoCmd.SetWarnings (1) بكده الاطرف هتحمل نفس التاريخ للراس --------------------------------- معلومه مهمه جدا نسيت اذكرها هنا فى بداية كلامي لا تجعل اسماء الجداول باللغة العربيه وايضا اسماء الحقول

كما قال لك الاستاذ / @Foksh الغي ارتباط التاريخ بين الراس والاطراف وهتتحل المشكلة برنامج الطلبيات.rar

الحمد لله لا تنسي غلق الموضوع باختيار افضل اجابة

هل هكذا تريدها ؟ اذا نعم اتفضل هذا الملف AAA.rar

ارف نسخه مصغره للاستعلام نجرب عليه

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

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

جرب تشغل اوفس 2016 نسخة 64بت