Hej Hellstern !
Jeg har haft samme problem, og løste dengang problemet ved at lave 2 comboboxe ved siden af mine 2 textboxe til henholdsvis postnummer og Bynavn. I koden til hver combobox bruger jeg comboboxens listindex til at referer til data i den anden combobox.
Kode:
Private Sub Form_Load()
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(App.Path & \"\\testPostnr.mdb\")
Set rs = db.OpenRecordset(\"Postnumre\")
rs.MoveFirst
Do While Not rs.EOF
Combo1.AddItem rs!Postnummer
Combo2.AddItem rs!Bynavn
rs.MoveNext
Loop
End Sub
Private Sub Combo1_Click()
NyPerson(5).Text = Combo1.Text
NyPerson(6).Text = Combo2.List(Combo1.ListIndex)
End Sub
Private Sub Combo2_Click()
NyPerson(6).Text = Combo2.Text
NyPerson(5).Text = Combo1.List(Combo2.ListIndex)
End Sub
Når du vælger data i den ene combobox (f.eks. postnr), fyldes dine to textboxe med den valgte data og henholdvis den data (Bynavn) der hører til postnummeret. Du kan finde en færdig database med postnr og tilhørende bynavne på:
http://www.globe.dk/Download: Eksempler til \"Access 97 - trin for trin\"