عمر ضاحى

اتفضل اخى الكريم اتمنى يكون هذا طلب ولتوضيح ما تم اضافته =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

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

🤔 ده اسهل للتجربه خلينا نجرب ونشوف

البرنامج كله لسه جدول واحد ونموذج واحد يعنى لسه ما عملت استعلامات كثير وكل الشغل الكثير لكن قد يكون ازالة الاوفس واعادة تنزيله من جديد قد يكون هو الحل فعلا فان لم يكن هناك اسباب اخري سوف اتبع هذا الحل ونري لعله يكون الحل ان شاء الله فكره صعبه جدا بسبب ان رامات جهازي 16 جيجا والبروسيسور CORE I7 الجيل العاشر والبرنامج موجود على هارد SSD

السلام عليكم ورحمة الله وبركاته محتاج افهم ايه ممكن يكون السبب معايا مشكله فى الاكسيس نفسه ظهره هذه المشكله من حوالى اسبوع تقريبا وهى بطئ فى الاكسيس (لما احاول اعدل على نموذج او استعلام او تقرير او اى شئ ) الاكسيس يعمل فى العموم كويس جدا لكن عندما اريد ان اعدل على تقرير مثلا اجد ان الاكسيس ياخذ وقت طووووويل جدل حتى يفتح لى محرر التقرير علشان اعدل عليه كنت فاكر ان المشكله فى التقرير نفسه قمت بغلق الاكسيس وعملت مشروع جديد ومن اول نموذج اجد البطئ مره اخرى هل اجد تفسير لهذه المشكله ؟

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

اعتقد انك تريد عمل استعلام تجميعي لحصر الكميات الوارده وعمل استعلام تجميعي اخر لحصر الكميات المنصرفه وعمل استعلام لحساب الفرق بين الكميات (لاعطائك الارصده الحالية)

باشكرك استاذي @د.كاف يار هذا هو