بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
2,155 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
78
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو Foksh
-
اريد عمل ضغط واصلاح قاعدة بيانات اكسس خارجية
Foksh replied to salah.sarea's topic in قسم الأكسيس Access
أعتذر عن التأخير والمتابعة بسبب ظرف صحي . أخي @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 -
اعتذر عن التأخير في المتابعة بسبب ظرف صحة
-
الرصيد التراكمى للـ (شرا ء ـ بيع ـ مرتجع شراء ـ مرتجع بيع) جملة وقطاعى
Foksh replied to الحلبي's topic in قسم الأكسيس Access
اعتذر عن التأخير في المتابعة بسبب ظرف صحة -
تعديل التقرير وترتيبه من المبلغ الاكبر الي الاصغر
Foksh replied to ابوالعزائم's topic in قسم الأكسيس Access
اعتذر عن التأخير في المتابعة بسبب ظرف صحة -
اريد عمل ضغط واصلاح قاعدة بيانات اكسس خارجية
Foksh replied to salah.sarea's topic in قسم الأكسيس Access
وعليكم السلام ورحمة الله وبركاته اخي @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. -
سؤال : هل يمكن دمج السجلات في الجدول، بهذه الطريقة ؟
Foksh replied to اشرف السيد يوسف's topic in قسم الأكسيس Access
لا أعتقد أن الحذف خطوة جيدة 🤔 إلا اذا كانت السجلات وبياناتها غير مهمة ومفيدة حسب المشروع. ثم ماذا لو كانت اكثر من سجلين 🧐 هل أيضاً سيتم الاستغناء عنها في حال كان احد الحقول غير فارغ مكرراً !! -
ما شاء الله عليك أخي @طير البحر ، سأستمتع بلمساتك والتعديلات غداً إن شاء الله 🤗 بالنسبة لهذا الطلب فهو من صلاحيات الأساتذة - لا الحصر - أذكر منهم:- @Moosak و @jjafferr و معلمنا الفاضل اعاده الله من سفره سالما غانماً @ابوخليل ... والكثيرين الذين نسعد بوجودهم معنا من إدارة المنتدى 🥰.
-
الرصيد التراكمى للـ (شرا ء ـ بيع ـ مرتجع شراء ـ مرتجع بيع) جملة وقطاعى
Foksh replied to الحلبي's topic in قسم الأكسيس Access
الحقيقة اليوم إجازة فعلاً ده من جهة ، ومن جهة تانية انا دخت بعد ما قرأت مشاركتك السابقة والحقيقة ما فهمتش كتير يعني 😬 ، شكلي بعد الغدا مخي استوعب انه اليوم إجازتي 😅 -
سؤال : هل يمكن دمج السجلات في الجدول، بهذه الطريقة ؟
Foksh replied to اشرف السيد يوسف's topic in قسم الأكسيس Access
اخي @اشرف السيد يوسف ، ارجو منك الإهتمام بعنوان الموضوع اولاً ، ثم اذا كان هذا الطلب يتبع موضوع سابق استكماله في المشاركة الأصلية لك لتحقيق النتيجة المطلوبة التي تريدها 🤗 ولأني خارج المنزل حالياً لم أكمل معك طلبك السابق. اتمنى أن تجد الحل من أحد الإخوة والأساتذة 🥰 -
تمام .. اذا نفس الفكرة تابع وشاركنا أفكارك وخبرتك
-
الرصيد التراكمى للـ (شرا ء ـ بيع ـ مرتجع شراء ـ مرتجع بيع) جملة وقطاعى
Foksh replied to الحلبي's topic in قسم الأكسيس Access
بمعنى آخر (البيع - مرتجع البيع)/ الكمية + (الشراء - مرتجع الشراء )/ الكمية هل هذه المعادلة صحيحة ؟ -
الرصيد التراكمى للـ (شرا ء ـ بيع ـ مرتجع شراء ـ مرتجع بيع) جملة وقطاعى
Foksh replied to الحلبي's topic in قسم الأكسيس Access
يعني المشكلة في احتساب القطاعي ؟؟؟ -
نفس الفكرة ، إلا إذا اختلفت صلاحيات المسؤولين حينهم سيكون العمل أوسع بكثير ، طبعاً بالتسلسل حسب صلاحيات المسؤولين 🤔
-
للأسف لم أواجه مثل هذه المشكلة ، ولكن جرب حذف الأوفيس وإعادة تثبيته مرة أخرى ، عل المشكلة في التحديثات الجديدة 🤔 وجهة نظر
- 1 reply
-
- 1
-
الخير والبركة فيكم يا صديقي.. طبعاً حسب ما تصورت الفكرة من كلامك سيكون هناك واجهة للجداول وتكون مشتركة بين المدير له واجهة نماذج والمسؤول 1 له واجهة اخرى . وكلاهما سيشترك في الجداول المخصصة له مع فكرة التنبيه لكل طرف منهم بوجود إشعار أو كتاب يحتاج للموافقة أو الرد .
-
الرصيد التراكمى للـ (شرا ء ـ بيع ـ مرتجع شراء ـ مرتجع بيع) جملة وقطاعى
Foksh replied to الحلبي's topic in قسم الأكسيس Access
اللهم آمين يا رب العالمين 🤗 ، ولك نصيب مثلما دعيت لي وأكثر 😊 اشرح لي كيف تريد آلية الحساب للجملة والقطاعي !! -
جهودك إزاي ، طمني 😉
-
بانتظار هذا السؤال 😅 اخي المشروع ضخم الى حد ما مقارنة مع المتطلبات ، لذا يستلزم بداية إنشاء الجداول والنماذج والاستعلامات والتقارير والأكواد بلا شك . وقد يستهلك وقت كثير ، ولكن سأحاول بجهودك إنشاء الجداول أولا والتخطيط لذلك. ولكن غداً إن شاء الله سأحاول رسم الفكرة والبدء بتنفيذها معاك 😊
-
🤔 اتوقع ممكن التوسع في الفكرة
-
نعم تقدر أيضاً أعتقد ممكن تحقيق ذلك.
-
😅 الإجابة على ما تفضلت به أخي @Zooro1 في السؤال ، هي نعم . أمااا في التفاصيل الباقية فهي ممكنة إلى حد ما .
-
وكملاحظة لم اقم بتعديلها وتركتها لك لاكتشافها 😉 1. إيقاف قوائم اكسيس ، وإيقاف القوائم المختصرة تعمل بالعكس 2. ستجد بعض رسائل الخطأ قد ظهرت وتحتاج الى تلافيها حسب الكود الخاص بك ، فلم أطلع كثيراً على تسلسل الأحداث في الأكواد بتمعن 😊
-
اخي الكريم @اشرف السيد يوسف ، قم بما يلي :- انشئ استعلام وقم باختيار الجدول Table1 ، ثم قم بإضافة جميع الحقول ( الاسم ، العمل1 ، العمل 2 ..... إلخ ) . ثم اعمل تجميع واجعل جميع الحقول MAX باستثناء حقل الاسم اتركه Group By. وهذا مثالك أيضاً مرفق.accdb 🤗
-
اخي الكريم @طير البحر ، أرجو ان تقبل هذه التعديلات التي أجريتها والتي لم تمس الوظائف في مشروعك ، وإنما اعتبرها لمساتي بطريقتي المتواضعة 🤗 اولا تم توظيف كود Restart بحيث يتم تنفيذه اذا تم التعديل على الوظائف التي أشرت إليها بصورة 💡 - باستخدام ميزة الـ Tag - والتي تتطلب إعادة التشغيل للبرنامج وذلك بإضافة وظيفتين في نموذج dboptions واحدة عند الفتح والأخرى يتم استدعائها عند تنفيذ الزر تطبيق . فإذا لم يتم تغيير اي من هذه الوظائف التي تتطلب إعادة التشغيل فسيتم تطبيق كودك بشكل عادي كالسابق ، أما اذا تم تغيير اي قيمة فسيطلب منك اعادة التشغيل للبرنامج. بالاضافة الى اجراء إضافة بسيطة في مديول myoptions وذلك بتغيير قيمة gogo في الجدول وإعادتها إلى True في حال تم تغييرها الى False قبل تنفيذ إعادة التشغيل للبرنامج وذلك حتى لا يتم التأثير على عموم الكود الخاص بك . الق نظره واخبرني بالنتيجة 🤗 New_Options.accdb