طلب بعض الصلاحيات على برنامج

السلام عليكم ورحمة الله وبركاته

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

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

لتسهيل عملية البحث عليك ، وجدت لك عدة روابط ، ربما تستفيد منها في عملك ، وفقك الله :

1- صلاحيات للأساتذة يوسف أحمد وأبو رهف

2- صلاحيات وما إلى ذلك ، للأستاذ همام أبو عرقوب

3- صلاحيات للأخ عزيز

وهناك الكثير الكثير إذا أردت ، والسلام .

اخي hamidymom

السلام عليكم ورحمة الله وبركاته

شكراً على ردك

وبفضل الله ثم حل مشكلة اسم مستخدم وكلمة مرور

امل المساعدة في وضع زر يسمح بالتعديل بعد ادخال رقم سري ويكون الزر في نموذج البيانات

وقد تم شرحها من قبال الاستاذه زهر

كن وجهتني مشكله بتطبيق على نموذجي وشكراً

الرجاء أخي جياد ، أن ترفق قاعدة بياناتك التي عدّلت عليها باستخدام مثال الأخت زهرة ، وإن شاء الله نخدمك بعيوننا

اخي hamidymom

السلام عليكم ورحمة الله وبركاته

انا اسف على تاخرى وذلك لعطل الجهاز لدي وشاكر ردك على سؤالى

سؤالى التالى :

كيف اعمل رسالة تنبيه تظهر عند فتح البرنامج تظهر المعدات التي لم يتم استلامها ( لم يكتب اسم المستلم )

البرنامج بعد التعديل اسم المستخدم J كلمة السرى 1

وشكراً مره اخرى

جياد.rar

تكفون ياخوني لاتخلوني

السلام عليكم ورحمة الله وبركاته

أخي الكريم جياد

إليك طلبك على كيف كيفك إن شاء اله تعالى :)

عند فتح النموذج يعرض لك رسالة تقول لك مثلا:

عدد البضائع الغير مستلمة هو :...

والبضائع هي :

......................................

أما إن لم يكن هناك بضائع ستستلم ! أي لا يوجد هناك جديد فتظهر لك رسالة مفادها :

لا يوجد هناك بضاعة للتسليم

إن شاء الله يكون حسب طلبك :)

جياد.rar

تفضل اخ جياد

اتمنى ان يكون هذا ماتريد

J -1.rar

الاخ hamidymom

الاخ mrnooo2000

السلام عليكم ورحمة الله وبركاته

شاكر لكم المساعده المقدمه منكم واسئل الله ان ينفع بعلمكم

وقد اصاب الاخ mrnooo2000 بمطلوب ولكن هل يمكن ان اجعل التنبيه يظهر بعد الصفحه الرئيسيه وقبل نموذج البيانات

واسف اذا ثقلة عليكم وشكراً مره اخرى .

أخي الكريم

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

Private Sub Form_Open(Cancel As Integer)
Dim SF As Control
With MyUser
   If .GetAbility(Me.Name, OpenForm) Then
      Me.AllowAdditions = .GetAbility(Me.Name, Add)
      Me.AllowEdits = .GetAbility(Me.Name, Edit)
      Me.AllowDeletions = .GetAbility(Me.Name, Del)
      For Each SF In Me.Controls
        If SF.ControlType = acSubform Then
            SF.Form.AllowAdditions = Me.AllowAdditions
            SF.Form.AllowEdits = Me.AllowEdits
            SF.Form.AllowDeletions = Me.AllowDeletions
        End If
      Next
   Else
      MsgBox "عفواً " & .UserName & "      " & vbCr & vbCr & "ليس لديك الصلاحية لفتح هذا النموذج", 0 + 16 + 1572864, "نظام الصلاحيات"
      Cancel = True
   End If
End With
   If DCount("[رمز التعريف]", "reminder") > 0 Then
   MsgBox "يوجد معدات لم يتم استلامها .... سيتم عرض المعدات أولا"
   DoCmd.Close
   DoCmd.OpenForm "reminder"
   End If

End Sub