Combo Box der snakker sammen tekstfelt

du skal vel bare have en combo1_click() sub.

Og deri skal der stå:

Private Sub Combo1_Click()
Text1.Text = Combo1.Text
End Sub

Du skal så have en textbox kaldet text1 og din combobox skal hadde combo1.

Hvis jeg gør som du siger, vil mit vare nr. jo komme i både combo boksen, og i tekstfeltet, det skal være sådan så når jeg vælger vare nr. i comboboksen, at den så viser den tilhørende vare i tekstfeltet.

Private Sub Combo1_Click()
\' Jeg ved ikke om denne linje virker i VB, men den bruges i VBScript i ASP :)
rs.open \"Select * from [varer] where varenr = \" & combo1.text, dataconn

text1.text = rs(\"varenavn\")
rs.close

end sub

Du sætter text1.datasource til samme datasource som din combobox og text1.datafield til \"varenavn\".

>Kaffe

Når jeg gør sådan, så vil varen rigtigt nok komme i tekstfeltet. Men når jeg i min dropdown box vælger et nyt varenr fra listen (som jeg har angivet via Rowsource og listindex i ComboObjektet), så bliver den tilknyttede vare, fra det valgtenr i comboboksen, ikke opdateret i tekstfeltet.

Jeg tror ikke jeg ville køre textboxen over databasen, men helelre over combo\'en.

Sig til hvis du stadig mangler hjælp, så skal jeg kigge på det.

- Mikker

helelre?
Hvordan fanden er det jeg staver? :-)

- Mikker

Hej Mikker ! :))

Velkommen til spørgsmålet !!

hvad mener du, og hvordan gør jeg det du nævner ?

Hvilken form for combo bruger du?

- Mikker

Jeg mener hvad ville det gøre dig hvis det var en listbox?

Glem havd jeg skrev før, jeg tror nok jeg har forstået og løst dit problem ?!

Ingredienser:
1 form
1 db - 2 fields - Varenummer og varenavn
1 combo
1 textbox
1 data-objekt

Option Explicit

Private Sub Combo1_Click()
With Data1
.Recordset.MoveFirst
  Do While Not .Recordset.EOF
  If .Recordset(\"Varenummer\").Value = Combo1.Text Then
  Text1 = .Recordset(\"varenavn\")
  Exit Do
  End If
  .Recordset.MoveNext
  Loop
End With
End Sub

Private Sub Form_Load()
Dim dbdir As String
Dim i As Integer
dbdir = App.Path
If Right(App.Path, 1) <> \"\\\" Then dbdir = dbdir & \"\\\"
Data1.DatabaseName = dbdir & \"database.mdb\"
Data1.RecordSource = \"varer\"
Data1.Refresh
Data1.Recordset.MoveFirst
For i = 1 To 100
Combo1.AddItem Data1.Recordset(\"Varenummer\")
Data1.Recordset.MoveNext
Next i

End Sub


Jeg håbver godt nok det var det du ville have :-)
Men hvis ikke så har det da været sjovt at arbejde med combo :-)

- Mikker

En simpel løsning og uden brug af databaser ville være at have en usynlig combo, med varenavne i.
Hvis du f.eks har varenumrene i combo1 og varenavnene i combo2 kan du skrive:

Private Sub Combo1_Click()
Text1.Text = Combo2.List(Combo1.ListIndex)
End Sub

ovenstående forudsætter selvfølgelig at varenumre og varenavne har samme listindex i de to lister.

ups. det kunne være at jeg lige skulle læse spørgsmålet ordenligt en anden gang inden jeg svarer................

Koldstar>> Jeg kender kun alt for godt problemet :-)
Man bliver så opsat på at hjælpe, at man kun læser halvdelen af spørgsmålet :-)

- Mikker

Årh for he.....

Jeg har jo lavet en lykke i form_load, som ikke skulle have været der...

Istedet for: for i = 1 to 100
Skal du selvfølgelig lave en while not .eof ...
Det er da godt jeg har styr på hvad jeg laver :O)

- Mikker

så er den gal med stavningen igen.
Lykke? Ja det er den rene lykke!
Der skulle nok have stået lØkke ??
Nu bliver jeg sgu helt i tvivl.
Hvaaa Bierchen er du faldet af pinden eller hvad?

- Mikker

Tjaeee :)) Du må undskylde Mikker, jeg  skal nok lige tage mig sammen og kigge på det !!!!

Jeg sætter lige et spørgsmål herinde hvis jeg er i tvivl om det, men om ikke andet vil jeg gerne give dig point dor den meget tid du har taget dig under alle omstændigheder!!

.....for den meget........

Se nu først lige om det virker :-)

Vi skal sgu nok få den du :-)

- Mikker

Fed indstilling du har !

Ak ja, det ville nok også være for meget forlangt at få en tilbagemelding..

Jeg lever stadig, men du må stadig undskylde jeg ikke har fået tid til det. Jeg vil meget gerne kopiere dit svar ned i et dokument og gemme det til senere, så jeg kan acceptere dit svar.Mangler du pointene i forb. job ansøgning, acceptere jeg det gerne nu. Men hvis du kan vente, vil jeg gerne dette, så jeg kunne stille evt. yderligere relevante spørgsmål.
Mvh. Bjørn

Jeg kunne ikke få samlet mig om at færddiggøre projektet! Men ellers maneg tak for hjælpen ,og undskyld den, af jeres tid, som jeg måttet have spildt...!!!!!!!!