Function OrtFinden(strName As String) As String
Dim DB As Database
Dim RS As Recordset
 
OrtFinden = ""
 
Set DB = workspaces(0).Opendatabase(App.Path & "\Adressen.mdb")
Set RS = DB.OpenRecordSet("Adressen")
 
Do until RS("Name") = strName
Tabelle.MoveNext
If RS.EOF Then MsgBox("Datensatz konnte nicht gefunden werden"):Exit Sub
Loop
 
OrtFinden = RS("Ort")
Loop
End Funtion
 
'Ort beim Listbox-Klick in ein Textfeld laden
Private Sub lstNamen_Click()
txtOrt.Text = OrtFinden(lstNamen.Text)
End Sub

Press any key to continue or any other key to quit...