Olá,
Tenho o procedimento abaixo para usar em dois controles através da chamada Call Habilita, acontece que só funciona no controle que esta no form Principal, quando clico no Comando do SubForm dá erro de Função ou sub não definida, será que é possível fazer isso?
Public Sub Habilita()
If Me.Comando43.Caption = "Habilita" Then
Me.SubEntrevistado.Enabled = True
Dim ctr As Control
For Each ctr In Forms("FormGeral").Controls
With ctr
If .ControlType = acTextBox Or .ControlType = acComboBox Then
.Enabled = True
End If
End With
Next ctr
Me.TxtPesquisa.SetFocus
Me.Comando43.Caption = "Desabilita"
Else
Me.SubEntrevistado.Enabled = False
Dim ctra As Control
For Each ctra In Forms("FormGeral").Controls
With ctra
If .ControlType = acTextBox Or .ControlType = acComboBox Then
.Enabled = False
End If
End With
Next ctra
Me.Comando43.Caption = "Habilita"
End If
End Sub
Desde já agradeço.
Tenho o procedimento abaixo para usar em dois controles através da chamada Call Habilita, acontece que só funciona no controle que esta no form Principal, quando clico no Comando do SubForm dá erro de Função ou sub não definida, será que é possível fazer isso?
Public Sub Habilita()
If Me.Comando43.Caption = "Habilita" Then
Me.SubEntrevistado.Enabled = True
Dim ctr As Control
For Each ctr In Forms("FormGeral").Controls
With ctr
If .ControlType = acTextBox Or .ControlType = acComboBox Then
.Enabled = True
End If
End With
Next ctr
Me.TxtPesquisa.SetFocus
Me.Comando43.Caption = "Desabilita"
Else
Me.SubEntrevistado.Enabled = False
Dim ctra As Control
For Each ctra In Forms("FormGeral").Controls
With ctra
If .ControlType = acTextBox Or .ControlType = acComboBox Then
.Enabled = False
End If
End With
Next ctra
Me.Comando43.Caption = "Habilita"
End If
End Sub
Desde já agradeço.