Tab form - How to disbale controls on LoseFocus

[darinmc]

Hi
I have a tab control form and the below code, when clicking a cmd button, enables controls on a form when i want to change records.

Is there a way to disable those controls when I click on another tab? Using the losefocus command. However I can only see Onclick or mousemove etc

Private Sub cmdChgAccount_Click()
Dim ctl As Control
For Each ctl In Me
If ctl.Tag = "Bank" Then
ctl.Enabled = True
'ctl.Locked = Not (ctl = "" Or IsNull(ctl))
End If
Next ctl
End Sub

Thx for ur help
Darin

 

[MajP]

Use the on change event of a tab control. The value of a tab control is equal to the index of the tab.

To see this work type something like:

Private Sub TabCtl0_Change()
MsgBox Me.TabCtl0.Value
End Sub

 

[darinmc]

Thanks, that help and by using below code, got the basics working.

Private Sub TabCtl0_Change()
Dim ctl As Control
 'MsgBox Me.TabCtl0.Value
' Page Index = 1
If Me.TabCtl0.Value = 1 Then
For Each ctl In Me
If ctl.Tag = "Bank" Then
ctl.Locked = True
End If
Next ctl
End If
End Sub

thx