عمر ضاحى

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

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

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