vbamania.pl
login:
hasło:
 
  *Rejestracja *Zapomniane hasło
 Dziś jest niedziela, 12 maja 2024 roku.
Ustaw jako stronę startową Ulubione Napisz
PowrótPowrót do serwisu  RegulaminRegulamin rssRSS

  tytuł wątku:
Wątki dyskusji

formularz z comboboxami


otwartyotwarty rozpoczął: qrak postów: 3



napisał: admin
postów: 613


umieszczony:
18 lipca 2005
16:01

  
Cytat:
Dzięki za pomoc ale metodą prób i błędow sam doszedłem. Problem okazał sie banalnie prosty. Mimo wszystko dziękuje

A moze zamieścisz swoje rozwiązanie?
napisał: qrak
postów: 4


umieszczony:
16 lipca 2005
12:19

  
Dzięki za pomoc ale metodą prób i błędow sam doszedłem. Problem okazał sie banalnie prosty. Mimo wszystko dziękuje
napisał: qrak
postów: 4


umieszczony:
15 lipca 2005
13:30

  
Mam problem a mianowicie mam przykładowy formularz z 3 comboboxami nazwanymi odpowiednio combobox1, combobox2, combobox3 i textboxem textbox1. problem polega na tym iz wartosci do drugiego comboboxa wpisywane są dopiero po wybramiu produktu z 1(z tym sobie poradziłem bezproblemowo) zaś trzeci combo box ma być uzależniony od tych dwóch np: w pierwszym kombi wybieram mleko w drugim pojawia sie 2% i 3,2%, jesli wybiore 2% w 3 kombi pojawi się 1 litr a jeśli wybiore 3,2% pojawi sie 0,5 litra i 1 litr(z tym sobie nie radze). W textboxie po wybraniu wszystkiego np:mleko 3,2% 0,5 litra ma pojawić się cena przypisana do mleka 3,2% w pól litrowym opakowaniu pobrana z cennika np komórki b6
oto kod co już zrobiłem (oczywiście to tylko przykład dla łatwiejszego zrozumienia problemu)
Private Sub ComboBox1_Change()
If ComboBox1.Value = "wybierz produkt" Then
ComboBox2.Clear
ComboBox2.List = Array("wybierz produkt")
ComboBox2.ListIndex = 0
ElseIf ComboBox1.Value = "śmietana" Then
ComboBox2.Clear
ComboBox2.List = Array("10%", "18%", "18%", "30%")
ElseIf ComboBox1.Value = "mleko" Then
ComboBox2.Clear
ComboBox2.List = Array("2%", "3,2%")
End If
End Sub

Private Sub UserForm_Initialize()
ComboBox1.List = Array("wybierz produkt", "śmietana", "mleko")
ComboBox1.ListIndex = 0
ComboBox2.List = Array("wybierz produkt")
ComboBox2.ListIndex = 0
ComboBox3.List = Array("wybierz produkt")
ComboBox3.ListIndex = 0
End Sub


prosze o pomoc i z góry dziękuje


<-wstecz  1  dalej->
wszystkich stron: 1


Sortuj posty: z