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

[abdulmajid]

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

 

مرفق لكم يا غالين نموذج رئيسي وفرعي وواضع امر تمكين وغير تمكين للحقول لاكن للاسف لا تستجيب  الا على النموذج الرئيسي والفرعي لا يستجيب الفرعة يا غالين 🙂

XorEnable.mdb

تم تعديل يناير 2, 2020 بواسطه abdulmajid

[أبوبسمله]

اتفضل اخى

شوف التعديل قمت بتغير اسم النموذج الفرعى ما علينا من ده

الاهم هو الاشاره للنموذج الفرعى frm.Controls

وليس  me.Controls لان كده بتشير للنموذج الرئيسى نفسه

Private Sub ÃãÑ10_Click()
On Error GoTo Err_ÃãÑ10_Click
Dim Ctl As Control
If Xx = 0 Then
Me.ÃãÑ10.Caption = "ÚÏã Êãßíä ÇáÚäÇÕÑ ÇáÓÇÈÞÉ"
For Each Ctl In frm.Controls
If Ctl.Tag = "en" Then
Ctl.Enabled = True
End If
Next
Xx = 1
Else
Me.ÃãÑ10.Caption = "Êãßíä ÇáÚäÇÕÑ ÇáÛíÑ ããßäÉ"
For Each Ctl In frm.Controls
If Ctl.Tag = "en" Then
Ctl.Enabled = False
End If
Next
Xx = 0
End If
Exit_ÃãÑ10_Click:
    Exit Sub

Err_ÃãÑ10_Click:
    MsgBox Err.Description
    Resume Exit_ÃãÑ10_Click
    
End Sub

تقبل تحياتى بالتوفيق

XorEnable_up.mdb

[abdulmajid]

يا سلام عليك كفوووو يا النشمي

 

الله يسعدك ويعزك ويوفقك يارب العالمين

تم تعديل يناير 2, 2020 بواسطه abdulmajid

[أبوبسمله]

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