عمر ضاحى

السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير بعد اذن حضرتكم لى استفسار هذا الكود 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] & "*" والنموذج الفرعي هيكون مصدر البيانات ليه هو الاستعلام الجديد والنموذج اجعله ورقة بيانات او نموذج مستمر

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

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

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

🤣 والله فكرت فيها وانا ف الطريق للسكن بس عمرك اطول من عمري وسبقتنى بها هجرب واشوف الفكرتين

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

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

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

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

هذا لتوضيح الفكره بشكل عملى مرفق ملف الفكره tree.accdb

اسمح لى بتقديم فكره اعتقد يمكنك ان تنفذ هذا عن طريق عمل جدول لكل مستوي يعنى الجدول الاول ليكن اسمه مثلا tblA1 وهذا سوف تكون عباره عن بيانات المستوي الاول (الاصول و الاصول الثابته ......) ومن ثوم تعمل جدول اخر وليكن اسمه tblA2 وهذا للمستوي الثاني وهكذا وثم تعمل علاقه بين الجداول حسب المستويات وقد يفيدك الشباب هنا بفكره افضل من هذا لكن هذا ما استطعت ان افكر فيه لمشكلتك

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

^_^ ترجم علشان افهم

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

مرفق ملف test.rar وانا اريد ان اصل لهذه النتيجه

فعلت ولكن النتيجه هي العناون تكرر مع كل اسم انا اريد ان يتكرر فى رأس العمود فقط

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