الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف يمكن تفعيل حقل بالاعتماد على حقل اخر

بدأه زين المهندس في 5 أبريل 2014 · 6 رد · 854 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

الاخفاء.rar

post-263885-0-67933000-1396731120_thumb.

اعمل على أن يحبك الناس عندما تغادر منصبك، كما يحبونك عندما تتسلمه

Be cheerful when gettin-out as when you coming-in

Soit acceuillant à ton départ comme à ton arrivé

** ** ** **

#2

ضع الكود عند فتح النموذج على سجل معين

وأيضا بعد AfterUpdate للحالة الاجتماعية

Private Sub Combo1_AfterUpdate()
If Me.Combo1 = "اعزب" Then Me.children.Enabled = False
End Sub

Private Sub Form_Open(Cancel As Integer)
If Me.Combo1 = "اعزب" Then Me.children.Enabled = False
End Sub
1
#3
amir2008amir كتب:

 

ضع الكود عند فتح النموذج على سجل معين

وأيضا بعد AfterUpdate للحالة الاجتماعية

Private Sub Combo1_AfterUpdate()
If Me.Combo1 = "اعزب" Then Me.children.Enabled = False
End Sub

Private Sub Form_Open(Cancel As Integer)
If Me.Combo1 = "اعزب" Then Me.children.Enabled = False
End Sub

السلام عليكم اخي العزيز و شكراً جزيلاً على مروركم الكريم

لو تفضلتم علي احتاج الى مزيد من التوضيح لان الفكرة غير واضحة ... واكرر شكري لكم اخي العزيز .

اعمل على أن يحبك الناس عندما تغادر منصبك، كما يحبونك عندما تتسلمه

Be cheerful when gettin-out as when you coming-in

Soit acceuillant à ton départ comme à ton arrivé

** ** ** **

#4

الكود

If Me.Combo1 = "اعزب" Then Me.children.Enabled = False

if دالة الشرط

me : النموذج الحالي

Combo1 : الاسم البرمجي لمربع النص للحالة الاجتماعية

"اعزب" : القيمة المراد اختبارها

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

children : الاسم البرمجي لمربع النص الخاص بالأطفال

Enabled : أمر تمكين ( أو متاح )

False : عدم التحقق

 

وهذا معناه أنه اذا وجد كلمة أعزب في مربع الحالة الاجتماعية فإن تمكين مربع الأطفال = غير ممكن

ويتم وضع الكود للتنفيذ مع بداية فتح النموذج  Form Open على سجل محدد

أو مع تحديث  AfterUpdate بيان الحالة الاجتماعية

تم تعديل هذه المشاركة بواسطة amir2008amir في 6 أبريل 2014 في 23:47

#5
amir2008amir كتب:

الكود

If Me.Combo1 = "اعزب" Then Me.children.Enabled = False

if دالة الشرط

me : النموذج الحالي

Combo1 : الاسم البرمجي لمربع النص للحالة الاجتماعية

"اعزب" : القيمة المراد اختبارها

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

children : الاسم البرمجي لمربع النص الخاص بالأطفال

Enabled : أمر تمكين ( أو متاح )

False : عدم التحقق

 

وهذا معناه أنه اذا وجد كلمة أعزب في مربع الحالة الاجتماعية فإن تمكين مربع الأطفال = غير ممكن

ويتم وضع الكود للتنفيذ مع بداية فتح النموذج  Form Open على سجل محدد

أو مع تحديث  AfterUpdate بيان الحالة الاجتماعية

السلام عليكم ... ظهرت لدي مشكلة واحدة فقط وهو انه عندما تكون الحالة الاجتماعية أعزب فإن حقل عدد الاطفال غير فعال وهذا ما اردته تماماً  ، و لكن عند التسجيل الجديد يستمر حقل عدد الاطفال غير فعال حتى اذا كانت الحالة الاجتماعية (متزوج) وهكذا بالتسجيلات الجديدة كلها

اعمل على أن يحبك الناس عندما تغادر منصبك، كما يحبونك عندما تتسلمه

Be cheerful when gettin-out as when you coming-in

Soit acceuillant à ton départ comme à ton arrivé

** ** ** **

#6

السلام عليكم ... استاذي لا تغلب حالك وجدت الحل وهو انني اضفت الكودين الاتيين بالاضافة الى الكود الذي اعطيتنياه وهما كالاتي:-

Private Sub combo1_AfterUpdate()
If Me.combo1 = "اعزب" Then Me.children.Enabled = False
If Me.combo1 = "متزوج" Then Me.children.Enabled = True
If Me.combo1 = "مطلق" Then Me.children.Enabled = True
End Sub
 
Private Sub combo1_BeforeUpdate(Cancel As Integer)
If Me.combo1 = "اعزب" Then Me.children.Enabled = False
If Me.combo1 = "متزوج" Then Me.children.Enabled = True
If Me.combo1 = "مطلق" Then Me.children.Enabled = True

 

End Sub
شكراً جزيلا لكم  :)  :)  :) 

اعمل على أن يحبك الناس عندما تغادر منصبك، كما يحبونك عندما تتسلمه

Be cheerful when gettin-out as when you coming-in

Soit acceuillant à ton départ comme à ton arrivé

** ** ** **

#7

صحيح أحسنت

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

والأجمل كلمتك هذه (اعطيتنياه)

ههههههههه

مواضيع مشابهة