هل يوجد كود يتحكم في جميع حقول النماذج في ان واحد

اخي الفاضل : سلامنا لكم

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

نعم يمكن ذلك ولكن يجب ان يكون النموذج مفتوح

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

Private Sub Form_Current()
Dim ctl As Control
  For Each ctl In Me.Controls
     If TypeOf ctl Is TextBox Then
        ctl.Locked = True
     End If
 Next ctl
End Sub

هذا الكود كفيل بإقفال جميع الحقول من نوع TextBox دفعة واحدة وحتى لو كانت 100 حقل في النموذج

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

Private Sub CmdGO_Click()
Dim ctl As Control
  For Each ctl In Me.Controls
     If TypeOf ctl Is TextBox Then
        ctl.Locked = False
     End If
 Next ctl
End Sub

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

za-Student.rar

بالتوفيق

مثال رائع روعة أصحابه

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

مثلا عند الانتقال الى سجل فارغ من القيم كحالة الاضافة

لو يتم تفعيل امكانية الكتابة في الحقول بدلا من الضغظ على التعديل

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

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

Cha3iR كتب:

مثال رائع روعة أصحابه

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

مثلا عند الانتقال الى سجل فارغ من القيم كحالة الاضافة

لو يتم تفعيل امكانية الكتابة في الحقول بدلا من الضغظ على التعديل

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

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

نعم اخي الكريم

يمكن تحقيق ذلك بكل سهوله

za-Student-UP.rar

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

فقط اطلب وستجد كل شيء في متناول يديك

بالتوفيق

السلام عليكم

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

هذا عمل رائع وممتاز

اختي زهرة : عشان (ادخل البيانات) دفعة واحدة بالحقل ( الواحد ) لكل السجلات حذفت الكود عند حدث عند الحالي

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

السؤال الاول : هل ممكن عند ادخال البيانات في حقل معين دفعة واحدة لكل السجلات ان تكون بقية الحقول

الاخرى لايمكن الادخال او التعديل عليها.

السؤال الثاني :وهذا تحقق لنموذج واحد وهو الطالب

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

في حقول هذه النماذج كلها دفعة واحدة.

ملاحظة :

اقتباس

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

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

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

مالسر في ذلك ارجو ان تجربي Za-student_up مرة ثانية وتلاحظي ذلك.

ولله درك.

تفضل اخي الكريم : سلامنا لكم

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

Private Sub Form_Open(Cancel As Integer)
Set rs = CurrentDb.OpenRecordset("Select name from msysobjects where name like 'frm*'")
rs.MoveFirst
Do While Not rs.EOF
DoCmd.OpenForm rs!Name, acDesign
For Each ctl In Forms(rs!Name).Controls
If ctl.ControlType = acTextBox Then
ctl.Locked = True
End If
Next ctl
DoCmd.Close acForm, rs!Name, acSaveYes
rs.MoveNext
Loop
End Sub

هذا الكود يقوم بالمرور على كافة نماذج القاعدة والتي يبدأ اسم النموذج بـ frm

ثم يقوم بإقفال كافة مربعات النص الموجوده بها دفعة واحده .

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

وعند الضغط على زر الأمر ( تعديل ) او ( إضافة ) سيتم فك القفل عن جميع الحقول الموجوده فقط في النموذج الذي تعمل عليه

اما بقية النماذج وحقولها فلا زالت مغلقة

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

ايضا بعد عمل اي تعديل لأي حقل سيتم اغلاق الحقل وليس لك خيار سوى الضغط على زر تعديل كرة اخرى .

za-Student-Last.rar

بالتوفيق

zahrah كتب:

نعم اخي الكريم

يمكن تحقيق ذلك بكل سهوله

za-Student-UP.rar

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

فقط اطلب وستجد كل شيء في متناول يديك

بالتوفيق

ألف شكر وشكر

جزاك الله ألف خير وكتب لك الجنة إن شاء الله

بخصوص listbox هل من امكانية للتحكم فيها مثل TextBox ؟

Cha3iR كتب:

ألف شكر وشكر

جزاك الله ألف خير وكتب لك الجنة إن شاء الله

تفضل أخي الكريم : Cha3iR

تم وضع رقم سري على زر الأمر ( تعديل )

قم بالضغط على ( zahrah ) ذو اللون الأحمر الذي في الوسط ثم ادخل الرقم السري

عاد انت وشطارتك طلع الرقم السري اذا طلب منك ادخال الرقم السري لأني نسيت الرقم السري

za-Student-Pass.rar

بالتوفيق

Cha3iR كتب:

بخصوص listbox هل من امكانية للتحكم فيها مثل TextBox ؟

نعم اخي الكريم

نستطيع التحكم في جميع كائنات النموذج مثل

acBoundObjectFrame

acCheckBox

acComboBox

acCommandButton

acCustomControl

acImage

acLabel

acLine

acListBox

acObjectFrame

acOptionButton

acOptionGroup

acPage

acPageBreak

acRectangle

acSubform

acTabCtl

acTextBox

acToggleButton

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

If Ctl.ControlType = acTextBox Or Ctl.ControlType = acComboBox   Or Ctl.ControlType = acListBox  Or Ctl.ControlType =acCheckBox  Or Ctl.ControlType =acSubform Then

علشانك عملنا كوكتيل للكائنات :)

بالتوفيق

ماذا عساني أقول

أمام كل هذه الحلول

ماذا عساني أقول لسيدة الحلول

أصمت عسى الصمت عله

يفي الحق حقه ويقول

أنني لن أستطيع مهما أقول

أن أوضح مقدار العرفان والامتنان

الذي بخلدي يجول

أما بخصوص كلمة السر فهي واضحة لاتنسى ولا تحتاج لتذكر

الشيء الذي يقودني الى التساؤل

في حالة تفشي كلمة السر فكيف يمكن تغييرها علما أن القاعدة ستكون مغلقة ؟

Cha3iR كتب:

ماذا عساني أقول

أمام كل هذه الحلول

ماذا عساني أقول لسيدة الحلول

أصمت عسى الصمت عله

يفي الحق حقه ويقول

أنني لن أستطيع مهما أقول

أن أوضح مقدار العرفان والامتنان

الذي بخلدي يجول

أما بخصوص كلمة السر فهي واضحة لاتنسى ولا تحتاج لتذكر

الشيء الذي يقودني الى التساؤل

في حالة تفشي كلمة السر فكيف يمكن تغييرها علما أن القاعدة ستكون مغلقة ؟

بارك الله بك أخي الكريم

لا يوجد اي مشكله

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

1. تحتفظ بهذا النموذج كما هو في قاعدة بيانات مفتوحه

2. تضعه بعيدا عن متناول اي شخص يعني يكون في مكان خاص لك انت فقط

3. تقوم بإحماية القاعدة بأي طريقة بحيث تجعلها مغلقة لا يستطيع احد فتح التصميم في النماذج

4. في حال تم اكتشاف الرقم السري في النموذج الذي في القاعدة اذا سيكون لديك البديل مباشرة وهو الذي قمت بالإحتفاظ به سابقا في قاعدة البيانات المفتوحة المصدر

5. الآن قم بفتح النموذج المفتوح المصدر وغير الرقم السري

6. قم بحذف النموذج القديم الذي تم اكتشاف الرقم السري له

7. قم بإستيراد النموذج الجديد الى القاعدة المغلقة او تصدير النموذج الوحيد في القاعدة المفتوحة الى القاعدة المغلقه .

بالتوفيق

السلام عليكم

جزاك الله خير من المحيا الى الممات.

الرقم السري للنموذج السابق هو "zahrah"

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

ومحمد والبقية...

وبقية الدروس الثاني والثالث والرابع مقفل لجميع الطلاب " السجلات"

والله يغفر لك.

zahrah كتب:

بارك الله بك أخي الكريم

لا يوجد اي مشكله

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

1. تحتفظ بهذا النموذج كما هو في قاعدة بيانات مفتوحه

2. تضعه بعيدا عن متناول اي شخص يعني يكون في مكان خاص لك انت فقط

3. تقوم بإحماية القاعدة بأي طريقة بحيث تجعلها مغلقة لا يستطيع احد فتح التصميم في النماذج

4. في حال تم اكتشاف الرقم السري في النموذج الذي في القاعدة اذا سيكون لديك البديل مباشرة وهو الذي قمت بالإحتفاظ به سابقا في قاعدة البيانات المفتوحة المصدر

5. الآن قم بفتح النموذج المفتوح المصدر وغير الرقم السري

6. قم بحذف النموذج القديم الذي تم اكتشاف الرقم السري له

7. قم بإستيراد النموذج الجديد الى القاعدة المغلقة او تصدير النموذج الوحيد في القاعدة المفتوحة الى القاعدة المغلقه .

بالتوفيق

بارك الله فيك

حل منطقي جدا

شخصيا لا أجد فيه أي صعوبة في تطبيقه

لكن عمليا قد يواجهه بعض الصعوبات

نظرا لانتشار البرنامج جغرافيا وتعدد المستخدمين

كنت أنتظر حلا برمجيا لكن المنطق غلب ما باليد حيلة :)

سلامنا لكم كتب:

السلام عليكم

جزاك الله خير من المحيا الى الممات.

الرقم السري للنموذج السابق هو "zahrah"

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

ومحمد والبقية...

وبقية الدروس الثاني والثالث والرابع مقفل لجميع الطلاب " السجلات"

والله يغفر لك.

تفضل أخي

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

Dim ctl As Control

For Each ctl In Me.Controls

If TypeOf ctl Is TextBox Then

ctl.Locked = True

End If

Next ctl

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

لكن ضع في الحسبان أن نفس الأمر سيقع في حالة الاضافة

والأن لك الخيار

za-Student-MHD.rar

سلامنا لكم كتب:

السلام عليكم

جزاك الله خير من المحيا الى الممات.

الرقم السري للنموذج السابق هو "zahrah"

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

ومحمد والبقية...

وبقية الدروس الثاني والثالث والرابع مقفل لجميع الطلاب " السجلات"

والله يغفر لك.

za-Student-UP3.rar

بالتوفيق

السلام عليكم

جزاك الله خير اختي زهرة كل المشاركات استفاديت منها لان كل مشاركة في حال.

اريد ان اضغط على زر تعديل مرة واحدة فقط ويتم ادخال درجات العمود AC1 دفعة

واحدة (وبقية الاعمدة مقفلة)

وفي وقت ثاني نفس العملية تتم على العمود AC2 وبقية الاعمدة مقفلة

وفي وقت اخر العملية نفسها تتم على العمود AC3 وبقية الاعمدة مقفلة

وفي وقت اخر العملية نفسها تتم على العمود E وبقية الاعمدة مقفلة

وفي وقت اخر العملية نفسها تتم على العمود Msa وبقية الاعمدة مقفلة

اما بقية الاعمدة وهي FIN , EX , AC هي تحتسب مباشرة

هذا بالنسبة للنموذج Math 9/3 وهكذا لبقية النماذج Math 9/5 , Math 9/7

وفي ميزان حسناتك ان شاء الله .

Frmstudent.rar

تفضل اخي الكريم : سلامنا لكم

والرجاء الإلتزام بالخطوات الثلاث

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

الخطوة الثانية : انتقل الى الحقل الذي قمت بفك التأمين عنه ثم ادخل به القيمة المطلوبه

الخطوة الثالثة : قم بضغط زر الأمر تعديل وسيتم تحديث الحقل المختار مباشرة لجميع الطلاب دفعة واحدة

طبق هذه الخطوات على جميع الحقول بالخطوات الثلاث ( تم عمل ذلك لجميع النماذج )

اذا ظهرت لك رسالة حفظ السجل فأختر حفظ السجل

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

za-Frmstudent-UP.rar

بالتوفيق

السلام عليكم

جزاك الله خير والله يجزيك عن عملك هذا مايحبه ويرضاه وماتتمنيه والله يحفظ لك عائلتك وبنتيك الكريميتين.

تبعت الخطوات حرفيا بس في ملاحظة

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

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

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

ادخل علامات الطلاب واحد واحد.

سلامنا لكم كتب:

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

اخواني واخواتي المشرفين والاعضاء الكرام الله يغفر لكم جميعا ان شاء الله

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

لايتم التعديل عليها الا بعد الضغط على امر التعديل لجميع الحقول

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

سلامنا لكم كتب:

السلام عليكم

جزاك الله خير من المحيا الى الممات.

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

ومحمد والبقية...

وبقية الدروس الثاني والثالث والرابع مقفل لجميع الطلاب " السجلات"

والله يغفر لك.

سلامنا لكم كتب:

السلام عليكم

جزاك الله خير اختي زهرة كل المشاركات استفاديت منها لان كل مشاركة في حال.

اريد ان اضغط على زر تعديل مرة واحدة فقط ويتم ادخال درجات العمود AC1 دفعة

واحدة (وبقية الاعمدة مقفلة)

وفي وقت ثاني نفس العملية تتم على العمود AC2 وبقية الاعمدة مقفلة

وفي وقت اخر العملية نفسها تتم على العمود AC3 وبقية الاعمدة مقفلة

وفي وقت اخر العملية نفسها تتم على العمود E وبقية الاعمدة مقفلة

وفي وقت اخر العملية نفسها تتم على العمود Msa وبقية الاعمدة مقفلة

اما بقية الاعمدة وهي FIN , EX , AC هي تحتسب مباشرة

هذا بالنسبة للنموذج Math 9/3 وهكذا لبقية النماذج Math 9/5 , Math 9/7

وفي ميزان حسناتك ان شاء الله .

اخي الفاضل : سلامنا لكم

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

كما سبق وان ابلغتنا في المشاركات السابقة انك تريد ادخال درجة مثلا ( ابتداء من سلامنا لكم وانتهاء بأخر سجل ) تكون نفس الدرجة المعطاه للسجل بحيث يتم تحديث كامل العمود بنفس الدرجة المدخله

اما الأن فأنت تريد ان تختار عمود معين ثم تختار الصفوف واحدا واحدا وتدخل بها القيم فهناك فرق بارك الله بك بين ان تختار عمود معين وبين ان تختار صفوف .

لذا اعتذر منك اخي الكريم في تنفيذ هذه الطلبات .

ليس لأنني لا استطيع تنفيذها ولكن يجب ان نكون واضحين من البدايه فعلى مدى بداية المشاركه لم تحدد شيء معين ففي كل مره طلب جديد وسؤال مختلف .

معذرة سأتوقف عند هذه النقطة .

بالتوفيق

السلام عليكم

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

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

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

العضو او المشرف لم يرد علي . وانا اسال واكثر من الاسئلة منطلقا من عبارتك الاتية

"ولا اذكر اني تضايقت من اي سائل مهما سئل ومهما الح في السؤال فالفائدة للجميع وكما يلاحظ الاخوة الكرام اني اقوم بالاسهاب والشرح الممل المفصل والسبب ان هناك اخوة لنا ليس لهم دراية او تكون خلفيتهم ضعيفه في هذا الموضوع ولهذا تجدونني اشرح للكل فالذي يعرف بعض الامر سيتجاوز بعض الخطوات لمعرفته السابقه بها لهذا امل من الجميع ان يأخذني على قد عقلي بس لا يقولون هذي المرأة كلامها كثير ;) .

وانا قصدت في المشاركة السابقة و التي تقول

اقتباس

السلام عليكم

جزاك الله خير اختي زهرة كل المشاركات استفاديت منها لان كل مشاركة في حال.

اريد ان اضغط على زر تعديل مرة واحدة فقط ويتم ادخال درجات العمود AC1 دفعة

واحدة (وبقية الاعمدة مقفلة)

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

ومن الطبيعي ان تكون درجات الطلاب مختلفة لان لديهم فروق فردية.

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

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

بصورة واضحة جدا .

ولله الحمد ملىء السموات والارض والمنه ان ارشدني لهذا المنتدى ان اتعلم فيه شيئا مفيدا افضل من قضاء الوقت في غير المفيد.

وانا اشكرك جدا.