عمر ضاحى

اولا باشكر حضرتك وفهمت فكرتك لكن لما حبيت اعملها بطريقتي شويه ظهر معي خطا انا عملت مجلد اسمه ICONS جنب ملف البرنامج ووضعت فيه الصورة التى فى الموضوع وعملت متغير Dim cbMenu1 As CommandBar Dim menultems1 As CommandBarControl Dim picPicture As IPictureDisp Dim FPath, SFileName10 As String FPath = CurrentProject.Path SFileName10 = FPath & "\ICONS\10.bmp" Set picPicture = stdole.StdFunctions.LoadPicture(SFileName10) 'Debug.Print FPath 'Debug.Print SFileName10 Debug.Print picPicture Set menultems1 = cbMenu1.Controls.Add(msoControlButton, picPicture, , , True): menultems1.BeginGroup = True: menultems1.Caption = "تغير المستخدم": menultems1.OnAction = "cmdChangeUser" كما هو موضح وبالنسبه لل picPicture حبيت اعرف ايه ال بيحصل فيها وكانت ان هناك قيمه متغيره فى كل مره يتم تحميل الصوره (طلبها) لكن الصوره لم يتم تحميلها ووجدة ان اصلا القائمة اختفت هنا استنتج ان انا عكيت الدينا بس حابب اعرف ايه الغلط هنا ام انى وضعت الكود غلط ولما حبيت اعمل تعديل اخر فى الكود عندي كمحاوله للحل Set menultems1 = cbMenu1.Controls.Add(msoControlButton).Picture = picPicture10: menultems1.BeginGroup = True: menultems1.Caption = "تغير المستخدم": menultems1.OnAction = "cmdChangeUser" ظهر مكان الزرار لكن لا توجد اى شئ مكتوب او حتى الاكشن الخاص به لا يعمل كانه لم يكن

بيختلف ان النموذج الفرعي عن النموذج الرئيسي فى طريقة المناداه اذا كان الكود موجود فى نموذج فرعي وبيتطلب لتشغيله حقل او اى شئ موجود فى النموذج الرئيسي هنا لازم تعبر عن ده بمسار كامل للحقل المطلوب او المرتبط مثلا هناك حقل فى النموذج الرئيسي به رقم الفاتوره والبضاعه يتم تسجيلها فى نموذج فرعي فعند تسجيل البضاعه بيتم ربط الفاتوره (رقمها) بالبضاعه بالمسار كامل Forms![اسم النموذج الرئيسي]![اسم الحقل فى النموذج الرئيسي] وهكذا ما اعذرنى لسه لحد دلوقتى انا مفهمتش ليه عاوز تعمل كده ولما بيتم اختاير شئ من القائه التى فى النموذج الفرعي ايه ال مفترض يحصل انا عاوز تشرحلى انت عاوز تعمل ايه (الحدث) (وفين مكان هذا الحدث) وبعد هذا الاختيار او فعل الحدث ايه ال من المفترض ان تظهر نتائجه وفين هتظهر النتائج دي

على الرغم انى مش فاهم ايه الغرض بس ممكن تجرب تنقل الكود لحدث بعد التحديث او عند التغير

ممكن حضرتك تشرحلى ايه الغرض من الكود علشان اقدر اساعدك فيه او ممكن اجد لك كود اخر

جرب هذا الملف بعد عدم تمكين التعديل فى القائمه ويتم اجبار المستخدم على الاختيار شئ من ضمن القائمه فقط takhrij.rar

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

تمام الحمد لله تحت امر حضرتك

الله يجازيك عنا كل خير ويزيدك من علمه ويبارك فيك

انا عرفت اعملها بس طلعت معايا مقلوبه ^_^ عاوز اعدلها الله يراضيكم ^_^ test1002.rar عاوز اجعل الاجمالى تحت الاسم ده ممكن ؟

علشان ال هيقرء التقرير يفهم ان الموظف ده اشتغل فى المشروع الفلاني كذا ساعه وفى المشروع الفلاني كذا ساعه وان الموظف الثاني عمل هنا وهنا وهناك وهكذا لكن اذا وصلت لفكره اقرب ليها تكون اكثر توضيحا ما عندي مشكله افهم من حضرتك ما تريد قوله بشكل عملى ولك جزيل الشكر

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

كنت احب اساعدك لكنى لا اكذب عليك عندي مشكلتين اولا انا مش فاهم حضرتك عاوز تعمل ايه بالظبط ممكن تعمل صوره توضح ما تريد مثلا ثانيا انا ضعيف فى التكويد لكن ان شاء الله لو فهمت ممكن اقدر اساعدك

جرب تعدل الكود بده =DLookUp("VAT";"Sales_Invoice_main";"Sales_Invoice_No = " & [Text158]) فى التقرير الامر مختلف لان التقرير مفهوش نموذج فرعي او ممكن ان تجعل الشرط من مصدر التقرير مثل هذا =DLookUp("VAT";"Sales_Invoice_main";"Sales_Invoice_No = " & [Sales_Invoice_No]) كلاهما يعمل

ممكن حضرتك توضح لى اى جذء تريد تعديله فى التقرير ؟

اولا انه شرف لى ان حضرتك تحاول مساعدتى بارك الله فيك واحسن اليك لكن ليس هذا ما اريد واعتذر لحضرتك لعدم توضيح الفكره بوضوح اكثر انا اريد ان تكون النتائج مثل هذا

اتفضل اخى الكريم اتمنى يكون هذا طلب ولتوضيح ما تم اضافته =DLookUp("VAT";"Sales_Invoice_main";"Sales_Invoice_No = " & [Forms]![حركة فاتورة البيع 2]![mySales_Invoice_No]) حيث عندما تريد ان تضيف دالت ويكون شرطها خارج الفورم لابد ان تضيف مسار الشرط كامل والشرط عندنا هو [Forms]![حركة فاتورة البيع 2]![mySales_Invoice_No] vat.rar

السلام عليكم اساتذي الكرام محتاج اعمل تقرير اجمالى للاضافى فى الاول كان تمام لكن لما حبيت اضيف الملاحظات علشان عارف كل وقت اضافى تم تسجيله يخص ايه طبعا لقيت كانى لم اجمع واظن ده طبيعي بسبب ان الملاحظات لا تجمع (حبيت قدر الامكان اجعل الاسباب واحده علشان اقلل السطور من الاخر ^_^ عاوز اجعل التقرير يظهر لى هكذا رقم الموظف الاسم عدد الساعات الاضافى الملاحظات 01 تجربه 5 اضافى 1 01 تجربه 7 اضافى 2 ------------------------------------------------------------------------------------------------------- الاجمالى 12 ------------------------------------------------------------------------------------------------------- 02 تجربه2 5 اضافى 1 ------------------------------------------------------------------------------------------------------- الاجمالى 5 ------------------------------------------------------------------------------------------------------- وهكذا test1002.rar

انا بالفعل عملت كل حاجه بالاكواد وفعلت نظام الصلاحيات لكن كنت عاوز اعرف كيف اجعل القوائم دينماكيه ف بارك الله فيك وزادك من علمه والحمد لله اشتغل الكود كده على اكمل وجه باقى ان اشوف كيف ممكن استفيد من القائمه التلقائيه دي ^_^

سؤال لولبي كده With cbMenu1.Controls.Add(Type:=msoControlPopup) .Caption = "About" Set menultems1 = .Controls.Add(Type:=msoControlButton): menultems1.Caption = "عن البرنامج1": menultems1.OnAction = "TestAbout1" Set menultems1 = .Controls.Add(Type:=msoControlButton): menultems1.Caption = "عن البرنامج2": menultems1.OnAction = "TestAbout1" End With كيف يمكن ادارج هذا السطر التالى (msoControlButton, 2188, , , True) فى الكود الاول علشان اظهر ايكونه لهم

مرفق ملف اتمني يكون هذا طلبك Test.rar

وعليكم السلام ورحمة الله وبركاته اولا لازم يكون هناك علاقة واضحه بين الثلاث جداول ثانيا عمل استعلام واضافة جميع المعلومات المطلوبه من الجداول الثلاث ثالثا عمل نموذج مكون من نموذج رئيسي واخر فرعي (الفرعي سوف يكون مصدر بياناته الاستعلام الذى سبق تكوينه) رابعا جعل المعيار فى الاستعلام هذا الكود Like "*" & [Forms]![اسم النموذج]![اسم حقل البحث].[Text] & "*" ويتم وضع المعاير كيفما تشاء وهذه صورة للاستعلام

تمام طمنتني الله يطمن قلبك طيب مفيش تلمحات ولا اى شئ نفكر فيها ^_^

انا معرفش ازاى عملت القائمة دي لكن اعرف اعملها بالمايكرو ربنا ييسر الامور لك هى الفكره ال عاوز اعرفها 1- ازاى جعلت القائمة تلقائية اضافة او حذف النماذج ! (تراني عاوز اوصل للمعلومه ^_^ 😂 فى اسرع وقت والكل هكذا هنا) >>>>>>> ( انا اعرف اعمل استعلام لحصر جميع النماذج فى الاكسيس لكن كيف ربطة ده بده ^_^ ) 2- هل هذه القائمه ستحافظ على نظام الصلاحيات للمستخدمين ؟ (هذه النقطه مهمه جدا)

^_^ هتفضل مشوقنا كده للموضوع 😁

بسم الله ما شاء الله جعله الله فى ميزان حسناتك مجهود عظيم ورائع لكن فى نقطه هنا لو افترضنا انى جبت اى ملف بنفس اسم قاعدة البيانات وعملت عمليت استبدال مش كده القاعده ضاعت ^_^