Intelligente Suchabfrage Je nach Suchergebnis einen Treffer sofort oder bei mehreren Treffern zunächst eine Auswahlliste anzeigen...
Autor:   Michael Becker	Bewertung:     [ Jetzt bewerten ]	Views:  37.173
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 115 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 2.9 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Wenn Sie in Ihrem Programm eine Suchroutine integriert haben, bei der das Suchergebnis zunächst in Form einer Auflistung ausgegeben wird, so wäre es doch schön, wenn:

• eine Meldung erscheint, wenn kein Datensatz gefunden wurde
• bei exakt einem Treffer der Datensatz sofort angezeigt wird
• oder bei mehreren Treffern eben die gewünschte Auswahlliste erscheint

' Datenbankabfrage
SQL = "SELECT Name, Vorname, PLZ, Ort FROM tblAdressen WHERE _
  Nachname like '" + sName + "'"
 
Set Ds = Db.OpenRecordset(SQL, dbOpenDynaset, dbOpenForwardOnly)
If Ds.RecordCount > 1 Then
  ' mehrere Treffer -> Auswahlliste erstellen
  While Not Ds.EOF
    Liste.AddItem Ds(0)....
    Ds.MoveNext
  Wend
ElseIf Ds.RecordCount = 1 Then
  ' exakt ein Treffer
  ...
Else
  ' kein Treffer -> Hinweis anzeigen
  MsgBox "Keinen entsprechenden Datensatz gefunden!"
End If
Ds.Close
Set Ds = Nothing