Re: dynamic drop downs by Greg
Greg
Tue Mar 20 13:51:59 CDT 2007
Your welcome. I looks like if you had checked back earlier you might
have saved about 5 hours of search time ;-)
On Mar 20, 12:25 pm, lumpy04 <lump...@discussions.microsoft.com>
wrote:
> Thank you very much for your reply. The code worked beautifully, and ended a
> 6 hour internet browsing marathon for the solution.
>
>
>
> "Greg Maxey" wrote:
> > I assume that you are using a UserForm?
>
> > Private Sub Image_Change()
> > Select Case Me.Image.Value
>
> > Case "IPSD Base"
> > With Me.Project
> > .Clear
> > .AddItem "N/A"
> > End With
> > Case "CPSE Base"
> > With Me.Project
> > .Clear
> > .AddItem "N/A"
> > End With
> > Case "CPSE Development"
> > With Me.Project
> > .Clear
> > .List = Split(" ,AMA,ATHN,Feller,Future
> > Phoeni,Janus,K700,KMS,MEGA,PSD,SEBR", ",")
> > End With
> > End Select
> > End Sub
> > Private Sub UserForm_Initialize()
> > Me.Image.List = Split("IPSD Base,CPSE Base,CPSE Development", ",")
> > End Sub
>
> > On Mar 19, 11:05 am, lumpy04 <lump...@discussions.microsoft.com>
> > wrote:
> > > I trie d this code:
>
> > > Private Sub Project_Change()
> > > If Image.Text = "IPSD Base" Then
> > > Project.List = Array("NA")
> > > Else
> > > If Image.Text = "CPSE Base" Then
> > > Project.List = Array("NA")
> > > Else
> > > If Image.Text = "CPSE Development" Then
> > > Project.List = Array(" ", "AMA", "ATHN", "Feller", "Future
> > > Phoenix", "Janus", "K700", "KMS", "MEGA", "PSD", "SEBR")
> > > End If
> > > End If
> > > End If
> > > End Sub
>
> > > It compiles ok, but is not dynamic. Basically, 2 drop down boxes,: "Image"
> > > and "Project". I would like the choices in "Project" to be dependant on the
> > > choice in "Image"- Hide quoted text -
>
> - Show quoted text -