Combo Box Enable Question!

#10 (**permalink**) 28-Jul-2006, 08:18 AM

Ok I put dougs code in code behind the form should I have to do anything
else, because i cant seem to get it to work...Thanks Bob

"strive4peace" <"strive4peace2006 at yahoo dot com"> wrote in message
news:eeIS$h2iGHA.3884@TK2MSFTNGP04.phx.gbl...
> Hi Bob,
>
> the LockClient code needs to be behind your form
>
> from the menu, when you are in the deign view of your form:
>
> View, Code
>
> You can also use the code that Doug gave you -- they both do the same
> thing. Doug's code is more efficient, but I was not sure how much you
> program, so mine is longer.
>
> Warm Regards,
> Crystal
> Microsoft Access MVP 2006
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/information-technology/10944-combo-box-enable-question.html
>
> *
> Have an awesome day

>
> remote programming and training
> strive4peace2006 at yahoo.com
>
> *
>
> Bob wrote:
>> Do I put this code at the very end of the other codes?
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=10944
>> And still cant find:
>> on the form OnCurrent event -->
>> =LockClient()
>>
>> Regards Bob
>>
>> "strive4peace" <"strive4peace2006 at yahoo dot com"> wrote in message
>> news:%23wY6deeiGHA.4140@TK2MSFTNGP03.phx.gbl...
>>
>>>Hi Bob,
>>>
>>>of course...
>>>
>>>in the code behind your form, create this:
>>>
>>>'~~~~~~~~~~~~
>>>Private Function LockClient()
>>> dim mBoo as boolean
>>> if nz(cbStatus, "Active") = "Active" then
>>> mBoo = true
>>> else
>>> mBoo = false
>>> endif
>>> me.cbOwnerID.enabled = mBoo
>>>End Function
>>>'~~~~~~~~~~~~
>>>
>>>on the AfterUpdate event of cbStatus -->
>>>=LockClient()
>>>
>>>on the form OnCurrent event -->
>>>=LockClient()
>>>
>>>Warm Regards,
>>>Crystal
>>>Microsoft Access MVP 2006
>>>
>>> *
>>> Have an awesome day

>>>
>>> remote programming and training
>>> strive4peace2006 at yahoo.com
>>>
>>> *
>>>
>>>Bob wrote:
>>>
>>>>I have a form that has a combo Box that has 2 options in Row source
>>>>(Active &
>>>>Finished)cbStatus, and another combo box that list clients, is possible
>>>>to
>>>>lock The clients Combo Box cbOwnerID when it is in active mode (Enable
>>>>No)
>>>>when in finished mode (Enable Yes)
>>>>
>>>>Thanks in advance.........Bob Vance
>>
>>