اريد تغير خاصية لعنصر تحكم بفورم من خلال كود لعنصر تحكم بفورم اخر

[أبو عبدالله الحلوانى]

السلام عليكم

أريد تغير خاصية لعنصر تحكم فى فورم من خلال كود لعنصر تحكم فى فورم اخر

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

[ابوخليل]

السؤال بحاجة الى زيادة ايضاح

بمعنى ماذا تريد ان تعمل بالضبط

علما انه لا يمكن التحكم بعناصر نموذج مغلق  من خلال نموذج مفتوح 

[أبو عبدالله الحلوانى]

جزاك الله خيرا ابا خليل لتجاوبك معي

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

بحيث يتاثر خانة الابشن في الفورم بيانات باختيار نعم فى فورم اعدادات

[.Azhar]

تفضل اخي ابو عبد الله هذا شرح Pdfمفصل لكيفية عمل صلاحيات وتغيير الباسوورد .

Password.rar

تم تعديل سبتمبر 25, 2014 بواسطه .Azhar

[ابوخليل]

 بحيث يحددفيه المستخدم رغبته في طلب الرقم السري 

 

الى الآن العبارة اعلاه لم يتضح لي المقصود منها

 

هل المطلوب : 

يوجد خانتي اختيار واحدة في نموذج الاعدادات والاخرى في نموذج البيانات 

وتريد اذا تم تحديث خانة نموذج الاعدادات ان  يظهر هذا التحديث في خانة نموذج البيانات ؟

 

الافضل ان ترفق مثالا بسيطا يبين المطلوب  وليكن على صيغة mdb

[أبو عبدالله الحلوانى]

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

استاذ ازهر ممكن ترسلى الملف باللغة العربية لو سمحت ولو ممكن اتشرف بكنية حضرتك

اسف ابا خليل على عدم ارسال ملف لعدم معرفتى بارفاق ملف الى الموضوع

[.Azhar]

تفضل هذا مثال 2003 يمكنك تغيير كلمات المرور في البداية من الجدول tblUser

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

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

[.Azhar]

ابو عبد الله يمكنك مراجعة هذا الرابط 

http://www.officena.net/ib/index.php?showtopic=55850

[أبو عبدالله الحلوانى]

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

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

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

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

اسف علي الاطالة ولكن هذه محاولة مبتدئ لمخاطبة الجهابذة

وتقبل الله طاعاتكم وجهودكم في بذل العلم

[.Azhar]

وهذا هو فعلا ما موجود انظر الى الكود وانظر الى التأشيرات الحمراء 

Private Sub cmdLogin_Click()
'التحقق من اسم المستخدم
If IsNull(Me.cboDept) Then
MsgBox "يجب ادخال اسم المستخدم", vbCritical
Me.cboDept.SetFocus
Else
'التحقق من كلمة المرور
If Me.txtPassword.Value = DLookup("pwPW", "faqPW", "[pwPKID]=" & Me.cboDept.Value) Then
lngPKID = DLookup("pwPKID", "faqPW", "[pwPKID]=" & Me.cboDept.Value)
DoCmd.OpenForm "هنا نضع اسم الفورم الذي نريد ان يفتح "
Me.Visible = False
Else
MsgBox "كلمة المرور غير صحيحة", vbOKOnly, "الادخال غير صحيح"
Me.txtPassword = Null
Me.txtPassword.SetFocus
End If
End If

'اذا قام المستخدم بادخال كلمة مرور غير صحيحة 3 مرات سوف يغلق البرنامج
intLogonAttempts = intLogonAttempts + 1
If intLogonAttempts > 3 Then
MsgBox "ليس لديك حق الوصول الى البرنامج راجع مدير المشروع", vbCritical, "Restricted Access!"
Application.Quit
End If

End Sub
 

في السطر الاحمر الاول تضع اسم الفورم الخاص بالبيانات بدل السطر الاحمر الاول .

اما في حالة عدم الاغلاق تستطيع زيادة عدد المحاولات او ايقاف اخر اربعة سطور من الكود باستثناء السطرين الاخيرين 

اما اذا لا تريد ذلك وتريد غلق الفورم فقط وليس غلق البرنامج كله تستخدم بدل Quit  ـــــــــ> Close 

[أبو عبدالله الحلوانى]

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

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

وملاحظاتى:

اولا- الفورم المفتوح هو فورم الباسورد و خاصية الظهور تحولت الى فولص للفورم نفسه عند فتح الفورم الهدف

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

ثالثا - انا اسف لانى غير قادر على ارفاق ملف

[.Azhar]

ماهي نسخة الاكسس لديك 

[أبو عبدالله الحلوانى]

2010

[.Azhar]

اوك

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

[أبو عبدالله الحلوانى]

لا لا لم اقصد هذا

الملاحظات كانت على الكود اللى حضرتك باعتو

هحاول اعبر عن الفكرة باسلوب تانى

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

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

هيفتح فورم البيانات عادي

الان فورم البيانات مفتوح ومخفى وفورم الباسورد مفتوح ايضا...

زر موافق فى الفورم باسورد مهمتو يظهر فورم البيانات - لانه مفتوح - اذا كان الرقم صح

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

[ابوخليل]

الان المطلوب واضح تماما

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

وتحتاج لتطبيق ذلك الى التالي :

نموذج بداية يتفحص الشرط

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

 

انظر المثال المرفق :

كلمة المرور=1

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

 

آمل ان يكون هو ما تبحث عنه

تحكم في ظهور نموذج كلمة لمرور.rar

[أبو عبدالله الحلوانى]

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

وتقبل الله منا ومنكم - كل عام انتم فى خير وعافية.

[أبو عبدالله الحلوانى]

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

1- ما هى وظيفة " OpenDynaset" فى جملة sql

2- فورم welcome1 لا يظهر مع النماذج فى جزء التنقل كيف هل تم ضبط خاصية الظهور للفورم = لا ؟

3- لم يظهر من قوائم اكسس سوى قائمتين فحسب بدون مودل ولا ماكرو هل هذا ايضا من خلال ضبط خيارات اكسس ام ماذا ؟

4 - استفسار اخر خارج الموضوع : هل ممكن اخفاء بعض الاعمده من التقرير اذا كانت تحتوى على قيمة خالية أو صفر

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

[ابوخليل]

السؤال الثاني

انقر باليمين على النموذج / خصائص / علم على خانة مخفي

السؤال الثالث : لا اعلم بالضبط ما تقصد بالقوائم الا ان المثال لا يحتوي على ماكروات ولا وحدات نمطية ولا تقارير

السؤال الرابع : يحتاج ان تفرد له سؤال يخصه مع المثال ، واعلم انني اعمل على الاصدار 2003

ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

اما السؤال الأول فقد وجدت لك في مكتبتي شرحا لمطلوبك :

======================================

أنواع السجلات التي يمكن فتحها بالكائن DAO

النوع الأول   Table Recordset

وهذا النوع هو ارتباط مباشر لأي جدول  في قاعدة البيانات 

مميزاته 

1 – استخدام نظام الفهرسة INDEX

2 – إتاحة عمليات بحث سريعة 

عيوبه 

1 – عدم إمكانية إنشاء تصفية للسجلات

2 – استخدام تعليمة  SEEK   في البحث وهى تبحث عن السجل الأول فقط

3 – عدم استخدام تعليمة البحث FIND التي يمكن أن توجد عدد كبير من السجلات

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

Set rs = db.OpenRecordset("tbl1", dbOpenTable)  

 

النوع الثاني  DyanaSet Recordset

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

مميزاته

1 – إمكانية ربط البيانات في أكثر من جدول

2 – إمكانية استخدام الأمر  FIND  في البحث عن السجلات

3 – إمكانية عمل تصفية للسجلات

عيوبه

1 - لا يستخدم الفهارس INDEX

2 – لا يتيح تعديل السجلات أو حذفها بسهولة 

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

Set rs = db.OpenRecordset("tbl1", dbOpenDynaset)  

 

النوع الثالث :  SnapShot Recordset

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

مميزاته

1 -  إمكانية ربط أكثر من جدول

2 -  إمكانية استخدام أمر البحث FIND

3 -  سرعة البحث للسجلات لأنها في الذاكرة

عيوبه

1 – عدم إمكانية تحديث وتعديل البيانات لأنها للقراءة فقط

2 – عدم إمكانية استخدام الفهارس

3 – استهلاك الذاكرة وخاصة عند فتح أكثر من جدول

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

Set rs = db.OpenRecordset("tbl1", dbOpenSnapShot)  

[أبو عبدالله الحلوانى]

جزاك الله خيرا استاذنا اباخليل

اما عن ماذا اقصد بالقوائم فهي القوائم الموجودة بشريط القوائم الخاص بالاكسس (ملف ادراج عرض ...) لم يظهر منها سو ملف والرئيسية

والنسخة التى لدى 2010

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

Set db = currentdb

Set rs= db.openrecordset ("tbl1",dbopendyanaset)0

If isnull (rs) then

Msgbox

Else

End if

لم اكتب كامل تفاصيل الكود الذي يهمنى هو الشرط لم يستجب بهذه الصيغة

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

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

[ابوخليل]

سؤالك الاول  عن القوائم واختفائها تجد هذا في خصائص بدء التشغيل 

في 2003 :  ادوات / بدء التشغيل

 

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

تعدد المواضيع والمسميات علامة صحية ومطلوبة في المنتدى

مع ملاحظة توضيح ماذا تريد من نتيجة بــــ IsNull 

لان  rs  لوحدها لا تحمل قيمة

[أبو عبد لله الحلوانى]

أستاذ أبو خليل جزاك الله خيرا

تأخرت كثيرا ولكن شغلتنى المتابعة عن كثب لموضوعات هذا الصرح التعليمى التى اغنتنى عن كثرت البحث

أرجو ان يتسع لى صدركم والسماح لى بالاستفسار الاتى:

1- علمت بفضل الله ثم بفضلكم ان المتغير ( rs) فى المثال السابق لا تحمل قيمة وتحتاج الى وسيطة ك (find) أو (dlookup)

ولكن عند استعمال find او dlookup فتعطى رسالة خطأ عندما يكون الجدول فارغ من القيم فهل من وسيلة لتعمل الدالة مع الجدول قبل ادخال القيم

2 - أرجو أن يوجد فى مكتبتكم شرحا لوظيفة (DoMenuItem)

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

واسئل الله أن يجزل لكم العطاء ويجزيكم عنا خيرا وسائر اساتذة المنتدى الكرام