Moosak

المدير الجديد يتكلم .. 😄 شرفت وآنست 😁

هذا تطبيق على برنامجك : عند الاتصال : وعند انقطاع الاتصال : ولا تنسى أن تمر على الكود التالي لوضع الأمر الذي يناسبك في حالة الاتصال أو الانقطاع : Public Function Autoexec(TableName As String) On Error GoTo errorHandler Dim Result As Boolean Result = TableLinkOkay(TableName) If Result = True Then MsgBox "القاعدة متصلة بالجداول" 'هنا تضع الأوامر التي تريدها إذا كانت القاعدة متصلة كفتح النموذج الرئيسي مثلا ElseIf Result = False Then MsgBox "القاعدة غير متصلة بالجداول" 'هنا تضع الأوامر التي تريدها إذا كانت القاعدة غير متصلة كالخروج من البرنامج مثلا أو إعادة الإتصال End If AutoexecOutDone: Exit Function errorHandler: MsgBox "Error #" & Err.Number & ": " & Err.Description, vbCritical Resume AutoexecOutDone End Function في الموديول التالي : ولتغيير اسم الجدول المراد فحصه تفتح ماكروا ال Autoexec في وضع التصميم وتغير اسم الجدول من هنا : اثناء انقطاع الشبكة.rar

تضع اسم الجدول هنا فقط : Private Function TableLinkOkay(strTableName As String) As Boolean أو عندما تنادي الدالة هكذا : TableLinkOkay("LinkedTableName") ويمكنك وضع الكود على حدث عند الفتح لأول نموذج يفتح في قاعدة البيانات ... أو كما أفضل أن تضعه على ماكرو RunCode وتحفظه بـاسم : Autoexec ليعمل لكل بشكل مباشر عندما تفتح ملف الأكسس .

ربما يمكنك إظهار القيمة التي تريدها في الحقل الغير منظم لسجلات معينة دون الأخرى بجعل هذه القيمة في جملة شرطية IF مثلا .. بحيث تكون مبنية على قيمة أخرى في حقل منظم في نفس السجل .. مثال : تكون قيمة الحقل الغير منظم هكذا : إذا كان المجموع أكبر من 10 تكتب " مرتفع " وإلا فتكتب "" .. (أي يبقى فارغاً).

استخدم الدالة التالية : Private Function TableLinkOkay(strTableName As String) As Boolean 'Function accepts a table name and tests first to determine if linked 'table, then tests link by performing refresh link. 'Error causes TableLinkOkay = False, else TableLinkOkay = True Dim CurDB As dao.Database Dim tdf As TableDef Dim strFieldName As String On Error GoTo TableLinkOkayError Set CurDB = DBEngine.Workspaces(0).Databases(0) Set tdf = CurDB.TableDefs(strTableName) TableLinkOkay = True If tdf.Connect <> "" Then '#BGC updated to be more thorough in checking the link by opening a recordset 'ACS 10/31/2013 Added brackets to support spaces in table and field names strFieldName = CurDB.OpenRecordset("SELECT TOP 1 [" & tdf.Fields(0).Name & "] FROM [" & tdf.Name & "];", dbOpenSnapshot, dbReadOnly).Fields(0).Name 'Do not test if nonlinked table End If TableLinkOkay = True TableLinkOkayExit: Exit Function TableLinkOkayError: TableLinkOkay = False GoTo TableLinkOkayExit End Function وتستدعيها بهذه الطريقة : TableLinkOkay(LinkedTableName) 'داخل () تكتب اسم أحد الجداول المرتبطة وبه يتم فحص الاتصال وسترجع لك الدالة بـ True إذا كانت متصلة ، و بـ False إذا كانت غير متصلة .. وعليها ستبني الأمر الذي تريده ..

مبارك عليك يا أبا جودي ، الرجل المناسب في المكان المناسب 🤗🎈🎉✨ وأعانك الله على المهمة القادمة وأنت أهل لها بإذن الله 😉

أرفق قاعدة البيانات ..

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

جزاك الله خيرا أستاذنا @ابوخليل أحسنت وأجملت ..👍🏼 ولي طلب من إدارة المنتدى أيضا ..🌹 حبذا لو يكون لمشرفي المنتدى دور في اختيار الإجابة الصحيحة في المواضيع لما له من تسهيل في الوصول للحل الصحيح للمشكلة ، فكثير من الأعضاء لا ينتبهون لهذه النقطة .. مع جزيل الشكر مقدما 😊🌷

ما اسم التقرير الذي تريد أن توجه له أمر الطباعة ؟

بالتوفيق أخي سالم .. ياليت لو تعلم عليها كأفضل إجابة لتسهيل الوصول إليها من قبل الأعضاء مستقبلا .. 🙂

أخي سالم من نافذة محرر الأكواد ومن قائمة Tools اختر References ثم من القائمة التي ستظهر لك اختر Microsoft office 16.o object علم عليه بإشارة صح.. وإن شاء الله تتفعل معاك ..

تفضل أخي .. فتح ملف خارجي.accdb

صحيح يا باش مهندس .. جزاك الله خيرا .. بس فيه حاجه غلط في تصميم النموذج ... النموذج الفرعي غير مربوط بالنموذج الرئيسي .. !

شكلك رسلت الملف القديم يـ باشه

أنظر هنا : https://www.youtube.com/watch?v=M54Qv_Eh7fw أو هنا : https://www.youtube.com/watch?v=gM_HxBITc2k أو هنا : https://www.youtube.com/watch?v=yoGw9HKp1eU كلها تشرح نفس الفكرة ... 🙂

حياك الله أخي @at_aziz 🙂 تفضل هذا ملف الفوتوشوب مع ملفات الصور PNG .. Form 4 Designs.rar

أهلا وسهلا بك أخي العزيز .. لو تكرمت حدد لي الخلايا التي تريد لها ما ذكرته .. لأن لديك نماذج كثيرة .. ما شاء الله 🙂

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

الملف يشتغل معي بدون مشاكل .. لذلك أعتقد أن المشكلة بسبب إعدادات اللغة بجهازك ، ولحلها اتبع الخطوات التالية : في Windows 10 : انقر فوق الزر ابدأ، ثم انقر فوق لوحة التحكم. انقر فوق "تغيير تنسيقات التاريخ أو الوقت أو الأرقام". يظهر مربع الحوار "المنطقة". على علامة التبويب "تنسيقات"، حدد اللغة العربية (دولتك ) من القائمة المنسدلة. من علامة التبويب "إداري" من تغيير الإعدادات المحلية للنظام تختار العربية ( دولتك ). تعيد تشغيل الكمبيوتر ، وبإذن الله تنحل المشكلة. أو انظر الشرح هنا : https://www.youtube.com/watch?v=sTICO0bsJs8

تستخدم النموذج لإدخال وتصفح وتعديل البيانات .. مربع النص العلوي [افتح رقم الملف] هو مربع بحث عن أي ملف تريد الوصول إليه بسرعة . عند الضغط على طباعة .. يفتح لك تقرير لطباعة الملف المفتوح في التقرير ..

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

كل ما ستحتاجه هو نموذج جديد خاص بالموظفين الذين هم في الأرشيف .. وقد عملته لك .. كان هناك أخطاء في عمل الروابط في عدة نماذج وأصلحتها لك حسب الاستطاعة 🙂 nabilDatabase23.accdb

هل هذا ما تريده أخي العزيز ؟ مربع نص تكتب فيه تاريخ النهاية وآخر يحسبلك المدة بينهما بالأيام وزر طباعة يفتح لك استعلام بالتحاليل التي أخذت أكثر من 5 أيام ، يمكنك تحويلها لتقرير . 2019-01 - 22.rar

تم التعديل أخي العزيز كما فهمت منك .. طبعا مع بداية السنة الجديدة سيبدأ الترقيم من الواحد من جديد مع تغيير السنة الجديدة ولو حذفت جميع السجلات وبدأت من جديد .. أيضا سيبدأ من 1/2022 FO4.mdb