كل الانشطه

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

أخي طاهر ، الواضح من خلال الكود انك تعتمد على مربع النص 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" ، لم تظهر لي الرسالة ان "هذه الزوجة متوفية" . شكراً لك سعة صدرك

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

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

وعليكم السلام ورحمة الله وبركاته ,, من تبويب ( Other - أخرى ) من خصائص النموذج ، اجعل قيمة ( مشروط - Modal ) = نعم

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

اساتذي الفضلاء ممكن على نفس المرفق والفورم A1 عند النقر على اسم الزوجة يظهر الميساج "هذه الزوجة متوفية" وكذا الزوج علما ان الكود موجود ولكن عند التنفيذ يتجاهله

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

السلام عليكم يا اصدقائي الاعزاء عندي نموذجين كالتالي FINISHED CAED TEMPLATE نموذج رئيسي افتحتة للعرض FINISHED CAED نموذج صغير يفتح فقط عند فتح الرئيسي ولكن صادفتني مشكلة انه يفتح النموذج الصغير في الخلف وليس في الامام انا اريدة عند فتح النموذج الرئيسي يفتح النموذج الصغير في الامام سويت كود له ولكن لم يفتح - مرفق لكم الكود الكود معمول عند الفتح الفتح للنموذج الرئيسي Private Sub Form_Open(Cancel As Integer) Dim db As DAO.Database Dim rst As DAO.Recordset Dim expiredCount As Long Dim activeCount As Long Set db = CurrentDb ' عد البطاقات المنتهية Set rst = db.OpenRecordset("SELECT COUNT(*) AS ExpiredCount FROM Table11 WHERE Expiry_Date < Date()") expiredCount = rst!expiredCount rst.Close ' عد البطاقات النشطة Set rst = db.OpenRecordset("SELECT COUNT(*) AS ActiveCount FROM Table11 WHERE Expiry_Date >= Date()") activeCount = rst!activeCount rst.Close Set rst = Nothing Set db = Nothing ' افتح النموذج المصغر الصغير DoCmd.OpenForm "FINISHED CAED", acNormal ' مرر البيانات إلى الحقول في النموذج المصغر FORMS("FINISHED CAED").Controls("EXP").Value = expiredCount FORMS("FINISHED CAED").Controls("FAL").Value = activeCount ' تشغيل المؤقت المؤقت لتقديم النموذج المصغر للأمام بعد الفتح Me.TimerInterval = 100 ' 100 مللي ثانية ' يمكنك تعليق رسالة MsgBox لأنك تعرض البيانات في النموذج الصغير ' MsgBox "لديك " & expiredCount & " من البطاقات المنتهية." & vbCrLf & _ ' "ولديك " & activeCount & " من البطاقات النشطة في النظام والان يتم عرض المنتهية فقط.", vbInformation, "حالة البطاقات" End Sub

الله يبارك بيك استاذي وكثر الله من امثالك وفي ميزان حسناتك

ابشر انشاء الله بعد صلاة المغرب بكمل الموضوع وبعرضه لأاني بدأته بالفعل وباق اللمسات الأخيرة .. كما بالصورة .

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