נעילת ושחרור שדות

[simbez43]

נעילת ושחרור שדות

שלום, שמתי לחצן בטופס אקסס ואני מעוניין שבלחיצה אחת ינעלו כל שדות הטופס לעריכה ובלחיצה שנייה ישוחררו כל שדות הטופס. הצבתי לחצן ומאחוריו את הקוד הבא באירוע לחיצה :

Private Sub cmdEnaDis_Click() If Me.cmdEnaDis.Caption = "Enable" Then For Each ctl In Me.Controls If TypeOf ctl Is TextBox Or ComboBox Or Memo Then ctl.Enable = False Else End If Next ctl Me.cmdEnaDis.Caption = "Disable" Else For Each ctl In Me.Controls If TypeOf ctl Is TextBox Then ctl.Enable = True Else End If Next ctl Me.cmdEnaDis.Caption = "Enable" End If End Sub​

מה לא בסדר בקוד, הוא לא עובד, אשמח מאו דלעזרה, יריב

 

[פאשה0]

קודם כל תמיד עדיף לפרק מה הבעיה

במקרה נראה לי שהבעיה היא ב-if שצריך לרשום אותו ככה:

If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Or TypeOf ctl Is Memo Then​

 

[simbez43]

תודה

שבת שלום