تفعيل الحقول للكتابة فيها

[عبدالقادر غموزي]

السلام عليكم أساتذتي الكرام

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

وشكرا لكم مسبقا

Stat_S_I - Copie.rar

[Shivan Rekany]

55 دقائق مضت, عبدالقادر غموزي said:

السلام عليكم أساتذتي الكرام

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

وشكرا لكم مسبقا

Stat_S_I - Copie.rar

جرب هذا الكود لعل قصدك بيكون هذا

Private Sub SalleSMM_AfterUpdate()
If Me.SalleSMM = "نعم" Then
    Me.ConnexSMM.Locked = False
    Me.ConnexSMMType.Locked = False
    Me.PcBurSMMT.Locked = False
    Me.ImpSMMT.Locked = False
    Me.PcBurSMMNF.Locked = False
    Me.ImpSMMNF.Locked = False
    Me.OndulSMMT.Locked = False
    Me.OndulSMMNF.Locked = False
    Me.PcPortSMMT.Locked = False
    Me.DataShowSMMT.Locked = False
    Me.PcPortSMMNF.Locked = False
    Me.DataShowSMMNF.Locked = False
Else
    Me.ConnexSMM.Locked = True
    Me.ConnexSMMType.Locked = True
    Me.PcBurSMMT.Locked = True
    Me.ImpSMMT.Locked = True
    Me.PcBurSMMNF.Locked = True
    Me.ImpSMMNF.Locked = True
    Me.OndulSMMT.Locked = True
    Me.OndulSMMNF.Locked = True
    Me.PcPortSMMT.Locked = True
    Me.DataShowSMMT.Locked = True
    Me.PcPortSMMNF.Locked = True
    Me.DataShowSMMNF.Locked = True
End If

End Sub

 

[عبدالقادر غموزي]

شكرا لك أستاذي الفاضل

جربت الكود ولكن تبقى عند تغيير القيمة من لا إلى نعم تبقى الحقول غير مفعلة رغم تغيير المؤسسة من القائمة المنسدلة بالأعلى

جربت Locked  و جربت أيضا Enabled  ولم تنفع دائما تبقى الحقول أسفل غير مفعلة

 

Stat_S_I - Copie.rar