السبيل1

Up

اخى لا تفتح عندي لانه نواه ٣٢ بيت وانا لدى ٦٤ بيت

كنت آمل ايجادها بالاكسس ولكن مفيش نصيب سأحاول تجربة تطبيق المحمول شكرا للاهتمام والايجابية

شكرا لاهتمام حضرتك نظرا لقضاء وقت طويل وبشكل يومى أمام الحاسب يحتاج كل واحد منا لتغيير العديد من الأمور حفاظا على الصحة فالمطلوب هو برنامج يتم عمله مع تشغيل الحاسب بحيث يصدر شاشة تنبيه في وسط الشاشة أو من خلال شريط المهام للويندوز للتذكير بهذه الأمور الضرورية والمهمة حسب مدد زمنية مختلفة وبشكل متكرر كل مدة مادامت الجلسة طويلة مثال: التذكير أو التنبيه برسالة كل 20 دقيقة بإراحة العين التذكير برسالة كل 30 دقيقة بالحفاظ على وضعية الجلوس التذكير كل 45 دقيقة بتحريك الرقبة في اتجاهات متعددة التذكير كل 60 دقيقة بالقيام والحركة بالسير في الغرفة أو المكتب وهكذا ويحبث يمكن التعديل علة مضمون الرسالة ومدة ظهورها وتكرارها وزيادتها

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

السلام عليكم أبحث من خلال الاكسيس عن برنامج يقوم بإظهار رسائل لتنبيهات نصية لأمور حياتية مختلفة في الوقت والمضمون وبحيث يمكن تعديل مضمون نصوصها ووقتها عند الحاجة لذلك

هذه هي محاولتي لمحاكاة إنشاء الفنكشن المطلوب ولكن بلا فائدة فهل أجد مساعدة ناجزة 'Public Sub ReportAbilities(RprtName As String) Function FunModulePermissions1() 'With MyUser With CodeContextObject If DCount("ID", "Tbusers", "deCode([UName],'User')='" & Trim(User) & "'") = 0 Then MsgBox " لا تملك الصلاحيات للدخول ", vbCritical + vbMsgBoxRight, "تنبيه" DoCmd.CancelEvent 'If .GetAbility(RprtName, OpenForm) Then 'ContinueCode = True If CurrentProject.AllReports("FrmMain").IsLoaded = False Then .AllowAdditions = False .AllowEdits = False .AllowDeletions = False Else If (Reports!Frmmain!UAddData = False) Then .AllowAdditions = False End If If (Reports!Frmmain!UEditData = False) Then .AllowEdits = False End If If (Reports!Frmmain!UDeleteData = False) Then .AllowDeletions = False End If End If End If Macro1_Exit: Exit Function 'Else 'MsgBox "عفواً " & .UserName & " " & vbCr & vbCr & "ليس لديك الصلاحية لمعاينة هذا التقرير ", 0 + 16 + 1572864, "نظام الصلاحيات" 'ContinueCode = False 'DoCmd.Close acReport, RprtName 'End If End With End Function

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

استاذ @ناقل ملاحظة صغيرة علي الكود ظهرت معي الان ولم انتبه لها من قبل وهي أنه في كل مرة يفتح فيها نموذج الدخول يضاف الاسم تلقائيا مجددا بنفس عدد مرات فتح النموذج وهذا خطأ يحتاج للتعديل بحيث يضيف البيانات لمرة واحدة فقط ولا يكررها في كل مرة يفتح فيها النموذج

تمام أي أجعل المعيار لقبول وجود هذه العبارة من عدمها هو إجراء الـ Compile علي الأكواد وقبوله لها دون ظهور خطأ يخصها

ارجو منك تكرما استاذ @jjafferr إطلاله سريعة بعين المبرمج الخبير علي موضوعي هذا لأنه يحتاج لعين مبرمج خبير وشكر

ولكن أيهم أصح ؟ وما الأسس التي تكون بمثابة معيار لهذا الصح ؟؟ فربما يؤدي كود ما المطلوب منه حاليا ولكن في الأمام مع تعاظم البيانات مثلا تحدث مشكلة كان يمكن تلافيها من البداية إذا علمنا معيار هذا الصح ؟؟؟! بالطبع حضرتك لم تقصر في إجابتك بل كانت مستفيضه ولكن بالبلدي كده علشان أعرف أني فهمت صح وملخبتش الدنيا (أي نموذج أيا كان نوعه سواء مستمر أم مفرد رئيسي أم فرعي إذا توافر فيه حركة (إضافة أو تعديل أو حذف) نضع فيه هذه العبارة Option Explicit والم يكن كذلك فلا نضعها فهل ذلك صحيح)

ولمزيد من التوضيح لمن أراد هذا كود لعمل صلاحية للتقارير في أحد أنظمة الصلاحيات Public Sub ReportAbilities(RprtName As String) With MyUser If .GetAbility(RprtName, OpenForm) Then ContinueCode = True Else MsgBox "عفواً " & .username & " " & vbCr & vbCr & "ليس لديك الصلاحية لمعاينة هذا التقرير ", 0 + 16 + 1572864, "نظام الصلاحيات" ContinueCode = False DoCmd.Close acReport, RprtName End If End With End Sub والمطلوب إنشاء كود مماثل لعمل صلاحية للتقارير ولكن علي الموديول المرفق صلاحيات.accdb

طيب إذا وجد من لديه نية للمشاركة ولكن وجد خطأ ما أو شيء ما غامض او ملتبس في المطلوب فليخبرنا حتي نزيل ذلك بمزيد من التوضيح

للرفع اريد إضافة علي كود فنكشن الصلاحيات لإعطاء صلاحية للتقارير كما للنماذج

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

للرفع

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

عذرا أخي الاستاذ @سامي الحداد للعودة مرة أخري كل النماذج تعمل تمام إلا نموذج واحد وهو أهمهم النموذج FrmMain هو الوحيد الذي لا يعمل معه كود الصلاحية وضعته تقريبا في كل احداث دون جدوي

استكمالاً للموضوع علي هذا الرابط لدي سؤال جديد هل موديول مثال هذا الموضوع المسمي Permission يصلح للتطبيق علي التقارير أيضا كما صلح تطبيقه علي النماذج أم سيحتاج لإضافة جديدة بفنكشن جديد

ما شاء الله أستاذ @سامي الحداد سلمت يداك هذا ما كنت أسعي لإنجازه جزاك الله خيرا

سأكون الانتظار وشكر لمجهودك الطيب

أستاذ @سامي الحداد شكر علي مداخلتك الإيجابية أين أضع الكود الذي ساهمت به هل داخل المويول Permissions (حسب ما أرغب) أم في حدث عند الفتح لأي نموذج للتجربة ؟

للرفع

استاذ @د.كاف يار هل يمكن وضعه كما هو في المديول Permissions بحقق نفس الغرض عند استدعائه داخل النماذج والتقارير من خلال الكود Call FunModulePermissions فقط ملاحظة هامة أخري أستاذ @د.كاف يار عند تجربة أخر كود لحضرتك علي المثال أيضا عند الضغط علي موافق تختفي الرسالة ويفتح النموذج عادي رغم وجود الكود داخل هذا النموذج في حدث عند الفتح