kkhalifa1960

ابشر وعندي محاولات شغال عليها لتوحيد التقرير لكن عطني وقت .

استاذ @طاهر اوفيسنا أنا حاولت ولم أفلح فلابد من أربع تقارير وإليك النسخة المعدلة . 9acer3-2.rar

استاذ @BRAHIM Ben aissa في النموذج المستمر لا يمكن استخدام Visible = False لذا نستخدم (Conditional Formatting)

تفضل استاذ @طاهر اوفيسنا آخر محاولاتي . ووافني بالرد . 9acer3-1.rar

مهندستا @Eng.Qassim ماانتبهت للحقل الحسابي .... وجزاكم الله كل الخير . تفضل استاذ @RAIANESAMI المرفق وبه النسختان . BRAHIMBenAissa-3.rar

ابشر وعطني فرصة لباكر .

استاذ @RAIANESAMI

لاتنسى الضغط على تمت الاجابة على مشاركتي حتي يعم الخير لغيرك .

اليك المرفق بعد التعديل بالطلب 3 أما الطلبان 1 و 2 عدل استعلامات التقارير لينتج طلبك . 9acer-2.rar

تفضل استاذ @طاهر اوفيسنا أولاً عوداً حميداً ................. تم عمل الازم حسب مافهمت . لكن التقرير (Face4) يعمل تمام أما التقرير (Face10) محتاج منك بعض الاصلاح والترتيب اليك المرفق . ووافني بالرد . 9acer-1.rar

استاذ @احمد العدوى الرسالة التي تظهر في الصورة تقول: "يتبيّن عن التعبير عند الفتح الذي أدخلته كإعداد خاصية الحدث الخطأ التالي: Return without GoSub." المعنى: يوجد خطأ في كود VBA داخل أحد أحداث النموذج أو التقرير (غالبًا في حدث On Open أو On Close أو On Load)، حيث يحتوي الكود على عبارة Return بدون أن يكون هناك أمر GoSub قبلها. 1- في أحد أكواد الأحداث، هناك سطر مثل: Return لكنه غير تابع لأي كتلة GoSub ... Return. وهذا غير مسموح في VBA (يُستخدم GoSub وReturn فقط معًا داخل نفس الروتين). 2-أو قد يكون حدث النموذج (مثل On Close أو On Load) يشير إلى ماكرو أو دالة لم تعد موجودة أو تمت إعادة تسميتها. أحيانًا يظهر هذا الخطأ إذا تم كتابة اسم الماكرو أو الدالة في خاصية الحدث (Event Property) خطأ، مثل: =MyMacro() بينما الماكرو نفسه تم حذفه أو تغيّر اسمه. ✅ الحلول المقترحة خطوة بخطوة: افتح النموذج (أو التقرير) الذي يظهر عند إغلاق الملف أو فتحه (غالبًا Form_Main أو Form_Login). من طريقة العرض التصميم (Design View)، حدد النموذج واضغط F4 لفتح "ورقة الخصائص (Property Sheet)". راجع الخصائص التالية في تبويب حدث (Event): عند الفتح (On Open) عند التحميل (On Load) عند الإغلاق (On Close) عند إلغاء التحميل (On Unload) 🔧 مثال توضيحي: إذا وجدت أن هناك اسم دالة أو ماكرو مكتوب فيها (مثل =MyFunction() أو MyMacro😞 اضغط على الزر […] بجانبها، وافتح محرر الكود، وتأكد أن الكود موجود وسليم. إذا لم تكن تستخدم هذا الحدث، احذفه (اجعلها فارغة). ابحث في الكود داخل النموذج أو الماكرو عن أي سطر فيه Return بدون GoSub. إما احذفه أو استبدله بـ Exit Sub أو Exit Function حسب السياق. 🔧 مثال توضيحي: ❌ الكود الخطأ: Private Sub Form_Close() If Me.Dirty Then Me.Dirty = False End If Return End Sub ✅ التصحيح: Private Sub Form_Close() If Me.Dirty Then Me.Dirty = False End If Exit Sub End Sub إذا أردت، أرسل لي الكود الموجود في حدث Form_Close أو Form_Unload من النموذج الذي يظهر عند الإغلاق، وسأحدد لك السطر المسبب للخطأ بالضبط.

سعيد بمشاركتي معكم .

تفضل استاذي . takhrij-2.rar

بعد الاذن منكم اساتذتي ممكن اكمل لما توصلتم اليه مع بعض لمساتي . takhrij-1.rar

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

استاذ @عالم الهندسة هذه نسخة جديدة فيها اضافات ومحيت الذي ليس ضروري طالع المرفق الجديد وادرسه جيداً . ووافني بالرد . عالم الهندسة-2.rar

مشاركة بعد اذن اساتذتي . تفضل استاذ @عالم الهندسة مرفق كامل ... اذا يلبي طلبك !!! .ووافني بالرد عالم الهندسة-1.rar

ارسل لي النموذج المفضل وعليه ..... على الاجزاء المطلوبة اكتب طلبك .

اذا كان هذا طلبك لاتنسي الضغط على تمت الاجابة .

تفضل استاذ @RAIANESAMI المرفق بطلبك حسب مافهمت . مرة mdb. واخرى accdb. ووافني بالرد . RAIANESAMI.rar

عند اختيار اي سجل طالع صورة القلم على يسار السجل هذا دليل على انك تتعامل مع هذا السجل . واليك المرفق والعرض . أما مرفقك بعتذر منك لأن التعامل مع اللغة العربية بيلخبط البرمجة !!!!!!!!! . BRAHIMBenAissa-2.rar

طالع المشاركة الاخيرة بعد التعديل واذا كان هذا طلبك وحابب التعديل على مرفقك. وافني بالرد

اكيد صاحب الموضوع مشغول وإلا كان رد عليك عموماً طالع مشاركتي عدم عمل البرنامج الى اى كمبيوتر آخر من خلال سيريال و تفعيله بفترة زمنية من هنـــــــا .

الموضوع مكون من قاعدتين . 1- القاعدة الأولى (ExpireDate.accdb) محمية بباسوورد نظراً لصعوبة كسره بأي برامج اذا كان الباسوورد كبير ومعقد . شغل القاعدة المحمية أولا لأخذ بيانات كمبيوترك وتاريخ نهاية التفعيل وفي حالتنا هنا الباسوورد (tariq1991) يمكن تغييره كما تشاؤون . والقاعدة بها جدول ونموذج عند فتح النموذج بيسجل (txtSerial) و (txtKey) للجهاز . ويدوياً اختار تاريخ انتهاء التفعيل . 2- القاعدة الثانية (Khalifa1960_Activation.accdb) عند تشغيلها بيطلب منك باسوورد القاعدة المحمية . فعند فتح القاعدة الاساسية (Khalifa1960_Activation.accdb) يأخذ بيانات كمبيوترك بيسجل (txtSerialF) و (txtKeyF) للجهاز ,ويقارنهم مع القاعدة المحمية فإذا تطابقا وكان تاريخ التفعيل ساري بعطيق ماسج ثم بيفتح الفورم (LoginingForm) أما غير ذلك يقفل القاعدة . 3- عند نسخ القاعدة الاساسية وتشغيلها على جهاز أخر لا تفتح . أو عند نسخ القاعدتان وتشغيلهم على جهاز أخر بدون الباسوورد ايضا لم تفتح . تفضلوا القاعدتان للتجريب وابداء الرأي . ثم نكمل تأمين القاعدة الاساسية . Khalifa1960_Activation.rar

استاذ @BRAHIM Ben aissa في النموذج المستمر لا يمكن استخدام Visible = False لذا سنستخدم (Conditional Formatting) للحقول كما بالعرض اليك المرفق . واذا تريد العمل على مرفقك. وافني بالرد . BRAHIMBenAissa-1.rar