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

[المسافر2006]

السلام عليكم

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

المطلوب ابي اذا فتحت نموذج (سجلات الأفراد) وضغطت على زر التفاصيل اذا كان ضابط بعرضلي
1- الاسم
2- الرتبة
3- الرقم العام
4- الوظيفة
5- رقم الجوال
فـــقـــــط

ss.rar

[يوسف أحمد]

و عليكم السلام

 

اخي المسافر 2006

لعمل ذلك ضع الكود التالي في حدث عند النقر لزر التفاصيل 

 

DoCmd.OpenForm "NamesRecord", , , "[السجل المدني]=" & Me.السجل_المدني

If Forms!NamesRecord!الرتبة <> "جندي" And Forms!NamesRecord!الرتبة <> "جندي اول" And _
Forms!NamesRecord!الرتبة <> "عريف" And Forms!NamesRecord!الرتبة <> "وكيل رقيب" And _
Forms!NamesRecord!الرتبة <> "رقيب" And Forms!NamesRecord!الرتبة <> "رقيب اول" And _
Forms!NamesRecord!الرتبة <> "رئيس رقباء" Then

    Forms!NamesRecord![رقم الملف].Visible = flase
    Forms!NamesRecord![السجل المدني].Visible = flase
    Forms!NamesRecord![الإختصاص].Visible = flase
    Forms!NamesRecord![تاريخ الميلاد].Visible = flase
    Forms!NamesRecord![تاريخ التعيين].Visible = flase
    Forms!NamesRecord![تاريخ اخر ترقية].Visible = flase
    Forms!NamesRecord![تاريخ استحقاق الترقية].Visible = flase
    Forms!NamesRecord![المؤهل الدراسي].Visible = flase
    Forms!NamesRecord![السرية].Visible = flase
    Forms!NamesRecord![الفصيل].Visible = flase
    Forms!NamesRecord![العنوان].Visible = flase
    Forms!NamesRecord![اسم شخص قريب].Visible = flase
    Forms!NamesRecord![جوال القريب].Visible = flase

End If

 

تفضل المرفق مع ملاحظة اني غيرت اسم النموذج المراد فتحه الى NamesRecord  و انصحك بالتسمية باللغة الانجليزية و بدون ترك مسافات بين الاسماء لتفادي المشاكل البرمجية اضافة الى ان هذا يسهل عليك فهم الاكواد و التعبيرات في الاكسس  ( حتى و لو كانت التسمية بالترجمة الحرفيه )

 

بالتوفيق

 

ss.rar

تم تعديل يونيو 18, 2020 بواسطه يوسف أحمد

[المسافر2006]

يعطيك العافية ابو احمد

واسال الله ان يفرج عنك كربات الدنيا والاخرة

 

[المسافر2006]

ماعليش ابو احمد برضه الدورات والاجازات الي باسفل النموذج ابخفيها بسجل الضباط

 

[يوسف أحمد]

بارك الله فيك ... و لك بمثل ما دعوت به و زيادة

 

تفضل المرفق بعد التعديل .. قمت بالغاء تفعليل الزر بدلاً من اخفائه .. 

 

بالتوفيق

ss.rar

[المسافر2006]

شاكر ومقد أخ يوسف 

بفتح الكمبيوتر بعد شوي واجرب

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

[المسافر2006]

اولا اسف على التاخير

ثانيا بيض الله وجهك اخ يوسف 

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

كل احترامي وتقديري لشخصك الكريم

[عبدالله المجرب]

19 ساعات مضت, المسافر2006 said:

اولا اسف على التاخير

ثانيا بيض الله وجهك اخ يوسف 

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

كل احترامي وتقديري لشخصك الكريم

بعد اذن الاستاذ يوسف

 

استبدل هذين السطرين 

 Forms!NamesRecord![أمر56].Enabled = flase
 Forms!NamesRecord![أمر82].Enabled = flase

 

بهذين

 

    Forms!NamesRecord![أمر56].Visible = flase
    Forms!NamesRecord![أمر82].Visible = flase

وبذلك يختفوا في حال الضباط ويظهروا في حال الأفراد

[المسافر2006]

اولا اسف على التاخير

ثانيا بيض الله وجهك اخ يوسف 

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

كل احترامي وتقديري لشخصك الكريم

[المسافر2006]

4 ساعات مضت, عبدالله المجرب said:

بعد اذن الاستاذ يوسف

 

استبدل هذين السطرين 

 Forms!NamesRecord![أمر56].Enabled = flase
 Forms!NamesRecord![أمر82].Enabled = flase

 

بهذين

 

    Forms!NamesRecord![أمر56].Visible = flase
    Forms!NamesRecord![أمر82].Visible = flase

وبذلك يختفوا في حال الضباط ويظهروا في حال الأفراد

يعطيك العافيه اخ عبدالله

كلكم ماقصرتو 

كفيتو ووفيتو

وأسأل الله ان يجعلها في موازين حسناتكم 

 

[المسافر2006]

في ٢٧‏/٦‏/٢٠٢٠ at 19:47, عبدالله المجرب said:

بعد اذن الاستاذ يوسف

 

 

 

بهذين

 

    Forms!NamesRecord![أمر56].Visible = flase
    Forms!NamesRecord![أمر82].Visible = flase

وبذلك يختفوا في حال الضباط ويظهروا في حال الأفراد

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