كل الانشطه

السلام عليكم - حياك الله محتاج اظهار النتيجة هكذا - لكي يطابق تمع قرير اخر 0:45 1:30 0:00 0:00 1:45 1:30 3:50 1:30 1:30 1:30 11,90 المجموع

وعليكم السلام ورحمة الله وبركاته ،، أخي الكريم ، قم بتعديل استعلام النموذج الى الاستعلام التالي :- PARAMETERS [Forms]![Frm_Bons]![cmpagen] Long, [Forms]![Frm_Bons]![cmpkind] Text ( 255 ), [Forms]![Frm_Bons]![fromdate] DateTime, [Forms]![Frm_Bons]![todate] DateTime; SELECT tbl_Bons.Bon_nu, tbl_Bons.BonDate, tbl_Bons.Bon_kind, tbl_Bons.agent_id, tbl_Bons.carNo, tbl_Bons.driver_nm, tbl_Bons.Prod_no, tbl_Bons.Qty, tbl_Bons.sale_price, tbl_Bons.Remark, [sale_price] * [Qty] AS txtall FROM tbl_Bons WHERE (tbl_Bons.agent_id=Forms!frm_Bons!cmpagen Or Forms!Frm_Bons!cmpagen Is Null) And (tbl_Bons.Bon_kind Like "*" & Forms!Frm_Bons!cmpkind & "*" Or Forms!Frm_Bons!cmpkind Is Null) And ((tbl_Bons.BonDate>=Forms!Frm_Bons!fromdate Or Forms!Frm_Bons!fromdate Is Null) And (tbl_Bons.BonDate<=Forms!Frm_Bons!todate Or Forms!Frm_Bons!todate Is Null)); وفي مربعات النص الخاصة بالتواريخ ( من - إلى ) و مربعي التحرير والسرد ( cmpagen و cmpkind ) اجعل لهم الحدث بعد التحديث = Me.Requery أما بخصوص الزر CmdRemoveFilter لأزالة الفلترة ، فقد تم تعديله كالتالي :- Private Sub CmdRemoveFilter_Click() Me.FilterOn = False Me.cmpagen = Null Me.cmpkind = Null Me.fromdate = Null Me.todate = Null Me.Requery End Sub ملفك بعد التعديل :- 10.accdb

المطلوب عمل تصفية للفورم بإختيار العميل من الكومبو أو نوع البون أو تاريخ البون بين تاريخين وتصدير التصفية إلى تقرير بنفس المعايير المطلوب تصفية بالكود وليس requery للنموذج فى مصدر البيانات جزاكم الله خيرا 10.accdb

هههههههه ، هو لفظ تعودت عليه ، ولكن العبارة الصحيحة فعلاً "اختر تمت الإجابة" سيتم عمل مسح للكاش بعد هذه الرسالة

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

شكرا استاذي العزيز

اخي الكريم أولا: مجموع الساعات هو 9 ساعات ثانيا: مجموع الدقائق هو 290 دقيقة يعني 4 ساعات و 50 دقيقة نجمع الساعات و الدقائق يصبح الناتج 13 ساعة و 50 دقيقة فكيف يكون الناتج 11 ساعة و 90 دقيقة و لماذا نحسب الدقائق 90 و ليس ساعة و نصف. هناك عدم وضوح في المطلوب. ثالثا: مسألة اختلاف الجمع بين ملف المعادلات و ملف الأكوادهو أني قمت بزيادة الوقت في الخلية B5 وذلك على سبيل التجربة

مشاركة مع احبتي الكود صحيح والمشكلة في ترتيب الاعمدة في استعلام حقل (3)SearchListZ العمود الثالث ولكن عمود الهامش في آخر الاستعلام ربما هو العاشر فقط اسحب العمود في الاستعلام ليكون ترتيبه بعد عمود : الأب .. (الرابع نظريا والثالث بحسابات أكسس) العمود الاول عند اكسس=صفر انتبه : الرسالة لن تظهر الا في آخر اجراء قبل فتح التقرير

وعليكم السلام ورحمة الله وبركاته ، أهلاً بك في مشاركتك الأولى معنا أخي الكريم . ونتمنى أن تجد الفائدة والمعلومة التي تبحث عنها , دعني ألفت انتباهك الى ضرورة التقيد بسياسة وقوانين المنتدى ، بحيث يتم ارفاق ملف بسيط للمشكلة وشرح وافي وكافي للمطلوب ، حتى تتوضح اصورة لمن يقرأ مشكلتك ويساهم في ايجاد حل مناسب لها . أهلاً وسهلاً ، وشكراً لك رحابة صدرك كما أود لفت انتباهك الى ان زر اختيار افضل إجابة مخصص لتختار الإجابة التي حققت طلبك بشكل كامل . وهي دلالة على ان الموضوع قد تم انهائه بحل المشكلة .

أخي طاهر ، الواضح من خلال الكود انك تعتمد على مربع النص IDM كشرط للحصول على رقم الهامش للزوجة ، ولكن!! مربع النص IDM عند الكود التالي :- If SearchListZ.ListIndex = -1 Then Me.IDM = SearchListZ.Column(0, 1) Else: Me.IDM = SearchListZ.Column(0) Cr = DLookup("Hamech", "Tbl_ZAWJA", "IDM =" & Me.IDM) If Cr = 4 Then MsgBox " تنبيه ! هذه الزوجة متوفيه" DoCmd.Close acForm, "A1" تكون قيمته = تاريخ ميلاد الزوجة ، وهنا لا تتم المقارنة بالشرط بشكل صحيح . لذا ، انشئ مربع نص جديد على سبيل المثال Tx_IDM ، واجعل قيمته = رقم الزوجة Me.Tx_IDM = [Forms]![Search_Frm]![IDM] ثم عدل الجزء السابق ليصبح :- If SearchListZ.ListIndex = -1 Then Me.IDM = SearchListZ.Column(0, 1) Else: Me.IDM = SearchListZ.Column(0) Cr = DLookup("Hamech", "Tbl_ZAWJA", "IDM =" & Me.Tx_IDM) If Cr = 4 Then MsgBox " تنبيه ! هذه الزوجة متوفيه" DoCmd.Close acForm, "A1" وعليه سيظهر لك مسج انه هذه الزوجة متوفية ، ونفس الشيء عند الزوج في مربع النص IDP ، هو شرط لجلب قيمة الهامش ، ولكن قيمته = تاريخ ميلاد الزوج قمت بذكر المشكلة وتركت الحل لك لتتبين لك الأمور بشكل واضح .

أخي طاهر ، الواضح من خلال الكود انك تعتمد على مربع النص IDM كشرط للحصول على رقم الهامش للزوجة ، ولكن!! مربع النص IDM عند الكود التالي :- If SearchListZ.ListIndex = -1 Then Me.IDM = SearchListZ.Column(0, 1) Else: Me.IDM = SearchListZ.Column(0) Cr = DLookup("Hamech", "Tbl_ZAWJA", "IDM =" & Me.IDM) If Cr = 4 Then MsgBox " تنبيه ! هذه الزوجة متوفيه" DoCmd.Close acForm, "A1" تكون قيمته = تاريخ ميلاد الزوجة ، وهنا لا تتم المقارنة بالشرط بشكل صحيح . لذا ، انشئ مربع نص جديد على سبيل المثال Tx_IDM ، واجعل قيمته = رقم الزوجة Me.Tx_IDM = [Forms]![Search_Frm]![IDM] ثم عدل الجزء السابق ليصبح :- If SearchListZ.ListIndex = -1 Then Me.IDM = SearchListZ.Column(0, 1) Else: Me.IDM = SearchListZ.Column(0) Cr = DLookup("Hamech", "Tbl_ZAWJA", "IDM =" & Me.Tx_IDM) If Cr = 4 Then MsgBox " تنبيه ! هذه الزوجة متوفيه" DoCmd.Close acForm, "A1" وعليه سيظهر لك مسج انه هذه الزوجة متوفية ، ونفس الشيء عند الزوج في مربع النص IDP ، هو شرط لجلب قيمة الهامش ، ولكن قيمته = تاريخ ميلاد الزوج قمت بذكر المشكلة وتركت الحل لك لتتبين لك الأمور بشكل واضح .

لدي جدول عملاء تم عمل استعلام ثم تم عمل فورم فرعي بناءا على الاستعلام وتم إدراجه داخل فورم رئيسي به عناصر تحكم لفلترة البيانات وتم عمل الأكواد وكل شيء سليم ونتائج الفلترة تظهر بالفورم الفرعي سليمة تمام حاولت أعمل تقرير ولكن التقرير يعطيني كل البيانات وليس الناتجة عن الفلترة بالفورم الفرعي .... الرجاء المساعدة .... شكرا

السلام عليكم - مشكور على المرور ولكن اولا : النتائج تختلف بين المعادلات والكود ثانيا : اريد طريقة اظهار النتيجة هي 11ساعة و 90 دقيقة بمعنى تحويل الاوقات الى صيغة اخرى لاظهار النتيجة المطلوبة

السلام عليكم اساتذتي الكرام اريد التعديل على كود عند النقر على اسم الزوجة او الزوجة ينبهني لحالة الوفاة علما في حالة الزوجة hamech=4 والزوج يساوي 2 الكود موجود في A1 يحتاج إلى تعديل فقط MsgBox وفاة.rar

الخبراء الافاضل بعد التحية والاحترام عندى نموذج فرعى مستمر وأمام كل سجل ٣ ازرار m _l_b ومربع نص اسمة total_out اريد ان وتختفى الازرار الثلاتة فى حالة total_out = 0 , وتظهر الازرار الثلاتة اذا كان 0 <> total_out لكم الشكر عملت قاعدة if فى حدث السجل الحالى ولم يعطى نتائج جبدة

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

لماذا في الخاص أخي طاهر ,, المنتدى قائم على الفائدة العامة وللجميع ، أم هل هو صعب عليك أن تقوم بفتح موضوع جديد !!

ياريت معالجة امر الكود استاذ ولو في الخاص وشكرا لك

الله يحيك تفضل ملفين الأول بالمعادلات و الثاني بالكود مجموع المدة كاوقات.xlsx مجموع المدة كاوقات.xlsm

الملف كبير حاولت ولم اقدر ارفعه

العفو اخي الكريم ، فضلاً وليس أمراً .. لا تنسى اغلاق الموضوع باختيار افضل اجابة .

ارسل ملفك !!

أخي طاهر , هل هذا الطلب نفس المشكلة السابقة ؟؟؟؟؟؟؟؟؟؟؟ من الواضح أنه لا ، ليس له صلة وعلاقة بالمشكلة الأولى . انصحك بفتح موضوع جديد كي لا يكون في نفس الموضوع أكثر من مشكلة ولن يستدل أحد على المشاكل من خلال العنوان . على الرغم من أنه عند اختيار "مبروكه منيح11" ، لم تظهر لي الرسالة ان "هذه الزوجة متوفية" . شكراً لك سعة صدرك

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

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