رسالة توقف وحدات الماكرو

[صابر سليمان]

السلام عليكم 
اريد حل لهذه الرسالة من فضلكم 

[ابوبسمله]

وعليكم السلام

اتفضل اطلع على الرابط التالى وبع عده حلول بالاضافه الى روابط اخرى ذات صله لحل المشكله

بالتوفيق

[Moosak]

هنا شرح لحل وسبب رسالة الخطأ هذه :

https://www.thewindowsclub.com/fix-access-error-2950-unable-to-run-macro-in-access-database#:~:text=The error 2950 means that,mode%2C executable content is disabled.

تم تعديل مارس 24, 2022 بواسطه Moosak

[صابر سليمان]

شكرا جزيلا لحضراتكم .. لكن للاسف الحل لم ينجح معي 
انا هارفع الملف لحضراتكم علشان يبقي استفساري واضح 
استسفاري ان انا بصمم برنامج تسجيل اوردرات مبيعات أون لاين 
والبرنامج مرفوع علي شبكة النت ورك وفيه تقريبا 5 يوزر بيسجلوا علي البرنامج 
انا عايز أعمل حماية للاوردر بعد تسجيله حتي لا يقوم أحد المستخدمين بتعديله مره أخري 

فعملت قاعدة باستخدام دالة if لكن للاسف بتظهر رسالة كما هو موضح في الصورة وبعد الضغط علي ايقاف كافة وحدات الماكرو بيتم التعديل 
ارجو المساعدة 
شكرا لحضراتكم 

be.rar

[Moosak]

2 ساعات مضت, صابر سليمان said:

شكرا جزيلا لحضراتكم .. لكن للاسف الحل لم ينجح معي 
انا هارفع الملف لحضراتكم علشان يبقي استفساري واضح 
استسفاري ان انا بصمم برنامج تسجيل اوردرات مبيعات أون لاين 
والبرنامج مرفوع علي شبكة النت ورك وفيه تقريبا 5 يوزر بيسجلوا علي البرنامج 
انا عايز أعمل حماية للاوردر بعد تسجيله حتي لا يقوم أحد المستخدمين بتعديله مره أخري 

فعملت قاعدة باستخدام دالة if لكن للاسف بتظهر رسالة كما هو موضح في الصورة وبعد الضغط علي ايقاف كافة وحدات الماكرو بيتم التعديل 
ارجو المساعدة 
شكرا لحضراتكم 

be.rar 938.77 kB · 5 downloads

حياك الله أخي صابر ..

أين وضعت الدالة التي ذكرتها  ؟ على أي زر  ؟

 

ولدي سؤال : لماذا وضعت أمر تشغيل استعلام التحديث على جميع العناصر ؟؟ !! ألا يبدوا لك الأمر مزعجا مع الكم الهائل من رسائل تأكيد تشغيل الاستعلام ؟؟ 🙂 

ربما أوقفت تشغيل الرسائل من خيارات البرنامج عندك .. لكن تظهر عند الآخرين .

[صابر سليمان]

حياك الله اخي الكريم @Moosak

اولا  انا شاكر لحضرتك جدا علي اهتمامك بموضوعي 

بالنسبة للكود

الكود في النموذج  الرئيسيي tasgeel_invioce في حدث قبل التحديث 

أما عن  الاستعلام update في كل العناصر   .. فممكن يحصل أي تعديل في أي بند من بنود النموذج tasgeel_invioce أثناء تسجيل الاوردر أو بعد تسجيله فلازم البيانات تتحدث في النموذج الفرعي 

ممكن تبقي فيه طريقة اسهل  من كده

 حضرتك استاذنا 

واكيد هاستفاد من حضرتك 

 

 

 

 

[Moosak]

14 ساعات مضت, صابر سليمان said:

أما عن  الاستعلام update في كل العناصر   .. فممكن يحصل أي تعديل في أي بند من بنود النموذج tasgeel_invioce أثناء تسجيل الاوردر أو بعد تسجيله فلازم البيانات تتحدث في النموذج الفرعي 

أخي صابر يمكنك الاىستغناء عن وضعه في جميع العناصر بوضعه في حدث بعد التحديث للنموذج 🙂

أتمنى منك أن تزيلها وتعيد إرفاق الملف من جديد لأنها مزعجة وصعب علينا أن نتتبعها في جميع العناصر .. فأهل مكة أدرى بشعابها 😏

 

تم تعديل مارس 27, 2022 بواسطه Moosak

[صابر سليمان]

تفضل اخي الكريم 

be.rar

[Moosak]

تفضل أخي صابر ..

جرب وأخبرنا بالنتيجة 🙂 

be (1).rar

[صابر سليمان]

أخي @Moosak
زر السابق والتالي لايعمل
أنا عايز اجيب اذن سابق واعلم علي closed واشوف هيعدل علي الاذن ولا لأ 
زرار السابق لا يعمل
اسف علي تعبك معي أخي موسي

[Moosak]

تفضل يا صابر ..

be (1).rar

[صابر سليمان]

اخي الكريم الاستاذ موسي
ان لم أكن مخطئ حضرتك وضعت كود في  حدث on current بعدم التمكين من التسجيل في النموذج الفرعي 
وفي التاريخ في حدث after update بالسماح بالتعديل في النموذج الفرعي

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

[Moosak]

جرب الآن أخي صابر ..

أضفت لك زر للسماح بالتحرير محمي بكلمة مرور ..

كلمة المرور : 123456789 

ويمكنك تغييرها من حدث عند النقر للزر هنا :

Private Sub AllowEditCmd_Click()
If AllowMeEditing = False Then
    If InputBox("أدخل كلمة المرور للسماح بالتعديل", "خاص بالإدارة") = "123456789" Then
    Me.AllowEdits = True
    AllowMeEditing = True
    Me.sheet_on_line2.Enabled = True
    Me.AllowEditCmd.Caption = "منع التحرير"
    MsgBox "تم السماح بالتحرير", vbOKOnly, ""
    Else
    MsgBox "كلمة المرور خاطئة", vbOKOnly, ""
    Exit Sub
    End If
ElseIf AllowMeEditing = True Then
    DoCmd.RefreshRecord
    Me.AllowEdits = False
    AllowMeEditing = False
    Me.sheet_on_line2.Enabled = False
    Me.AllowEditCmd.Caption = "السماح بالتحرير"
    DoCmd.OpenForm "tasgeel_invioce"
End If
End Sub

ولمنع التحرير مجددا تضغط على نفس الزر 

be (1).rar

[صابر سليمان]

تمام يافندم  المشكلة اتحلت

الف الف  شكر  أخي موسي تعبت حضرتك معايا 

جزاك الله كل خير 

معلش انا ليا كمان سؤال لو تسمح ؟؟

[صابر سليمان]

البرنامج علي شبكة النت ورك زي ما قولت لحضرتك قبل كدة 
الفكرة ان ممكن يبقي فيه 3 او 4 يوزر بيسجلوا اوردرات في نفس الوقت علي نموذج tasgeel_invioce 
وبالتالي بيتم الضغط علي زر new order اللي بيقوم بالبحث علي اخر رقم اوردر وبيسجل اللي بعده طبقا لمعادلة في القيمة الافتراضية في order _no 
وللاسف  دايما في الحالة دي رقم الاوردر بيتكرر وبتظهر رسالة  ايقاف كافة وحدات الماكرو 
كنت دخلت وبحثت علي حل للمشكلة دي لكني لم اجد 
هل هناك كود يتعامل مع الترقيم التلقائي لأكثر من مستخدم علي الشبكة بحيث يتفادي تكرار 

شكرا

[ابوبسمله]

السلام عليكم وكل عام وانت بخير

بالنسبه للسؤال تفعيل الفاتوره وعدم تفعيلها وقد اجابك اخى الفاضل استاذ @Moosak جزاه الله خيرا

واضع لك مثال قمت بعمله لك ولكنى انشغلت ببعض الاعمال ولكن اضعه لعلك تستفيد منه بشى

ويجب وضع كود اغلاق الفاتوره مع كود حفظ الفاتوره واذا اراد المستخدم تعديل شىء فعليه الرجوع للموظف المسؤل ويكون هناك شاشه اخر للمسؤل لفتح الفواتير والتعديل عليها

بالنسبه للسؤال الثانى يرجى فتح موضوع اخر له حفاظا على قوانين الموقع

وللفائده يرجى الاطلاع ع الرابط التالى وان شاء الله تستطيع التعديل ع برنامجك كما تحب وان لم تستطع فافتح موضوع جديد

بالتوفيق

Database2.accdb

[صابر سليمان]

جزاك الله خيرا اخي الكريم @احمد الفلاحجي
الف الف شكر 
والشكر طبعا موصول لاستاذنا @Moosak
 

[Moosak]

أخي العزيز صابر .. في ورقة خصائص النموذج > بيانات > تأمين السجلات > اختر ( سجل محرر ) .

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

ولعلك تدمج معه إن شئت حل الأستاذ @jjafferr والذي أشار له الأخ العزيز @احمد الفلاحجي .