Dependant Combo Box HELP

StevoGman

To Whomever Can Help Me,

I am a very inexperienced programmer, and I am trying to create a combo box that is dependant on another combo boxes answer.

For example:

I have a combo box (Study Abroad), a Catvar, with three picks Yes;No;Unknown. If yes is selected then the following combo box (Study Abroad Programs) becomes availible to choose picks from. If other two picks are selected Study Abroad Programs should become greyed out.

Currently, I am going into AfterUpdate and building a event procedure containing this code:

Private Sub Combo39_AfterUpdate()
Me![Study Abroad Programs].Enabled = Me![Study Abroad] = "Yes"
End Sub

Private Sub Combo39_Current()
Me![Study Abroad Programs].Enabled = Me![Study Abroad] = "Yes"
End Sub

I keep getting a Run-Time error '438' object does not support this property or method.

Please someone, I don't know what I a doing wrong. Any help would be greatly appreciated.

Thanks,

Stephen

PEB

Before loading your form in form view go to the properties to [Study Abroad] and check Enabled to No

Private Sub Combo39_AfterUpdate()
If Me![Study Abroad]="Yes" Then
Me![Study Abroad Programs].Enabled = True
else
Me![Study Abroad Programs].Enabled = False
end if
End Sub

Have a nice luck!

StevoGman

Peb said:

Quote:

Originally Posted by PEB

Before loading your form in form view go to the properties to [Study Abroad] and check Enabled to No

Private Sub Combo39_AfterUpdate()
If Me![Study Abroad]="Yes" Then
Me![Study Abroad Programs].Enabled = True
else
Me![Study Abroad Programs].Enabled = False
end if
End Sub

Have a nice luck!

I am still getting a run-time error as before. Also, shouldn't combo box Study Abroad Programs be Enabled to No? Otherwise I can't enter any data. Please any help would be greatly appreciated.

-Stephen

PEB

Whati is the run time error and on which line it appears?

StevoGman

Quote:

Originally Posted by PEB

Whati is the run time error and on which line it appears?

First I want to say thank you for all you help. I don't know what is going on, I must be doing something wrong. The error appears on the this line of code,

Me![Study Abroad Programs].Enabled = False

The error message is Run-Time Error '438': Object does not support this property or method.

Hopefully this information helps. Again thank you so much.

Sincerely,

Stephen

PEB

Ok!
Now try to change the code:

Private Sub Combo39_AfterUpdate()
If Me![Study Abroad]="Yes" Then
Me![Study Abroad Programs].Visible = True
else
Me![Study Abroad Programs].Visible = False
end if
End Sub

So for your [Study Abroad] Field the control is named Combo39 that isn't good at all!

Maybe the control where is bound [Study Abroad Programs] is named Combo41?

IF it is so, you have to replace Me![Study Abroad Programs].Visible with
Me![Combo41].Visible

Have a nice day!

:)

StevoGman

Peb,

Thank you so much. It worked perfectly. Thanks for all your help and time!

Sincerely,

Stephen

StevoGman

Peb,

I have another question maybe you could help me with. Here is the code I am using.

Private Sub Program_Interests_AfterUpdate()
Me![SA Programs interested in].Enabled = Me![Program Interests] = "Study Abroad"
Me![SA Programs interested in].Enabled = Me![Program Interests] = "Both"
Me![NSE Programs Interested in].Enabled = Me![Program Interests] = "NSE"
Me![NSE Programs Interested in].Enabled = Me![Program Interests] = "Both"
End Sub

What happens is, the picks "Study Abroad"; "NSE" no longer function. Instead just "Both" works. The idea being there are 4 picks Study Abroad, NSE, Both, and Unknown. So what I want is for the fields "NSE Programs interested in" and "SA Programs interested in" to only be availible to the picks NSE, Study Abroad, and Both. What I am trying to create is a dependant system with the picks. Only the code for "Both" seems to override the code for "Study Abroad" and "NSE". Any help would be greatly appreciated. Thank you so much.

-Stephen

PEB

Hi,

I don't think that this will work

1. Me![SA Programs interested in].Enabled have to be True or False and anything other

2. I don't understand what you want to do with an expression like this:

Me![SA Programs interested in].Enabled = Me![Program Interests] = "Study Abroad"

In certain languages I've seen the double equal but in VB I've never used!

If you want to set the value of

Me![SA Programs interested in].Enabled = "Study Abroad" - it is impossible!

AND to set

Me![Program Interests] = "Study Abroad"

simply write it! :)

if you want to make a condition do it as:

If Me![Program Interests] = "Study Abroad" Then Me![SA Programs interested in].Enabled=True

Hope that helps! :)

Quote:

Originally Posted by StevoGman

Peb,

I have another question maybe you could help me with. Here is the code I am using.

Private Sub Program_Interests_AfterUpdate()
Me![SA Programs interested in].Enabled = Me![Program Interests] = "Study Abroad"
Me![SA Programs interested in].Enabled = Me![Program Interests] = "Both"
Me![NSE Programs Interested in].Enabled = Me![Program Interests] = "NSE"
Me![NSE Programs Interested in].Enabled = Me![Program Interests] = "Both"
End Sub

What happens is, the picks "Study Abroad"; "NSE" no longer function. Instead just "Both" works. The idea being there are 4 picks Study Abroad, NSE, Both, and Unknown. So what I want is for the fields "NSE Programs interested in" and "SA Programs interested in" to only be availible to the picks NSE, Study Abroad, and Both. What I am trying to create is a dependant system with the picks. Only the code for "Both" seems to override the code for "Study Abroad" and "NSE". Any help would be greatly appreciated. Thank you so much.

-Stephen

StevoGman

Thanks again so much for your help, and I am sorry to bother you. I am so inexperienced! Here is another code set, that makes more sense, I used your example from before.

Private Sub Program_Interests_AfterUpdate()
If Me![Program Interests] = "Study Abroad" Then
Me![SA Programs interested in].Enabled = True
Else
Me![SA Programs interested in].Enabled = False
End If
If Me![Program Interests] = "NSE" Then
Me![NSE Programs Interested in].Enabled = True
Else
Me![NSE Programs Interested in].Enabled = False
End If
If Me![Program Interests] = "Both" Then
Me![SA Programs interested in].Enabled = True
Else
Me![SA Programs interested in].Enabled = False
End If
If Me![Program Interests] = "Both" Then
Me![NSE Programs Interested in].Enabled = True
Else
Me![NSE Programs Interested in].Enabled = False
End If
End Sub

Now, the problem is that the true false statement establed with the picks "NSE" and "Study Abroad" are no longer functioning according to the code. As if the "Both" coding is overriding them. Any help be greatly appreciated. Again, I am sorry to bother you. Thank you so much.

-Stephen

Quote:

Originally Posted by PEB

Hi,

I don't think that this will work

1. Me![SA Programs interested in].Enabled have to be True or False and anything other

2. I don't understand what you want to do with an expression like this:

Me![SA Programs interested in].Enabled = Me![Program Interests] = "Study Abroad"

In certain languages I've seen the double equal but in VB I've never used!

If you want to set the value of

Me![SA Programs interested in].Enabled = "Study Abroad" - it is impossible!

AND to set

Me![Program Interests] = "Study Abroad"

simply write it! :)

if you want to make a condition do it as:

If Me![Program Interests] = "Study Abroad" Then Me![SA Programs interested in].Enabled=True

Hope that helps! :)

PEB

Hi Steven

This time I'll suggest you other way to do this task! Using Select Case expression! This is simillar to if but more easier! See it!

Expand|Select|Wrap|Line Numbers

 
SELECT CASE Me![Program Interests] 

       CASE "Study Abroad"

         Me![SA Programs interested in].Enabled = True

       CASE "NSE"

         Me![NSE Programs Interested in].Enabled = True

       CASE "Both"

         Me![SA Programs interested in].Enabled = True

         Me![NSE Programs Interested in].Enabled = True

       CASE Else

         Me![SA Programs interested in].Enabled = False

         Me![NSE Programs Interested in].Enabled = False
 
END SELECT

Quote:

Originally Posted by StevoGman

Thanks again so much for your help, and I am sorry to bother you. I am so inexperienced! Here is another code set, that makes more sense, I used your example from before.

Private Sub Program_Interests_AfterUpdate()
If Me![Program Interests] = "Study Abroad" Then
Me![SA Programs interested in].Enabled = True
Else
Me![SA Programs interested in].Enabled = False
End If
If Me![Program Interests] = "NSE" Then
Me![NSE Programs Interested in].Enabled = True
Else
Me![NSE Programs Interested in].Enabled = False
End If
If Me![Program Interests] = "Both" Then
Me![SA Programs interested in].Enabled = True
Else
Me![SA Programs interested in].Enabled = False
End If
If Me![Program Interests] = "Both" Then
Me![NSE Programs Interested in].Enabled = True
Else
Me![NSE Programs Interested in].Enabled = False
End If
End Sub

Now, the problem is that the true false statement establed with the picks "NSE" and "Study Abroad" are no longer functioning according to the code. As if the "Both" coding is overriding them. Any help be greatly appreciated. Again, I am sorry to bother you. Thank you so much.

-Stephen

StevoGman

Hey Peb,

Thankyou so much for your help. The question I have is where do I enter this code, just into VB under the variable? Or somewhere else, because I copied the code over to VB, and it isn't functioning. I am sooo sorry to bother you. Thank you soooo much for all your help!

-Stephen

Quote:

Originally Posted by PEB

Hi Steven

This time I'll suggest you other way to do this task! Using Select Case expression! This is simillar to if but more easier! See it!

Expand|Select|Wrap|Line Numbers

 
SELECT CASE Me![Program Interests] 

       CASE "Study Abroad"

         Me![SA Programs interested in].Enabled = True

       CASE "NSE"

         Me![NSE Programs Interested in].Enabled = True

       CASE "Both"

         Me![SA Programs interested in].Enabled = True

         Me![NSE Programs Interested in].Enabled = True

       CASE Else

         Me![SA Programs interested in].Enabled = False

         Me![NSE Programs Interested in].Enabled = False
 
END SELECT

PEB

Hi,

No pb!

So the full code!

Expand|Select|Wrap|Line Numbers

  
Private Sub Program_Interests_AfterUpdate()

SELECT CASE Me![Program Interests] 

       CASE "Study Abroad"

         Me![SA Programs interested in].Enabled = True

       CASE "NSE"

         Me![NSE Programs Interested in].Enabled = True

       CASE "Both"

         Me![SA Programs interested in].Enabled = True

         Me![NSE Programs Interested in].Enabled = True

       CASE Else

         Me![SA Programs interested in].Enabled = False

         Me![NSE Programs Interested in].Enabled = False
 
END SELECT

End Sub

Is it more clear now? This is instaed using if, something like multi if

:)

Have a nice day!

Dependant Combo Box HELP

re: Dependant Combo Box HELP

re: Dependant Combo Box HELP

re: Dependant Combo Box HELP

re: Dependant Combo Box HELP

re: Dependant Combo Box HELP

re: Dependant Combo Box HELP

re: Dependant Combo Box HELP

re: Dependant Combo Box HELP

re: Dependant Combo Box HELP

re: Dependant Combo Box HELP

re: Dependant Combo Box HELP

re: Dependant Combo Box HELP

Similar Microsoft Access / VBA bytes

/bytes/development

/bytes/it

/bytes/about