Hilfe bei der Erstellung einer Suchfunktion

[Baserookie]

Hallo liebe OOo Gemeinde,

ich bin absoluter Neuling, habe eine Frage:

Ich habe mir eine Tabelle, eine Abfrage und ein Formular erstellt (Bild)
jetzt habe ich das Listenfeld mit den Daten der ersten Spalte der Abfrage gesetzt, und möchte nun
nachdem die Nummer ausgewählt ist den gesammten aktuellen Datensatz zu dieser Nummer angezeigt haben, ohne
diese zu ändern, nur anzeigen. Ich vermute ich brauche ein Makro, aber wie sieht das aus....
Kann mir bitte jemand weiter helfen?

[Axel Richter]

Hallo,

folgendes Makro dem Ereignis "Modifiziert" des Listenfeldes zuordnen:

Code: Alles auswählen

Sub Listenfeld_Modifiziert(event)

 listenfeld = event.Source
 
 auswahl = listenfeld.SelectedItem
 
 formular = listenfeld.Model.Parent
 
 spaltennummer = formular.findColumn("ID")
 
 datensaetze = formular.createResultSet()
 
 datensaetze.beforeFirst() 
 do while datensaetze.next()     
  kunden_code = datensaetze.getString(spaltennummer)
  if kunden_code = auswahl then exit do
 loop
 
 if not (datensaetze.isBeforeFirst() or datensaetze.isAfterLast()) then
  datensatz = datensaetze.getBookmark()
  formular.moveToBookmark(datensatz)
 endif

End Sub

Den Spaltennamen Deines ID-Feldes musst Du ggf. anpassen.

viele Grüße

Axel

[Baserookie]

Perfekt!

Danke Axel, hast mir den Tag gerettet )

schönen 2ten Advent

Grüße,
Peter