Error 458 on opening form

[dabruins]

I am experiencing an error 458 "Variable uses an automation type not supported in Visual Basic" when opening a form. In the Form_Activate sub I call another sub setHOSfields() that enables/disables some check boxes on the form based upon the value of a related checkbox. This is where the error occurs but i cannot figure out why? Prior to calling this the arraysetup() has been initialized to contain a list of control names to check in this sub. If I move this call to the Form_Load() sub it doesn't error out but it also doesn't work because all of the controls are set to False anyway. Any ideas as to why this would fail?

Private Sub setHOSfields()
Dim ctl As Control

For i = 0 To UBound(arrsetup)
If Me.Controls(arrsetup(i) & "reqd") Then
Me.Controls(arrsetup(i) & "have").Enabled = True
Me.Controls(arrsetup(i) & "ordered").Enabled = True
Me.Controls(arrsetup(i) & "setup").Enabled = True
Else
Me.Controls(arrsetup(i) & "have").Enabled = False
Me.Controls(arrsetup(i) & "ordered").Enabled = False
Me.Controls(arrsetup(i) & "setup").Enabled = False
End If
Next i

End Sub

 

[traingamer]

Try doing it in the Current event instead.

Greg
"Personally, I am always ready to learn, although I do not always like being taught." - Winston Churchill

 

[dabruins]

I tried that traingamer but it lead to more problems due to other circumstances. I have since found that setting the control value to an instantiated variable allows me to perform comparisons on it and does seem to fix the problem as shown below.

Dim ctl As Control
Dim blnCtlVal As Boolean
For i = 0 To UBound(arrsetup)
blnCtlVal = Me.Controls(arrsetup(i) & "reqd").Value
If blnCtlVal Then
Me.Controls(arrsetup(i) & "have").Enabled = True
Me.Controls(arrsetup(i) & "ordered").Enabled = True
Me.Controls(arrsetup(i) & "setup").Enabled = True
Else
Me.Controls(arrsetup(i) & "have").Enabled = False
Me.Controls(arrsetup(i) & "ordered").Enabled = False
Me.Controls(arrsetup(i) & "setup").Enabled = False
End If
Next i

 

[TheAceMan1]

How are ya dabruins . . .

This is simply an example of cruching code. Compare code you've provided with the following:

[blue]   Dim [purple][b]Ping[/b][/purple] As Boolean
   
   For i = 0 To UBound(arrsetup)
      Ping = Me(arrsetup(i) & "reqd")
      Me.Controls(arrsetup(i) & "have").Enabled = [purple][b]Ping[/b][/purple]
      Me.Controls(arrsetup(i) & "ordered").Enabled = [purple][b]Ping[/b][/purple] 
Next[/blue]

See the difference!? . . .

See Ya! . . . . . .

 

[TheAceMan1]

Woops! . . . hit enter ahead of time:

[blue]   Dim [purple][b]Ping[/b][/purple] As Boolean
   
   For i = 0 To UBound(arrsetup)
      [purple][b]Ping[/b][/purple] = Me(arrsetup(i) & "reqd")
      Me.Controls(arrsetup(i) & "have").Enabled = [purple][b]Ping[/b][/purple]
      Me.Controls(arrsetup(i) & "ordered").Enabled = [purple][b]Ping[/b][/purple] 
Next[/blue]

See Ya! . . . . . .

 

[dabruins]

Hey AceMan.

Yeah I now see the difference. Looks like I was testing against the control itself and not it's value on my first attempt. This is essentially what I have done on the second go round and now works just fine.

Thanks.

 

[traingamer]

Missed that entirely

Greg
"Personally, I am always ready to learn, although I do not always like being taught." - Winston Churchill

 

[TheAceMan1]

and just a bit more crunching with:

[blue]   Dim [purple][b]Ping[/b][/purple] As Boolean
   
   For i = 0 To UBound(arrsetup)
      [purple][b]Ping[/b][/purple] = Me(arrsetup(i) & "reqd")
      Me(arrsetup(i) & "have").Enabled = [purple][b]Ping[/b][/purple]
      Me(arrsetup(i) & "ordered").Enabled = [purple][b]Ping[/b][/purple]
      Me(arrsetup(i) & "setup").Enabled = [purple][b]Ping[/b][/purple]
   Next[/blue]

See Ya! . . . . . .