[RESOLVED] Combo trick?

[nazario]

Once again hello,

First id look for some particular thread which is similar to my app, but i stumble on an empty wall, here's what i want to do i have combo1 and combo2 , when the user select combo1 and choose a particular list on it " combo1" eg.

here is list in combo1 ----- Action
Suspence
Thriller
Drama
when the user select "Action"

combo 2 would display all the list in "Action" Movie
------Die Another Day
------Italian Job
------MI3



please see attached file thank you once again.

------------------------------------------
Private Sub Combo1_DropDown()
Combo1.Clear
Combo1.AddItem "Action"
Combo1.AddItem "Drama"
Combo1.AddItem "Comedy"
End Sub

[ganeshmoorthy]

i could not see your attachement as i do not have that facility in my system...could you post what is your problem

[d3gerald]

do you mean to do this

Private Sub Combo1_Click()
    Combo2.Clear
    If Combo1.Text = "Action" Then
        'ad list of action films here
        Combo2.AddItem "Die Another Day"
        Combo2.AddItem "Italian Job"
        Combo2.AddItem "MIB"
    ElseIf Combo1.Text = "Drama" Then
        'add list of drama films here
    Else
        'add list of comedy films here
    End If
End Sub
 
Private Sub Form_Load()
    Combo1.Clear
    Combo1.AddItem "Action"
    Combo1.AddItem "Drama"
    Combo1.AddItem "Comedy"
End Sub

[nazario]

Private Sub Combo1_Click()
Combo2.Clear
If Combo1.Text = "Action" Then
'ad list of action films here
Combo2.AddItem "Die Another Day"
Combo2.AddItem "Italian Job"
Combo2.AddItem "MIB"
ElseIf Combo1.Text = "Drama" Then
Combo2.AddItem "alone"
Combo2.AddItem "my foe"
Else

ElseIf Combo1.Text = "Comedy" Then
Combo2.AddItem "Bruce almighty"
Combo2.AddItem "Stuart little"

End Sub

Private Sub Form_Load()
Combo1.Clear
Combo1.AddItem "Action"
Combo1.AddItem "Drama"
Combo1.AddItem "Comedy"
End Sub




why i do get this error

"else if with error", i mis something here right?

by the way ganes, its like a selection with condition master d3gerald is correct but i know missd some "if" or else statement here.

cheers

[pnish]

See the red bit

Private Sub Combo1_Click()
    Combo2.Clear
    If Combo1.Text = "Action" Then
        'ad list of action films here
        Combo2.AddItem "Die Another Day"
        Combo2.AddItem "Italian Job"
        Combo2.AddItem "MIB"
    ElseIf Combo1.Text = "Drama" Then
        'add list of drama films here
    Else
        'add list of comedy films here
    [color=red]End If[/color]     ' This should be End If NOT End Sub
End Sub
 
Private Sub Form_Load()
    Combo1.Clear
    Combo1.AddItem "Action"
    Combo1.AddItem "Drama"
    Combo1.AddItem "Comedy"
End Sub

[d3gerald]

the problem lies with the elseif you have after the else. you cannot put elseif after else.

yet you can do the other way around
elseif.....
elseif....
else

then also make sure that if you have an if opening statement, you must have an end if as its closing

[nazario]

Private Sub Combo1_Click()
Combo2.Clear
If Combo1.Text = "Action" Then
'ad list of action films here
Combo2.AddItem "Die Another Day"
Combo2.AddItem "Italian Job"
Combo2.AddItem "MIB"
ElseIf Combo1.Text = "Drama" Then
Combo2.AddItem "alone"
Combo2.AddItem "fear"

ElseIf Combo1.Text = "Comedy" Then
Combo2.AddItem "bruce"
Combo2.AddItem "stuart little"
Else
End If

End Sub

Private Sub Form_Load()
Combo1.Clear
Combo1.AddItem "Action"
Combo1.AddItem "Drama"
Combo1.AddItem "Comedy"
End Sub

walla thanks master i got it right your heaven sent....
i hope this thread can help other too.

cheers...:-)

[Tamgovb]

Hi
It's my suggest:

Option Explicit
Dim i%
Private Sub Combo1_Click()
 
   For i = 0 To Combo2.ListCount - 1
      Combo2.RemoveItem 0
   Next
   
   If (Combo1.ListIndex = 0) Then
      Call Load_One
   ElseIf (Combo1.ListIndex = 1) Then
      Call Load_Two
   Else
      Call Load_Three
   End If
   
End Sub
 
Private Sub Load_One()
Combo2.AddItem "Womans"
Combo2.AddItem "Teri"
Combo2.AddItem "Tania"
Combo2.AddItem "Tina"
Combo2.AddItem "Theodory"
Combo2.ListIndex = 0
End Sub
 
Private Sub Load_Two()
Combo2.AddItem "Mens"
Combo2.AddItem "Rudolf"
Combo2.AddItem "Robert"
Combo2.AddItem "Richard"
Combo2.AddItem "Rod"
Combo2.ListIndex = 0
End Sub
Private Sub Load_Three()
Combo2.AddItem "Childs"
Combo2.AddItem "Kiki"
Combo2.AddItem "Nico"
Combo2.AddItem "Jesee"
Combo2.AddItem "Kes"
Combo2.ListIndex = 0
End Sub