Help !!! My code is not working as expected.

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

The following snippet of code is suppose to loop through all the
CommandButton controls on a Multipage control on a form and change the
Enabled property of those CommandButton to True if there is a Value in the
ComboBox "cmbDrive". Otherwise the CommadButton controls should be Disabled.

My problem is that I keep getting an "Object required" error message. I
don't know what I did wrong. If there is anyone out there that knows what is
wrong or how I can code this better, please HELP !!!

Private Sub cmbDrive_AfterUpdate()
If cmdDrive.Text <> "" Then
For Each ctl In frmOpenFiles.Controls
If TypeName(ctl) = "CommandButton" And ctl.Enabled = False Then
ctl.Enabled = True
End If
Next ctl
ElseIf cmdDrive.Value = "" Then
For Each ctl In frmOpenFiles.Controls
If TypeName(ctl) = "CommandButton" And ctl.Caption <> "Cancel"
Then
ctl.Enabled = False
End If
Next ctl
End If
End Sub
 
Your statement of the problem refers to a ComboBox called "cmbDrive,"
but your code references "cmdDrive." That is, the third letter is
different. Does the code use the correct control name?

Mark Lincoln
 
Thanks Mike. That fixed it.

Mark Lincoln said:
Your statement of the problem refers to a ComboBox called "cmbDrive,"
but your code references "cmdDrive." That is, the third letter is
different. Does the code use the correct control name?

Mark Lincoln
Click to expand...
 
Ayo,

You should use "Option Explicit" at the top of all your modules. That will catch errors
like this. In the VBE, Tools - Options - Editor tab, "Require variable declaration" will
put that in all new modules, but I don't think it changes it after the modules have been
created.

--
Earl Kiosterud
www.smokeylake.com

Note: Top-posting has been the norm here.
Some folks prefer bottom-posting.
But if you bottom-post to a reply that's
already top-posted, the thread gets messy.
When in Rome...
-----------------------------------------------------------------------
 
Back
Top