السبيل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

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

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