kkhalifa1960

المشكلة ان الطلب غير مفهوم بالمرة هل تريد ترقيم الكل ام المعمل فقط والترقيم يسلسل من 55001 حتى القديم أم على تسلسل الارقام (Esal)

ابشر جاري العمل .................................

استاذنا @منتصر الانسي طبعاً لا تفوتنا وبما ان الطالب مصري فالدرجات بمصر أقل من أوتساوي التاسعة على ما أذكر . ولو الطالب عاوز انا حاضر .................. تفضل . الشرح والمرفق بعد التعديل .ووافني بالرد. ahmad2026-111.rar

معنى كلامك انت لاتبغي تصدير فقط استيراد؟؟؟

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

لو تقصد الحقل الثاني محسوب بالجدول مايصير .......... أما من خلال نموذج فممكن وكما اشار اليك استاذ @ناقل ..................... تفضل الشرح والمرفق . ووافنا بالرد . ahmad2026.rar

تفضل @jo_2010 اليك المرفق والشرح ... اذا نموذج مستمر استخدم الاستعلام لجلب القيم الجديدة واذا نموذج سنجل ممكن كما وضعت الكود على الحقل الجديد . ووافني بالرد . Jo_Lab.rar

عملت بعض التعديلات خصوصاً للتقارير .. والبرنامج يعمل لديا بدليل الشرح التالي . وايضاً اليك المرفق بعد التعديل . SaadPermissionsLast-3.rar

بعد اذن الاساتذة اسمحولي تفضل استاذ @2saad المرفق بعد التعديل . ووافني بالرد . واذا راق لك . وافني بالرد كي اشرح لك التفاصيل . SaadPermissionsLast-2.rar

ممكن اقتراح ياجو خلي الترقيم حسب السنة والشهر والرقم (001-01-2026) بكده بيكون لديك حقل واحد للترقيم بدلاً من 3 حقول وايضاً ممكن الرقم يكون رقم (PCode) هل تريد ذلك ؟ أم كما انت . وافني بالرد بما تريد .

يعني بعد تعبي ومجهودي تضع تمت الاجابه لديك !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

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

تفضل التعديل والشرح . SaadPermissionsLast-1.rar الشرح.rar

تفضل استاذ @amenbkr اليك المرفق ..... اكتب كلمة البحث ثم انتر وهو سيبحث بالحقول الستة كما بالشرح . ووافني بالرد . 2008_2.rar

لا لا لكن لو عاوز يظهر ترحيب بالمستخدم ممكن نفعله

تفضل استاذ @2saad الشرح والمرفق . وعيدكم مبارك ...... ووافني بالرد . الشرح.rar SaadPermissionsLast.rar

تفضل استاذ @رشبد اليك مرفقك ونموذجان كما بالشرح . ووافني بالرد . اخفاء و اظهار.rar

تقبل الله صيامكم وقيامكم وكل عام وانتم بخير . الله أكبر الله أكبر لاإله إلا الله ....... الله اكبر الله اكبر ولله الحمد

هل تريد تسجيل دخول وخروج مستخدم النظام بجدول وعمل تقرير حسب المستخدم أو بين تاريخين أو كما تريد ؟

انشاء الله سأكمل ولكن الصبر

استاذ @2saad جرب المرفق ومعه الشرح . واذا عجبك سأنسق وأعدل وأمحو الغير مطلوب حسب طلبك بالضبط .............. ووافني بالرد . الشرح من هنا https://www.mediafire.com/file/im7x8ocnv9e1uxk/205.gif/file SaadPermissions.rar

اتفضل نتاج عملي أمس بالمرفق . RetirementDate.rar

فهمت طلبك لكن اعطني مهلة لباكر انشاء الله .

1- Access Runtime 2023 (32-bit): ابحث في موقع مايكروسوفت عن: Download Microsoft Access Runtime 2023 32-bit 2- سطبه واعد تشغيل الكمبيوتر ثم اتبع التالي :- كما بالشرح . 3- حمل المجلد (RetirementDate) على فلاشة واذهب لكمبيوتر ليس عليه أوفيس وسطب (setup.exe) وبيعمل معك البرنامج بعون الله . ووافني بالرد .

انشئ موديول (ModRelinkTables) . وضع به الكود التالي :- Option Compare Database Option Explicit Public Function RelinkTables() Dim db As DAO.Database Dim tdf As DAO.TableDef Dim strOldPath As String Dim strNewPath As String Dim fDialog As Office.FileDialog Set db = CurrentDb ' افحص أول جدول مرتبط لمعرفة المسار القديم For Each tdf In db.TableDefs If Len(tdf.Connect) > 0 Then strOldPath = Mid(tdf.Connect, InStr(tdf.Connect, "DATABASE=") + 9) Exit For End If Next ' لو الملف مش موجود If Dir(strOldPath) = "" Then MsgBox "الملف غير موجود، اختر مكانه الجديد." ' افتح مربع اختيار ملف Set fDialog = Application.FileDialog(msoFileDialogFilePicker) With fDialog .Title = "اختر ملف قاعدة البيانات الجديدة" .AllowMultiSelect = False If .Show = -1 Then strNewPath = .SelectedItems(1) Else MsgBox "لم يتم اختيار ملف." Exit Function End If End With ' حدث روابط الجداول For Each tdf In db.TableDefs If Len(tdf.Connect) > 0 Then tdf.Connect = ";DATABASE=" & strNewPath tdf.RefreshLink End If Next MsgBox "تم تحديث الروابط بنجاح." End If End Function المكتبات المطلوبة: Microsoft DAO 3.6 Object Library أو Microsoft Office xx.0 Access Database Engine Object Library (لتعريف DAO.Database و DAO.TableDef) Microsoft Office xx.0 Object Library (لتعريف Office.FileDialog) Microsoft Access xx.0 Object Library (مفعّل تلقائياً) ملاحظات: استخدم Option Explicit عشان يجبرك على تعريف كل المتغيرات، وده بيمنع أخطاء وقت التشغيل. الكود بيستخدم DAO و Office بشكل صريح، فلو المكتبات مش مفعّلة هتظهر لك رسالة خطأ واضحة بدل ما يشتغل بشكل غير متوقع. تقدر تستدعي الدالة RelinkTables في حدث On Load للنموذج الرئيسي أو في ماكرو AutoExec.