Seite 1 von 1

Hilfe bei der Erstellung einer Suchfunktion

Verfasst: Fr, 03.12.2010 19:58
von 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?

Re: Hilfe bei der Erstellung einer Suchfunktion

Verfasst: Sa, 04.12.2010 19:27
von 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

Re: Hilfe bei der Erstellung einer Suchfunktion

Verfasst: So, 05.12.2010 11:25
von Baserookie
Perfekt!

Danke Axel, hast mir den Tag gerettet :o)

schönen 2ten Advent

Grüße,
Peter