Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Help !!! My code is not working as expected.
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 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Help !!! My code is not working as expected.
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 On Aug 30, 3:20 pm, Ayo wrote: 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 |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Help !!! My code is not working as expected.
Thanks Mike. That fixed it.
"Mark Lincoln" wrote: 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 On Aug 30, 3:20 pm, Ayo wrote: 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 |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Help !!! My code is not working as expected.
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... ----------------------------------------------------------------------- "Ayo" wrote in message ... Thanks Mike. That fixed it. "Mark Lincoln" wrote: 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 On Aug 30, 3:20 pm, Ayo wrote: 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Iserror not working as expected | Excel Worksheet Functions | |||
Auto Fill - working as expected? | New Users to Excel | |||
=NETWORKDAYS not working as expected and as it once did | Excel Worksheet Functions | |||
Lookup Not working as expected | New Users to Excel | |||
Application.Volatile not working as expected | Excel Discussion (Misc queries) |