المساعده فى ايجاد كود لزر التنقل

[MO87]

السلام عليكم 

الرجاء المساعده فى كود 

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

عندى نموذج اريد عند التنقل بالسجل السابق او الاخير اذا كان المدير مثلا او سوبر فايزر يستطيع رؤية جميع السجلات والتنقل واذا كان مدخل بيانات يستطيع رؤية السجلات التى قام بتعبئتها فقط 

يوجد حقل فى النموذج يسجل اسم المستخدم 

ممكن نستخدم قاعده if 

نفس موضوع الصلاحيات

If. Me. Flldname =0 then 

اريد المساعده في الباقى

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

[Shivan Rekany]

قم بالتحكم والتحدید مصدر النموذج عند فتحه

اذا كان هو مدير هو بيفتحه غير مصدر النمذج الی جدول او اذا كان اللي بيفتح النموذج هو مستخدم عادي غير مصدر النموذج الی استعلام به شرط ، والشرط هو حقل المستخدمين في الجدول البيانات يساوي اسم المستخدم اللي فتح النموذج اي يساوي مستخدم الحالي

تحياتي

[MO87]

أستاذ shivan المستخدم والمدير يستخدموا نفس النموذج 

وانا عندى مصدر السجلات أنشأت استعلام كما حضرتك قولت فيظهر اسم المستخدم ولكن المدير لا يستطيع أن يشوف اى شئ لذلك انا اقترحت لو فى كود افضل

[Shivan Rekany]

4 ساعات مضت, MO87 said:

أستاذ shivan المستخدم والمدير يستخدموا نفس النموذج 

وانا عندى مصدر السجلات أنشأت استعلام كما حضرتك قولت فيظهر اسم المستخدم ولكن المدير لا يستطيع أن يشوف اى شئ لذلك انا اقترحت لو فى كود افضل

اخي الحبيب

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

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

اذا ما تقدر تعمله ، ارفق نسخة مصغرة من قاعدتك لكي نضيفه الكود

تحياتي

[MO87]

اخى شكراً على اهتمام تفضل قاعده بيانات

mm.rar

تم تعديل ديسمبر 18, 2020 بواسطه MO87
جلب مرفق

[Shivan Rekany]

2 ساعات مضت, MO87 said:

اخى شكراً على اهتمام تفضل قاعده بيانات

اتفتضل

تم اضافة هذا الكود عند فتح النموذج

Private Sub Form_Open(Cancel As Integer)
If Me.اسم__المستخدم = 1 Then
    Me.Form.RecordSource = "ادخال البيانات"
Else
    Me.Form.RecordSource = "SELECT [ادخال البيانات].ID, [ادخال البيانات].[اسم الموقع], [ادخال البيانات].الرخصة, [ادخال البيانات].النشاط, [ادخال البيانات].المنطقة, [ادخال البيانات].[حالة الموقع], [ادخال البيانات].[رقم الهاتف الارضى], [ادخال البيانات].[رقم الهاتف المتحرك], [ادخال البيانات].[اسم مسؤول الموقع], [ادخال البيانات].الايميل, [ادخال البيانات].العدد, [ادخال البيانات].[اسم  المستخدم] FROM [ادخال البيانات] WHERE ((([ادخال البيانات].[اسم  المستخدم])=[Forms]![ادخال بيانات المواقع]![اسم  المستخدم]));"
End If
End Sub

واليك قاعدتك بعد اضافة الكود

 

mm.rar

[MO87]

اولا شكرا جزيل لا اخى الكريم وبارك الله فيك عمل رائع شكرا كثير 

ولكن الان كل مستخدم اريد اعطاءه الصلاحية سوف انفذ نفس الكود عليه كنت اريد كود مبنى على جدول المستخدمين مثلا

لكى اطبق الكود على كل مشرفif forms! Login! الإدارة =0 then

[MO87]

@Shivan Rekany 

انا اسف تعبتك والله انت ما قصرت الله يبارك فيك وذادك علما. 

هل يوجد حل عند اعطاء الصلاحية من نموذج المستخدمين الى مستخدم معين يستطيع مشاهدة كل السجلات

الان مقتصر على المدير فقط 

الان احتاج نسخ الكود لكل مشرف واذا تم تغير اسم المستخدم للمشرف هيتم التعديل في الكود 

لو يوجد فكره  تكون عند اختيار الصلاحية من جدول المستخدمين 

اسف على الازعاج 

[Shivan Rekany]

في ١٩‏/١٢‏/٢٠٢٠ at 07:10, MO87 said:

@Shivan Rekany 

انا اسف تعبتك والله انت ما قصرت الله يبارك فيك وذادك علما. 

هل يوجد حل عند اعطاء الصلاحية من نموذج المستخدمين الى مستخدم معين يستطيع مشاهدة كل السجلات

الان مقتصر على المدير فقط 

الان احتاج نسخ الكود لكل مشرف واذا تم تغير اسم المستخدم للمشرف هيتم التعديل في الكود 

لو يوجد فكره  تكون عند اختيار الصلاحية من جدول المستخدمين 

اسف على الازعاج 

نفترض ان حقل ( الادارة ) في الجدول المستخدمين يوزرس هو حقل اعطاء صلاحية لكل مستخدم , اذا كان مقابل هذا الحقل لأي مستخدم يساوي علامة صح راح يظهر له كل سجلات واي مستخدم ليس له علامة صح في ذلك الحقل فقط راح يظهر له سجلات تابعه , حينئذ راح نستخدم هذا الكود

Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
If DLookup("[الادارة]", "users", "[USERNAME]='" & Me.اسم__المستخدم & "'") = True Then
    Me.Form.RecordSource = "ادخال البيانات"
Else
    Me.Form.RecordSource = "SELECT [ادخال البيانات].ID, [ادخال البيانات].[اسم الموقع], [ادخال البيانات].الرخصة, [ادخال البيانات].النشاط, [ادخال البيانات].المنطقة, [ادخال البيانات].[حالة الموقع], [ادخال البيانات].[رقم الهاتف الارضى], [ادخال البيانات].[رقم الهاتف المتحرك], [ادخال البيانات].[اسم مسؤول الموقع], [ادخال البيانات].الايميل, [ادخال البيانات].العدد, [ادخال البيانات].[اسم  المستخدم] FROM [ادخال البيانات] WHERE ((([ادخال البيانات].[اسم  المستخدم])=[Forms]![ادخال بيانات المواقع]![اسم  المستخدم]));"
End If
End Sub

واليك المرفق بعد تعديل

 

mm (1).rar

[MO87]

اخ الكريم @Shivan Rekanyشكرا جزيل لك ماشاء الله عليك الله يزيدك علما ويبارك فيك