ابو جودي

دى فكرة ع السريع ممكن تلافى حلول افضل واحلى من كده طبعا ياريت بعد كده تضع مرفق مبسط مع السؤال ماتنساش ماشى 😡

وعليكم السلام يا هندسة اتفضل ☺ بعد إذن استاذى الجليل ومعلمى القدير الاستاذى @د.كاف يار وبعد إذن الاستاذ الفاضل استاذ @ناقل اسمح لى انا اللى اكوون ناقل منك المره دى لان راح انقل فكرتك لكن بطريقتى وطبعا لان انا اللى فكرت فى المرفق اشتغل بمزاجى يا باش مهندس ملاحظة هامة : النموذج لا يظهر موضوعات استطلاعات الرأى لاى تاريخ قبل تاريخ اليوم الجدول tblVotingResources يتم اضافة موضوعات استطلاعات الراى به مع وضع تاريخ نهاية موعد ظهور الاستطلاع الجدول tblVotingHistory يتم اضافة الاستطلاع اليه حسب ال ID الخاص بالاسطلاع مع الـ ID الخاص بالمستخدم الذى قام بالتصويت او الاعجاب كما يتم حذف التصويت منه كذلك بنفس الالية Vote.mdb Vote.zip

طيب أستاذ @jjafferr ممكن سؤال هل لو قمت بتغير نظام التشغيل للجهاز الخادم الذى يحتوى قاعدة الجداول من ويندوز 10 الى ويندوز سيرفر يساهم فى حل المشكلة ؟ وان كان كذلك اى نسخى ويندوز سيرفر افضل لانى لم اتعامل معهم من قبل ؟!

للاسف نفس المشكلة

لا خالص لأنى اعلم أنه قد تتلف القاعدة بسببه كما اشار أستاذى الجليل الاستاذ @jjafferr جزاكم الله خيرا وسوف اقوم إن كتب لنا الله الحياة بما أرشدنى إليه معلمى وأوافيكم بالنتيجة بأمر الله

السلام عليكم ورحمة الله تعالى وبركاته اساتذتى الكرام تحية طيبى عطرة اولا مشكلتى تحدث فى قواعد البيانات الأمامية والخلفية كذلك ثانيا قواعد البيانات موجوده على شبكة محلية اعانى منذ اكثر من شهر تقريبا من تلك المشكلة Error 3343: Unrecognized Database Format على الرغم من أن قاعدة البيانات هذه موجوده ونعمل بها يوميا لما يقارب من الخمس سنوات دوان اى مشاكل للعلم قمت بعمل الأتى - ضغط واصلاح - عمل قاعدة بيانات جديدة لكل من القاعدتين الخلفية والأمامية وإستيراد الجداول والكائنات من القواعد القديمة - تجربـة قاعدة بيانات أستاذى الجليل @jjafferr عندما يعطي برنامج الاكسس اخطاء - النسخة رقم 4 + عمل نسخ احتياطية - صفحه 3 - قسم الأكسيس Access - أوفيسنا (officena.net) كل ذلك دون اى جدوى والان قد تحدث تلك المشكلة تقريبا بمعدل كل 10 دقائق هل من حل بارك الله فيكم وما السبب الذى أدى الى ذلك فجأه

فى الكود تبعك ابحث عن السطر التالى ShortPath = DBPath & FDName وقم بتغييره الى هذا السطر ShortPath = DBPath & "اسم المجلد" & FDName مع استبدال اسم المجلد طبعا حسب الاسم الذى تريدعلى ان يكوم نفس اسم المجلد بنفس مسار قاعدة البيانات موجود

بشركم الله تعالى بكل الخيــــــــر جزاكم الله خيـــــرا

يا سلام لو تكمل جميلك بمرفق صغنون كده علشان تسهل الأمر لطلاب العمل وانا منهم

لا لا لا لا لا لا لا 🥵 هو غش منى الحل ماليش دعوة 😭 ههههههههههه بس انا غشيت منه فكرة الرسائل اللى ارفقتها ومش عجباك يعنى الموضوع كله راجع الفضل فيه بعد رب العباد سبحانه الى استاذى الجليل @أبو عبدالله الحلوانى ومن قبله استاذنا الجليل ومعلمنا القدير الأستاذ @jjafferr

بخصوص تتبع التعديلات راجع هذه المواضيع ان شاء الله تجد فيها ضالتك او تستلهم منها افكار اظهار التغيرات التي تحدث في السجلات - قسم الأكسيس Access - أوفيسنا (officena.net) تعديل كود متابعة التعديلات على السجلات - قسم الأكسيس Access - أوفيسنا (officena.net)

انا تمام جربت Microsoft Windows 10 Pro V. 20H2 64-bit operating system Microsoft Office 2019 Pro Plus 32-bit v2012 Build 13530.20440 لا يوجد أى مشاكل الحمد لله

لا لا لا لا لا كده الموضوع اختلف خالص بص الاحسن انك تعمل حقل تانى تكتب فيه الاختصاارات اللى انت عاوزها

انا مش فاهم يعنى ايه ؟

هاد وقت البخور استاذ شغل البخور ام تراه خلص وننتظر لما تشترى تانى .؟

انا كده مش فاعم شئ ؟ 200 ريكورد فين فى مربع التحرير والسرد ؟؟!

هو انت من الناس اللى محدش يتوقعها هاهاهاهاهاها زعلان انت كده بقه واللا فرحان

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

كمل اللكود يا عسل باللى انت عاوزة Select Case text3 Case "ت4" text3 = "رياضيات 4" Case "ى4" text3 = "انجليزى 4" text3.Requery End Select جزانا الله واياكم خيـر الجزاء كمل بتلك الطريقة ولو محتاج مساعدة لا تتردد

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

اتفضل اضف الكود الاتى قى بداية الكود هند التحديث لمربع النص Select Case text3 Case "ت4" text3 = "رياضيات 4" text3.Requery End Select

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

عروستى يعنى ايه ليست على شبكة ولكنها على مجلد مشترك ؟ وع العموم جرب وشوف وقولنا الاخبار ؟ لان انا مش فاهم قصد حضرتك على فكرة انا باضحك على نفسي لانى مش فاهم والله لحسن تفتكر ان انا اقلل من كلامك فى شئ وتزعل واللا حاجة اوعى تكون من الناس اللى بتتلكك الله يرضى عليك

نعم هناك طريقه 😄 التحكم بقاعدة بيانات الخلفية على الشبكة - قسم الأكسيس - أوفيسنا (officena.net)

طيب بعد اذن الدكتور @SEMO.Pa3x بما ان حضرتك وضعت الصورة الخاصة بالختم فى تذييل التقرير تم اضافة الكود على حدث تنسيق الخاص بتذييل التقرير الفرعى Private Sub تذييل_التقرير_Format(Cancel As Integer, FormatCount As Integer) If txt_remaining <= 0 Then img_thanks.Visible = True Else img_thanks.Visible = False End If End Sub