كيف نفعل خانة الاختيار فى الفرعى بناءا على خانة اختيار فى الرئيسى

[الحلبي]

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

مرفق مثال صغير

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

وطبعا عند الغاء هذه الخانة تلغى جميع خانات النموذج الفرعى

تفعيل خانة الاختيار.accdbFetching info...

[شايب]

  في 28‏/6‏/2023 at 13:39, الحلبي said:

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

Expand  

خلينا نفتح الباب ربما يكون فاتحة خير وتجد الاجابة من الاساتذة والخبراء

في خانة اللختيار الاولى Check25 ضع الامر التالية

Dim rs  As DAO.Recordset
        Set rs = Me.Subformusers.Form.RecordsetClone
        rs.MoveFirst
        While Not rs.EOF
        rs.Edit
        If Me.Check25 = True Then
        rs!canopen.Value = True
        Else
        rs!canopen.Value = False
        End If
        rs.Update
        rs.MoveNext
        Wend
        rs.Close

 

هذا الامر سيعمل مع خانة الاختيار الاولى مما يتطلب تكرار الامر لبقية خانات الاختيار مع تغيير اسماء خانات الاختيار وهو عمل غير صحيح

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

ولكن كما اشرت في بداية مشاركتي هو فتح باب او بمعنى ادق تحريك للمياه

أَعْمِلْ لِرِزْقِكَ كُلَّ آلـهْ *** لاَ تَقْعُدَنَّ بِكُلِّ حَـالَـهْ

وَانْهَضْ بِكُلِّ عَظِـيَمةٍ *** فَالمَرْءُ يَعْجِزُ لاَ مَحَالَهْ

شايب 🌹

 

[الحلبي]

  في 29‏/6‏/2023 at 18:50, شايب said:

ولكن كما اشرت في بداية مشاركتي هو فتح باب او بمعنى ادق تحريك للمياه

Expand  

الله يفتح عليك استاذنا ومعملنا الغالى (بدون ذكر اسماء ) والحبيب الغالى 

لعله تكون فتحة خير على الاخوان وانا منتظر الباقى لكى يتم الكود وتنتنهى هذه المشكلة

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

[mrbakr]

ممتاز

[jjafferr]

لا يا جماعة ،

المسألة يجب ان تبدأ بالحاق في اول مرة ، ثم تحديث في المرات التالية 🙂

وكذلك فاتحة خير 🙂

[شايب]

  في 29‏/6‏/2023 at 19:19, jjafferr said:

المسألة يجب ان تبدأ بالحاق في اول مرة ، ثم تحديث في المرات التالية 🙂

Expand  

لم اتحدث عن حل وانما جزئية فقط

[jjafferr]

ايش رايك بهذا الكود على الطاير:

Dim rs  As DAO.Recordset
        Set rs = Me.Subformusers.Form.RecordsetClone
if rs.recordcount=0 then
    rs.addnew
  	
  		'هنا نضيف السجلات
  
    rs.update

else
        rs.MoveFirst
        While Not rs.EOF
        rs.Edit
        If Me.Check25 = True Then
        rs!canopen.Value = True
        Else
        rs!canopen.Value = False
        End If
        rs.Update
        rs.MoveNext
        Wend
end if
        rs.Close

 

[شايب]

  في 29‏/6‏/2023 at 19:30, jjafferr said:

ايش رايك بهذا الكود على الطاير:

Expand  

لا اعلم الحديث موجه لي او لاخي حلبي

تمام

ولكني افضل ان يكون الاضافة منفصلة

وبالنسبة لتنشيط خانات الاختيار جميعا يكون عادة لمدير النظام

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

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

 

[الحلبي]

  في 29‏/6‏/2023 at 19:50, شايب said:

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

Expand  

كلامك استاذى سليم جدا 

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

  في 29‏/6‏/2023 at 19:19, jjafferr said:

لمسألة يجب ان تبدأ بالحاق في اول مرة ، ثم تحديث في المرات التالية

Expand  

استاذنا الكبير اعتقد اننا نحتاج الى 4 (اربعة) استعلام تحديث فقط دون الالحاق 

بارك الله فيكم جميعا ونصل للحل معا

[jjafferr]

  في 29‏/6‏/2023 at 20:43, الحلبي said:

4 (اربعة) استعلام تحديث فقط دون الالحاق

Expand  

همممم

اذا جاءك مستخدم جديد ، وليس له سجلات اصلا ، فهنا ستحتاج الى استعلام الحاق (لأول مرة فقط) 🙂

[شايب]

  في 30‏/6‏/2023 at 08:05, jjafferr said:

وليس له سجلات اصلا ، فهنا ستحتاج الى استعلام الحاق (لأول مرة فقط)

Expand  

لذا ولذا فقط

اكسس قاعدة بيانات صغيرة بعدد مستخدمين محدود وحتى لو اعلنت مايكروسوفت ان عدد المستخدمين 255 مستخدم متزامن 

ومع صعوبة الوصول لهذا العدد الا ان اكثر مستخدمي اكسس يعملون من خلال مجلد مشاركة من خلال انظمة الويندوز الشخصية وهنا الحد الاقصى لعدد المستخدمين 20 مستخدم وحتى هذا الرقم يتطلب عدة امور للوصول اليه

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

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

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

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

شايب

 

[jjafferr]

  في 30‏/6‏/2023 at 08:52, شايب said:

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

Expand  

عمل واضح ، ومرتب ، وجميل 👍

 

بتوسيع الكود الاعلاه ، نحصل على :

Function chk_De_Select(ctl As Control)

    If Len(Me.X & "") = 0 Then
        MsgBox "رجاء اختيار اسم المستخدم"
        Me.X.SetFocus
        Me.X.Dropdown
        
        GoTo Exit_chk_De_Select
    End If
    
    
    Dim rs  As DAO.Recordset
    Dim ctl_N As String
    
Try_Again:

    Set rs = Me.Subformusers.Form.RecordsetClone

    ctl_N = Replace(ctl.Name, "chk_", "")
    
    If rs.RecordCount = 0 Then
        
        DoCmd.SetWarnings False
            DoCmd.OpenQuery "qry_Append_Forms"
        DoCmd.SetWarnings True
        Me.Requery
        GoTo Try_Again
        
    Else
    
        rs.MoveFirst
        While Not rs.EOF
            rs.Edit
                
                If ctl.Value = True Then
                    rs(ctl_N).Value = True
                Else
                    rs(ctl_N).Value = False
                End If
                    
                rs.Update
            rs.MoveNext
        Wend
        
    End If
        
        
Exit_chk_De_Select:

    
End Function

 

ونناديه من اي من المربعات هكذا (لاحظ اسماء المربعات لتتماشى مع اسماء الحقول) :

Private Sub chk_canAdd_AfterUpdate()

    Call chk_De_Select(Screen.ActiveControl)
End Sub

Private Sub chk_candelete_AfterUpdate()

    Call chk_De_Select(Screen.ActiveControl)
End Sub

Private Sub chk_canedit_AfterUpdate()

    Call chk_De_Select(Screen.ActiveControl)
End Sub

Private Sub chk_canopen_AfterUpdate()

    Call chk_De_Select(Screen.ActiveControl)
End Sub

 

وهذا استعلام الالحاق :

 

وللمستخدم الجديد ، انقر على اي من المربعات الاربعة ، واستمر من هناك 🙂

----------------------------------------------------------------------------------------------------------

 

ولكن نموذج الشايب لا يُعلى عليه 🙂

 

جعفر

1565.تفعيل خانة الاختيار.accdb.zipFetching info...

[شايب]

  في 30‏/6‏/2023 at 12:29, jjafferr said:

بتوسيع الكود الاعلاه

Expand  

هههههه

  في 29‏/6‏/2023 at 18:50, شايب said:

ولكن كما اشرت في بداية مشاركتي هو فتح باب او بمعنى ادق تحريك للمياه

Expand  

من قدك يا استاذ حلبي طلبنا لك فتح باب وتحريك للمياه

ورزقك الله فتح بوابات وجريان انهر

عمل رائع استاذنا وكما اشرت في اول مشاركة بدون الحاجة الى تكرار الامر

  في 29‏/6‏/2023 at 18:50, شايب said:

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

Expand  

والحقيقة اتراجع عن قولي السابق "ولكني افضل ان يكون الاضافة منفصلة"

نعم فكرتكم افضل واسهل

شايب🌹

[الحلبي]

  في 30‏/6‏/2023 at 08:05, jjafferr said:

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

Expand  

كلام صح استاذنا ولكن انا عامل استعلام الالحاق هذا فى زر لوحدة 

 

  في 30‏/6‏/2023 at 13:07, شايب said:

من قدك يا استاذ حلبي طلبنا لك فتح باب وتحريك للمياه

ورزقك الله فتح بوابات وجريان انهر

Expand  

طيب استاذى العزيز كيف التطبيق على مثالى الاول

ارجو من حضرتك او الاستاذ / جعفر التطبيق على المثال

جزاكم الله كل خير

[jjafferr]

  في 30‏/6‏/2023 at 13:48, الحلبي said:

طيب استاذى العزيز كيف التطبيق على مثالى الاول

Expand  

هذا مثالك ، مع بعض التعديل ، فيمكنك استعماله بدل مرفقك 🙂

 

  في 30‏/6‏/2023 at 13:48, الحلبي said:

كلام صح استاذنا ولكن انا عامل استعلام الالحاق هذا فى زر لوحدة

Expand  

يا سلام ، وتاركني والشايب نتناوش 😁

 

 

  في 30‏/6‏/2023 at 13:07, شايب said:

طلبنا لك فتح باب وتحريك للمياه

Expand  

في الواقع وقفت على هذا الموضوع اكثر من مرة ، ولكن مشاركتك فتحت باب الاجابة بطولها وعرضها ، شكرا لك 🙂

 

جعفر

 

[شايب]

  في 30‏/6‏/2023 at 15:20, jjafferr said:

ولكن مشاركتك فتحت باب الاجابة بطولها وعرضها ، شكرا لك

Expand  

الاخ شايب يقول : الشكر لله استاذي ثم لكم فانتم اساتذتنا ومنكم تعلمنا الكثير 🌹

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

 

[الحلبي]

  في 30‏/6‏/2023 at 15:20, jjafferr said:

هذا مثالك ، مع بعض التعديل ، فيمكنك استعماله بدل مرفقك 🙂

Expand  

استاذ جعفر لا تؤخذنى 

اين هذا المثال الذى به الحل معلش انا لم اعثر عليه

جزاكم الله كل خير

  في 30‏/6‏/2023 at 18:26, شايب said:

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

Expand  

اشكرك استاذى ومعلمى حضرتك تستاهل كل خير

[jjafferr]

  في 1‏/7‏/2023 at 07:50, الحلبي said:

اين هذا المثال الذى به الحل معلش انا لم اعثر عليه

Expand  

في هذه المشاركة اعلاه :

 

 

[الحلبي]

  في 1‏/7‏/2023 at 07:55, jjafferr said:

في هذه المشاركة اعلاه :

Expand  

انا لم افهمك 

[jjafferr]

دكتور حلبي ، الظاهر اننا مو فاهمين بعض !!

 

هذا هو المرفق مرة اخرى.

العمل تم على الكائنات التي عليها الاسهم ، فانقلها الى برنامجك ، اما بقية الكائنات ، فلم اعمل عليها اي تغيير

 

1565.تفعيل خانة الاختيار.accdb.zipFetching info...

[الحلبي]

  في 1‏/7‏/2023 at 12:27, jjafferr said:

العمل تم على الكائنات التي عليها الاسهم ، فانقلها الى برنامجك ، اما بقية الكائنات ، فلم اعمل عليها اي تغيير

 

Expand  

اشكرك استاذى الكبير نقلتها الى برنامجى وكل شئ تمام

بس انا مصمم على ان حضرتك لم ترسل هذا المرفق من قبل  ولا اعرف سبب عدم ظهوره عندى هل هو من اللاب توب تبعى ام من المنتدى

عموما انا شاكر لحضرتك ويارب يارب لا يحرمنا من افكارك وحل المشاكل

رحم الله والديك وبارك الله فيك ورزقك كثيرا

[jjafferr]

حياك الله 🙂

 

ها يالشايب ، وين موضوعنا الجاي ان شاء الله 🙂

 

جعفر

[شايب]

  في 1‏/7‏/2023 at 16:24, jjafferr said:

ها يالشايب ، وين موضوعنا الجاي ان شاء الله 🙂

Expand  

كان في موضوع الحقول الفارغة لكن للاسف اغلقت الملف بشكل اجباري هنق الجهاز بدون حفظ التعديل