Combo Box

[Spec01]

Hello Everyone,

I have a database that Keeps track of Black Berry's and I have 2 drop down lists for them.

1st - cboBlackBerry - Yes, NO

2nd - cboBlackBerryModel - etc

What I would like to do is if the cboBlackBerry is set to No, Then I would like the cboBlackBerryModel to be locked. If cboBlackBerry is set to "Yes" then I want cboBlackBerryModel to be accessable. If anyone knows how to do this and could help me out it would be greatly appreciated.

Thanks,

 

[ZmrAbdulla]

Private Sub cboBlackBerry_AfterUpdate()
    Me.cboBlackBerryModel.Enabled = False = Me.cboBlackBerry = "Yes"
End Sub

________________________________________________________
Zameer Abdulla
Help to find Missing people
There’s a world of difference between editorials and advertorials

 

[PHV]

In the AfterUpdate event procedure of cboBlackBerry and int he Current event procedure of the form:
Me!cboBlackBerryModel.Locked = (Me!cboBlackBerry = 'No')

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[ZmrAbdulla]

Sorry typed wrong..
PHV is right..


________________________________________________________
Zameer Abdulla
Help to find Missing people
There’s a world of difference between editorials and advertorials

 

[PHV]

PHV is right
Surely better with double (instead of single) quotes ...

 

[Spec01]

Hey People,

I tried both of these suggestions and they both were not successful. If you guys have anymore idea that would be great.

Thanks,

 

[Spec01]

Opps My mistake PHV your right....just had to change it to a Double Quote...Thanks

Most appreciated towards everyone help.

 

[ZmrAbdulla]

And This?

Private Sub cboBlackBerry_AfterUpdate()
    Me.cboBlackBerryModel.Locked = Me.cboBlackBerry.Value = "No"
End Sub

this will work if your "cboBlackBerry" has only one column or the bound column's data is "Yes"/"No"

________________________________________________________
Zameer Abdulla
Help to find Missing people
There’s a world of difference between editorials and advertorials

 

[BSman]

Or do this:
In the design of your form, set the visible property of cboBlackBerryModel to false (no) so that it will only be displayed when someone has a BlackBerry.

In the AfterUpdate property of cboBlackBerry, put this code:

if me.cboBlackBerry = "Yes" then
me.cboBlackBerryModel.visible = True
else
me.cboBlackBerryModel.visible = False
end if


Bob S.