Disabling controls 2

[ind]

I have the following code:<br>Private Sub strActive_AfterUpdate()<br>Dim ctl As Control<br><br>For Each ctl In Forms!frmCustomers<br>&nbsp;&nbsp;&nbsp;&nbsp;If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox And strActive = 0 Then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;With ctl<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Enabled = False<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End With<br>&nbsp;&nbsp;&nbsp;&nbsp;End If<br>&nbsp;&nbsp;&nbsp;&nbsp;If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox And strActive = -1 Then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;With ctl<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Enabled = True<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End With<br>&nbsp;&nbsp;&nbsp;&nbsp;End If<br>Next<br>End Sub<br><br>This function only disables the comboboxes and not the textboxes. How can I make it do both??<br><br>Thanks for the Help!

 

[JimConrad]

Try this...<br><FONT FACE=monospace><br>Private Sub strActive_AfterUpdate()<br>Dim ctl As Control<br><br>For Each ctl In Forms!frmCustomers<br>&nbsp;&nbsp;&nbsp;&nbsp;If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If strActive = 0 Then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ctl.Enabled = False<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Else<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ctl.Enabled = True<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If<br>&nbsp;&nbsp;&nbsp;&nbsp;End If<br>Next<br>End Sub<br></font><br> <p>Jim Conrad<br><a href=mailto:JimConrad@Consultant.com>JimConrad@Consultant.com</a><br><a href= > </a><br>

 

[kathryn]

Have you tried using parentheses?<br><br>If (TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox) And strActive = 0 Then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>Kathryn<br><br>

 

[ind]

Thank you both <br>Each method worked great