Supportnet / Forum / Datenbanken

Hi alle zusammen, ich probiere mich seit kurzen an Access. Leider mit nur duerftigen erfolg. Meine Frage: Ich habe eine Datenbank mit den Feldern KundenName (Adresse, Stadt usw), Claimnr, Retailer (Re Stadt, Adresse usw), Distributor (Stadt, adresse usw.). Diese Datenbank ist dann aufgeteilt so das ich eine Haupttabelle habe wo die ganzen Kundennamen stehen und wo die ID`s fuer die Retailer und Distributortabellen gespeichert sind. Jetzt moechte ich ein Suchabfrageformular erstellen welches einen ermoeglicht nach dem Namen zu suchen. Da ich aber manchmal mehrere Schmidts habe moechte ich das die Suchafrage mir eine Liste aller Schmidts mit Name CLaim nr und Retailername anzeigt die ist gibt. Von den ergebnissen kann ich dann eines anklicken und werde dann automatisch an das richtige Formular weitergeleitet. Ist das moeglich? Wenn ja waere ich fuer eine antwort sehr dankbar. Gruss Gunar

Hi Gunar,

selbstverständlich ist das möglich.

Angenommen, Du hast ein Hauptformular, welches Dir alle gewünschten Daten in der bevorzugten Form darstellt. Jetzt möchtest Du einen bestimmten Datensatz ansteuern, kennst aber nicht die ID des Datensatzes. Dann gehe wie folgt vor:

1. Erstelle ein neues Formular mit einem Textfeld für die Eingabe des Suchbegriffs, einem Button um die Suche auszulösen, einem Button zur Übernahme des gefundenen Datensatzes und eine ListBox zur Anzeige des Suchergebnisses.

2. Die ListBox erstellst Du mit folgenden Eigenschaften:

Abfragetyp: Tabelle/Abfrage
Anzahl Spalten: 2
Spaltenbreite: 0cm;5cm
Gebundene Spalte: 1

3. Im Klick-Ereignis des Such-Buttons setzt Du Dir die Datenherkunft Deiner ListBox zusammen:

Sub btSuchen_Click()
lstAuswahl.RowSource = "SELECT ID, fldName FROM tblKunden WHERE fldName LIKE '*" _
    & txSuchbegriff & "*'"
End Sub

4. Im Klick-Ereignis des Übernahme-Buttons liest Du die ID des selektierten Datensatzes und setzt hiermit den Datensatzzeiger in Deinem Hauptformular:

Sub btAuswahl_Click()
Dim f As Form
Set f = Forms!HauptFormular
f.RecordsetClone.FindFirst "ID=" & Me!lstAuswahl
f.Bookmark = f.RecordsetClone.Bookmark
DoCmd.Close
End Sub

Probier's einfach aus und wenn Du Fragen hast, meldest Du Dich noch mal.

Johnny

• Access Bericht mit mehreren Abfragen
• Access mit Excel verbunden und nun Abfrage
• Abfrage von mehreren Tabellen mit Access
• Access-Abfrage
• access abfrage