عمر ضاحى

انا عرفت اعملها بس طلعت معايا مقلوبه ^_^ عاوز اعدلها الله يراضيكم ^_^ 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- هل هذه القائمه ستحافظ على نظام الصلاحيات للمستخدمين ؟ (هذه النقطه مهمه جدا)

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

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

فعلا ما اخذت بالى من هذا الخطأ 😞 الف الف شكر وجعله فى ميزان حسناتك

الف شكر مقدما مرفق نموذج test1001.rar

up

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

السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير بعد اذن حضرتكم لى استفسار هذا الكود Dim str As String If IsNull(Me.cbAproved) Then Me.App1 = "" Me.App2 = "" Me.App3 = "" Me.App4 = "" str = "Select * from QryforREP_ALL_EMP" Me.RecordSource = str Exit Sub Else App1 = Me.cbEmpNo.Column(1) App2 = Me.cbEmpNo.Column(2) App3 = Me.cbEmpNo.Column(3) App4 = Me.cbEmpNo.Column(4) str = "Select * from QryforREP_ALL_EMP where [Emp_No]=" & Me.cbAproved.Column(0) Me.RecordSource = str End If هو يعمل جيدا اذا كان مصدر البيانات جدول لكن لما حبيت استخدمه على استعلام موجود لم تظهر لى نتائج ولما حبيت اعرف البرنامج شايف ايه ظهر لى هذا هل هذا يعنى انه لا يمكن استخدام هذه الكود مع الاستعلامات ؟

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

اشكرك كثيرا لقد اوضحت لى المشكله وارتني اين اخطأت بارك الله فيك

معي تقرير اريد ان اجعل الحقل الاجمالى بزيل التقرير يعمل لانى جربت ان استخدم دالة Sum ما ظبطة جربت اكثر من حل ما ظبط معايا جعلت التقرير فيه كل الحسبه ما ظبطة مرفق ملف report.rar