رسائل الصلاحيات

[jo_2010]

الخبراء الافاضل

عند برنامج بسيط حصلت علية من منتدنا الزاخر بالكنوز

اريد تغيير هذة الرسالة 

اليكم البرنامج للتعديل   JO كلمة السر 0   لة كل الصلاحيات

           JENA  كلمة السر 1   صلاحيات محدودة

كما اريد كود يقوم باضافة اسماء النماذج تلقائيا للجدول او استعلام 

كل نموذج اضيفة يتم اضافتة لقائمة النماذج فى الصلاحيات   لكم الشكر

صلاحيات المستخدمين.accdb

[Foksh]

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

 

 

صلاحيات المستخدمين.accdb

[jo_2010]

12 ساعات مضت, Foksh said:

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

 

 

صلاحيات المستخدمين.accdb 856 kB · 7 downloads

استاذى الفاضل Foksh

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

[Foksh]

54 دقائق مضت, jo_2010 said:

استاذى الفاضل Foksh

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

استبدل الكود التالي في الزر الخاص باسماء النماذج في النموذج M

    Dim db As Database
    Dim rs As Recordset
    Dim formName As String
    Set db = CurrentDb
    db.Execute "DELETE * FROM Frm_Nams"
    Set rs = db.OpenRecordset("Frm_Nams")
    For Each frm In Application.CurrentProject.AllForms
        formName = frm.Name
        rs.AddNew
        rs.Fields("Frm_Namo").Value = formName
        rs.Update
    Next frm
    rs.close
    Set rs = Nothing
    Set db = Nothing
    MsgBox "تم إضافة أسماء النماذج بنجاح", vbInformation

 

[jo_2010]

في 10‏/12‏/2023 at 14:27, Foksh said:

استبدل الكود التالي في الزر الخاص باسماء النماذج في النموذج M

    Dim db As Database
    Dim rs As Recordset
    Dim formName As String
    Set db = CurrentDb
    db.Execute "DELETE * FROM Frm_Nams"
    Set rs = db.OpenRecordset("Frm_Nams")
    For Each frm In Application.CurrentProject.AllForms
        formName = frm.Name
        rs.AddNew
        rs.Fields("Frm_Namo").Value = formName
        rs.Update
    Next frm
    rs.close
    Set rs = Nothing
    Set db = Nothing
    MsgBox "تم إضافة أسماء النماذج بنجاح", vbInformation

 

المعلم الجليل   FOKSH

بعد التحية بعد استبدال الكود القديم بالكود الجديد اكتشفت انة يقوم بمسح القديم واصافة اسماء النماذج بالتالى فانة يعطى للنماذج ID مختلف بالتالى اكواد الصلاحية لاتعمل لان id موجود فى الكود   شكرا

[Foksh]

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

بعد التحية بعد استبدال الكود القديم بالكود الجديد اكتشفت انة يقوم بمسح القديم واصافة اسماء النماذج بالتالى فانة يعطى للنماذج ID مختلف بالتالى اكواد الصلاحية لاتعمل لان id موجود فى الكود   شكرا

أخي وصديقي العزيز ،

أحيانا التوضيح للهدف من الطلب يكون بغاية الأهمية لتسهيل الحلول ،

على العموم ، تفضل هذا التعديل البسيط بناءً على طلبك .

Dim db As Database
Dim rs As Recordset
Dim formName As String
Dim found As Boolean

Set db = CurrentDb
Set rs = db.OpenRecordset("Frm_Nams")

For Each frm In Application.CurrentProject.AllForms
    formName = frm.Name
    
    ' التحقق من عدم تكرار الاسم قبل الإضافة
    found = False
    rs.MoveFirst
    Do Until rs.EOF
        If rs.Fields("Frm_Namo").Value = formName Then
            found = True
            Exit Do
        End If
        rs.MoveNext
    Loop
    
    If Not found Then
        rs.AddNew
        rs.Fields("Frm_Namo").Value = formName
        rs.Update
    End If
Next frm

rs.Close
Set rs = Nothing
Set db = Nothing

MsgBox "تم إضافة أسماء النماذج بنجاح", vbInformation

وأخبرني بالنتيجة ، متابع

[jo_2010]

الخبير الفاضل foksh

خالص الشكر