عند منع التعديل بالنموذج.. لا يعمل مربع البحث !!!

[نرجس الورد]

السلام عليكم

وجدت قبل فترة مثال للتحكم في الصلاحيات وطبقته في القاعدة التي أصممها حالياً ولكن واجهتي مشكلة لم أجد لها حل

ففي النموذج frm3 عند عمل مربع تحرير وسرد فإنه لا يعمل ولا يقوم بالبحث إلا بعد تفعيل خيار التعديل !!

والمفترض أن يعمل مربع البحث دون الإرتباط بخصائص الصلاحية

أتمنى مساعدتي خصوصا في هذا الموضوع للأهمية الطارئة

شاكرة لكم كل مساااعداتكم ونبل جهودكم

الأمر مهم وعاجل يحفظكم الله

________________.rar

تم تعديل نوفمبر 11, 2007 بواسطه نرجس الورد

[نرجس الورد]

للرفع مع السلام

[Nofalnss]

فقط إذهبي إلى خصائص النموذج > حدث > في الحالي

إمسحي الإجراء الموضوع فيه

نوفل

[نرجس الورد]

فقط إذهبي إلى خصائص النموذج > حدث > في الحالي

إمسحي الإجراء الموضوع فيه

نوفل

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

المطلوب هو : كيف نستثني أو كيف نفعل مربع تحرير وسرد فقط !! حتى يتمكن الجميع من استخدامه

أرجو مساعدتي فالأمر هام جداً

[zahrah2016]

اختي الفاضلة نرجس الورد

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

ضعي هذا الكود في حدث الحالي وسوف يعمل معك مربع التحرير والسرد

Private Sub Form_Current()
Dim s As String
s = DLookup("[user_name]", "tbl_fbi")
Dim zm As Boolean
zm = DLookup("[frm3_edit]", "tbl_fbi")

If zm = False Then
Beep
MsgBox ("عفواً يــــا" & " ( " & s & " ) " & "ليس لديك صلاحية بالتعديل"), _
    vbInformation + vbOKOnly + vbMsgBoxRight, "تنبيه"

Else
    Me.AllowEdits = True
    
End If
End Sub

تم تعديل نوفمبر 13, 2007 بواسطه zahrah

[نرجس الورد]

أختي الكريمة zahrah

شكرا لجهدك ومشاركتك

لكن للأسف لا لا :') ليس هذا هو المطلوب والكود لم يحل المشكلة ولو كان هذا هو الحل لعملته بنفسي

المطلوب أن يتم فتح النموذج في حالة عدم " تعديل " ولكن مع إمكانية استخدام مربع البحث

أدعو الله أن يوفقكم جميعاااااااااااااا

تم تعديل نوفمبر 13, 2007 بواسطه نرجس الورد

[يوسف أحمد]

بعد اذن اختنا ومعلمتنا الغالية زهرة

ارجو ان يفي التعديل بما تبحث عنه الاخت نرجس الورد

__________.rar

[نرجس الورد]

بعد اذن اختنا ومعلمتنا الغالية زهرة

ارجو ان يفي التعديل بما تبحث عنه الاخت نرجس الورد

شكرااا لك أخي الكريم يوسف

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

أرجو اعادة رفعه وفقك الله

[يوسف أحمد]

بارك الله فيك اختنا الفاضلة نرجس

الملف يعمل لدي بشكل جيد

عموماً ... الفكرة هي بدلاً من ضبط خاصية AllowEdits الى القيمة ( لا ) في حدث عند التحميل للنموذج يتم ضبط خاصية Locked لجميع مربعات النصوص ومربعات التحرير والسرد ماعدا مربع التحرير والسرد الخاص بالبحث الى القيمة ( نعم)

Me.اسم_الطالب.Locked = True
Me.الفصل_الدراسي.Locked = True
Me.a.Locked = True
Me.b.Locked = True
Me.e.Locked = True

ارجو ان يكون هو المطلوب

[نرجس الورد]

بارك الله فيك اختنا الفاضلة نرجس

الملف يعمل لدي بشكل جيد

عموماً ... الفكرة هي بدلاً من ضبط خاصية AllowEdits الى القيمة ( لا ) في حدث عند التحميل للنموذج يتم ضبط خاصية Locked لجميع مربعات النصوص ومربعات التحرير والسرد ماعدا مربع التحرير والسرد الخاص بالبحث الى القيمة ( نعم)

Me.اسم_الطالب.Locked = True
Me.الفصل_الدراسي.Locked = True
Me.a.Locked = True
Me.b.Locked = True
Me.e.Locked = True

ارجو ان يكون هو المطلوب

بالضبط أخي الكريم يوسف وجزاك الله خيرا وجميع من ساهم في مساعدتي وبقيت نقطة أعتقد تركتها لأكملها بنفسي وهي أن نضع في زر التعديل الكود التالي :

[code]Me.اسم_الطالب.False= True
Me.الفصل_الدراسي.False= True

Me.a.Locked = False
Me.b.Locked = False
Me.e.Locked = False
Me.c.Locked = False
Me.d.Locked = False

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

كل التحية والشكر لكم جميعا

تم تعديل نوفمبر 15, 2007 بواسطه نرجس الورد