kkhalifa1960

تفضل استاذ @بلال اليامين طلبك حسب مافهمت بتقريرك .... وتقريري . Belal_Yamen.accdb

مشاركة مع استاذ @Foksh تفضل طريقتي يمكن تفيدك .... Database6.rar

اعتذاري تفضل الملف الصحيح . Emad.85-1.rar

لا تعليق لديا !!!!!!!!!!!!

تفضل المرفق بعد التعديل بطلبك . ولا تنسى تمت الاجابة Bader770-1.rar

النصيحة ياتمشي بطريقة استاذنا @ابو جودي وتكمل .............. أو بطرقتي وتكمل اختار لك طريقة .

تفضل استاذ @Emad.85 طلبك حسب ما فهمت .اليك الشرح والمرفق . ولو حابب توسع النماذج ارفقها وأنا حاضر . ووافني بالرد . Emad.85.rar

تفضل استاذ @Abdelaziz Osman 'طلبك حسب ما فهمت . اختار الاوردر من النموذج ثم افتح التقرير من الزر وطالع التقرير. ووافني بالرد . اليك المرفق بطلبك. quirytreble-1.rar

طلبك غير مفهوم .... ارفع مرفقك موضحاً عليه طلبك ..............

استاذ @moho58 برفق اليك مرفق من أعمال استاذنا @ابو جودي انا شخصياً بستعمله . ملاءمة عناصر النموذج حسب حجم النموذج.rar

استاذ @checles تفضل المرفق بعد اضافة نموذج الادخال . checles-1.rar

ممكن تذكر كيف سيحدث الجدول من جدول آخر بدون استعلام تحديث سوا كان استعلام تحديث يدوي أو استعلام من داخل حدث كما عند غلق نموذج الادخال أو أي نموذج آخر

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

في هذه الحالة استخدم طريقة استاذنا @ابوخليل كما اشار اليك استاذ @Foksh واذا محتاج شئ أو تعديل اكتب ما تريده هنا وهو انشاء الله سيرد عليك .

اعتذاري استاذ @منتصر الانسي لم انتبه لمداخلتك .

مشاركة مع استاذي @ابوخليل تفضل استاذ @checlesمحاولتي . واذا كان لديك نموذج لادخال البيانات وتريد تحديث الجدول فعند الخروج من النموذج Private Sub Form_Close() On Error GoTo ErrorHandler Dim db As Database Set db = CurrentDb ' تشغيل استعلام التحديث db.Execute "UPDATE SAW SET SAW.Slabs_in_Bundle = GetTotalSlabs(Block_NO) " & _ "WHERE (((SAW.Block_NO) Is Not Null And (SAW.Block_NO)<>''))" MsgBox "تم تحديث Slabs_in_Bundle لجميع السجلات بنجاح!", vbInformation, "تحديث البيانات" Exit Sub ErrorHandler: MsgBox "حدث خطأ أثناء التحديث: " & Err.Description, vbCritical, "خطأ" End Sub checles.rar

تفضل هذا الكود مهما كان الهوامش . DoCmd.OpenReport "اسم_التقرير", acViewPreview DoCmd.PrintOut acPages, 1, 1

استاذنا الكبير @منتصر الانسي لم تفوتني لأن صاحب الطلب لم يحدد . .... ولم يتفاعل للاسف . تحياتي لك .

🎯 الفكرة الأساسية الفصل يعني أن يكون لديك ملف قاعدة بيانات (Back-End) يحتوي فقط على الجداول والاستعلامات. وملف آخر (Front-End) يحتوي على النماذج، التقارير، الأكواد (Modules). المستخدمون يتعاملون مع الـ Front-End فقط، بينما الجداول تبقى في الـ Back-End. 🛠️ خطوات الفصل إنشاء ملف Back-End افتح قاعدة البيانات الأصلية. من قائمة Database Tools → Move Data → Access Database. سيقوم Access بإنشاء ملف جديد يحتوي على الجداول فقط. إنشاء ملف Front-End احتفظ بالملف الأصلي كـ Front-End. بعد عملية الفصل، ستجد أن الجداول أصبحت "Linked Tables" مرتبطة بالـ Back-End. الربط (Linking) من الـ Front-End، اذهب إلى External Data → Linked Table Manager. اختر الجداول المراد ربطها وحدد موقع ملف الـ Back-End. Access ينشئ جداول مرتبطة (Linked Tables) بنفس الأسماء، لكن أي تعديل أو إدخال بيانات يتم تخزينه في الـ Back-End. ⚡ ملاحظات مهمة الاستعلامات: إذا كانت الاستعلامات بسيطة (Select)، يمكن أن تبقى في الـ Front-End. أما الاستعلامات المعقدة أو التي تعتمد على حجم بيانات كبير، يفضل نقلها إلى الـ Back-End لتحسين الأداء. الأمان والصيانة: بهذه الطريقة، إذا أردت تحديث النماذج أو الأكواد، توزع نسخة جديدة من الـ Front-End فقط، دون المساس بالبيانات. يمكن وضع الـ Back-End على شبكة مشتركة (Shared Folder) ليستخدمه أكثر من موظف. إعادة الربط التلقائي: يمكنك كتابة كود VBA صغير في الـ Front-End يقوم بالتحقق من وجود الـ Back-End وإعادة الربط تلقائيًا إذا تغيّر المسار. هذا يحل مشكلة اختلاف المسارات بين الأجهزة. 🔑 مثال كود VBA لإعادة الربط Function RelinkTables() Dim db As DAO.Database Dim tdf As DAO.TableDef Dim strPath As String strPath = "C:\Data\MyBackend.accdb" ' مسار ملف الـ Back-End Set db = CurrentDb For Each tdf In db.TableDefs If Len(tdf.Connect) > 0 Then tdf.Connect = ";DATABASE=" & strPath tdf.RefreshLink End If Next tdf MsgBox "تم إعادة ربط الجداول بنجاح!" End Function ✨ بهذه الطريقة يصبح عندك فصل واضح بين البيانات و الواجهة، مما يسهل الصيانة، التوزيع، والتحكم في الأمان. واليك مرفق استاذنا @at_aziz ليوضح لك عملية اعادة الربط . Aziz-1.rar

تفضل استاذ @بلال اليامين المرفق بعد التعديل. لكني انا مابحب اخزن المسار انا بخزن اسم الصورة وامتدادها واستدعيها حتى لو غيرت الكمبيوتر لو تحب .وافني بالرد . البرنامج_2.rar

هل تريد نوبات (ورديات) أم حركة كما كتبت بالجدول ؟؟؟؟؟

تفضل استاذ @dd13901390 تعديل الماكرو بالصورة .

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

تفضل استاذ @bader770 محاولتي حسب مافهمت اليك المرفق اليوزر (Bader) والباس (770) وباسوورد الشفت (tariq1991). ويوجد تقرير دخول وخروج المستخدمين . واي استفسار أو تعديل وافني بالرد . Bader770-1.rar

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