[RESOLVED] Combo trick?

1 Attachment(s)

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

Re: Combo trick?

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

Re: Combo trick?

do you mean to do this

VB Code:

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

Re: Combo trick?

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

Re: Combo trick?

See the red bit

VB Code:

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

Re: Combo trick?

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

Re: Combo trick?

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...:-)

Re: [RESOLVED] Combo trick?

Hi
It's my suggest:

VB Code:

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

:wave: