Foksh

أعتذر عن التأخير والمتابعة بسبب ظرف صحي . أخي @salah.sarea و الأخ @kamelnet5 على العموم يا صديقي بعد التركيز في مشاركتي السابقة يبدو أنني قد توجهت بشكل خاطئ للمطلوب . القاعدة المقسمة والمرتبطة بقاعدة بيانات الواجهة الرئيسية ( الأمامية ) لا بد من أنها ترتبط مع الجداول دون أن تقوم بإدخال الباسوورد بشكل يدوي كل مرة هل هذا صحيح ؟؟ وعليه وإن كان / أو لم يكن هناك كلمة مرور لقاعدة بيانات الجداول جرب هذا المرفق يعمل معي بكفاءة . وهذا كود الدالة :- Public Function compactDb(ByVal mydb As String, ByVal mypass As String, Optional openIt As Boolean = False) Dim f As Integer Dim filenoext As String, extension As String, Access As String Access = """" & SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE""" filenoext = Left(mydb, InStrRev(mydb, ".")) extension = Right(mydb, Len(mydb) - InStrRev(mydb, ".")) f = FreeFile Open CurrentProject.Path & "\compact.bat" For Output As f Print #f, "CHCP 1256" Print #f, ":checkldb1" Print #f, "if exist """ & filenoext & "l" & extension & """ goto checkldb1" Print #f, Access & " """ & mydb & """" & mypass & " /compact" If openIt Then Print #f, ":checkldb2" Print #f, "if exist """ & filenoext & "l" & extension & """ goto checkldb2" Print #f, Access & " """ & mydb & """" Else Print #f, "del ""%~f0""" End If Close f End Function Public Function CopactMyDb() On Error Resume Next Dim Mypath As String Mypath = CurrentProject.Path & "\" & CurrentProject.Name Call compactDb(Mypath, "", True) Shell """" & Left(Mypath, InStrRev(Mypath, "\")) & "\compact.bat""", 0 DoCmd.Quit acQuitSaveAll End Function ويتم الإستدعاء في أي زر = CopactMyDb Compact.accdb

اعتذر عن التأخير في المتابعة بسبب ظرف صحة

اعتذر عن التأخير في المتابعة بسبب ظرف صحة

اعتذر عن التأخير في المتابعة بسبب ظرف صحة

وعليكم السلام ورحمة الله وبركاته اخي @salah.sarea . ضع هذا الكود في حدث عند النقر لزر الإصلاح ، مع تحديد مسار قاعدة البيانات B_Be حسب ما تريد . Private Sub btnRepair_Click() Dim strConnect As String Dim strPassword As String strPassword = "123" strConnect = "MS Access;PWD=" & strPassword & ";DATABASE=path_to_b_be.accdb" Application.CompactRepair SourceFile:="path_to_b_be.accdb", DestinationFile:="path_to_b_be.accdb", _ Password:=strPassword MsgBox "تم إصلاح قاعدة البيانات بنجاح!", vbInformation End Sub طبعا على افتراض أن اسم الزر btnRepair.

لا أعتقد أن الحذف خطوة جيدة 🤔 إلا اذا كانت السجلات وبياناتها غير مهمة ومفيدة حسب المشروع. ثم ماذا لو كانت اكثر من سجلين 🧐 هل أيضاً سيتم الاستغناء عنها في حال كان احد الحقول غير فارغ مكرراً !!

ما شاء الله عليك أخي @طير البحر ، سأستمتع بلمساتك والتعديلات غداً إن شاء الله 🤗 بالنسبة لهذا الطلب فهو من صلاحيات الأساتذة - لا الحصر - أذكر منهم:- @Moosak و @jjafferr و معلمنا الفاضل اعاده الله من سفره سالما غانماً @ابوخليل ... والكثيرين الذين نسعد بوجودهم معنا من إدارة المنتدى 🥰.

الحقيقة اليوم إجازة فعلاً ده من جهة ، ومن جهة تانية انا دخت بعد ما قرأت مشاركتك السابقة والحقيقة ما فهمتش كتير يعني 😬 ، شكلي بعد الغدا مخي استوعب انه اليوم إجازتي 😅

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

تمام .. اذا نفس الفكرة تابع وشاركنا أفكارك وخبرتك

بمعنى آخر (البيع - مرتجع البيع)/ الكمية + (الشراء - مرتجع الشراء )/ الكمية هل هذه المعادلة صحيحة ؟

يعني المشكلة في احتساب القطاعي ؟؟؟

نفس الفكرة ، إلا إذا اختلفت صلاحيات المسؤولين حينهم سيكون العمل أوسع بكثير ، طبعاً بالتسلسل حسب صلاحيات المسؤولين 🤔

للأسف لم أواجه مثل هذه المشكلة ، ولكن جرب حذف الأوفيس وإعادة تثبيته مرة أخرى ، عل المشكلة في التحديثات الجديدة 🤔 وجهة نظر

الخير والبركة فيكم يا صديقي.. طبعاً حسب ما تصورت الفكرة من كلامك سيكون هناك واجهة للجداول وتكون مشتركة بين المدير له واجهة نماذج والمسؤول 1 له واجهة اخرى . وكلاهما سيشترك في الجداول المخصصة له مع فكرة التنبيه لكل طرف منهم بوجود إشعار أو كتاب يحتاج للموافقة أو الرد .

اللهم آمين يا رب العالمين 🤗 ، ولك نصيب مثلما دعيت لي وأكثر 😊 اشرح لي كيف تريد آلية الحساب للجملة والقطاعي !!

جهودك إزاي ، طمني 😉

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

🤔 اتوقع ممكن التوسع في الفكرة

هذا هو المطلوووووب 🤝

نعم تقدر أيضاً أعتقد ممكن تحقيق ذلك.

😅 الإجابة على ما تفضلت به أخي @Zooro1 في السؤال ، هي نعم . أمااا في التفاصيل الباقية فهي ممكنة إلى حد ما .

وكملاحظة لم اقم بتعديلها وتركتها لك لاكتشافها 😉 1. إيقاف قوائم اكسيس ، وإيقاف القوائم المختصرة تعمل بالعكس 2. ستجد بعض رسائل الخطأ قد ظهرت وتحتاج الى تلافيها حسب الكود الخاص بك ، فلم أطلع كثيراً على تسلسل الأحداث في الأكواد بتمعن 😊

اخي الكريم @اشرف السيد يوسف ، قم بما يلي :- انشئ استعلام وقم باختيار الجدول Table1 ، ثم قم بإضافة جميع الحقول ( الاسم ، العمل1 ، العمل 2 ..... إلخ ) . ثم اعمل تجميع واجعل جميع الحقول MAX باستثناء حقل الاسم اتركه Group By. وهذا مثالك أيضاً مرفق.accdb 🤗

اخي الكريم @طير البحر ، أرجو ان تقبل هذه التعديلات التي أجريتها والتي لم تمس الوظائف في مشروعك ، وإنما اعتبرها لمساتي بطريقتي المتواضعة 🤗 اولا تم توظيف كود Restart بحيث يتم تنفيذه اذا تم التعديل على الوظائف التي أشرت إليها بصورة 💡 - باستخدام ميزة الـ Tag - والتي تتطلب إعادة التشغيل للبرنامج وذلك بإضافة وظيفتين في نموذج dboptions واحدة عند الفتح والأخرى يتم استدعائها عند تنفيذ الزر تطبيق . فإذا لم يتم تغيير اي من هذه الوظائف التي تتطلب إعادة التشغيل فسيتم تطبيق كودك بشكل عادي كالسابق ، أما اذا تم تغيير اي قيمة فسيطلب منك اعادة التشغيل للبرنامج. بالاضافة الى اجراء إضافة بسيطة في مديول myoptions وذلك بتغيير قيمة gogo في الجدول وإعادتها إلى True في حال تم تغييرها الى False قبل تنفيذ إعادة التشغيل للبرنامج وذلك حتى لا يتم التأثير على عموم الكود الخاص بك . الق نظره واخبرني بالنتيجة 🤗 New_Options.accdb