collapse

* Benutzer Info

 
 
Willkommen Gast. Bitte einloggen oder registrieren. Haben Sie Ihre Aktivierungs E-Mail übersehen?

* Wer ist Online

  • Punkt Gäste: 46
  • Punkt Versteckte: 1
  • Punkt Mitglieder: 3
  • Punkt Benutzer Online:

* Forenstatistik

  • stats Mitglieder insgesamt: 13856
  • stats Beiträge insgesamt: 64954
  • stats Themen insgesamt: 8760
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 16
  • stats Am meisten online: 415

Autor Thema: Werte in ungebundenen Feld ausgeben  (Gelesen 157 mal)

Offline KaterRamses

  • Newbie
  • Beiträge: 11
Werte in ungebundenen Feld ausgeben
« am: Januar 22, 2018, 22:09:59 »
Hallo, ich habe ein ungebundenes Feld in dem Werte angezeigt werden sollen, die zuvor durch Eingabe einer Filialnr. im Feld Zahlsuchen oder durch eingabe des Filialnamen in txtSuchen gefiltert werden soll  Dazu habe ich folgenden Code erstellt. Leider funktioniert die Abfrage nicht mit dem Namen. In der Tabelle steht z.B. HOGW Welse. Wenn ich im Suchfeld Wels eingebe findet er den Wert nicht. Kann mir jemand eine Tipp geben wo der Fehler liegt.

Private Sub txtSuchen_Change()
 Dim strSuchbegriff As String
    'Suchbegriff in Variable speichern
    strSuchbegriff = Me!txtName.Text
    'Neue Datensatzherkunft zuweisen
   Me!lstFil.RowSource = "SELECT Filial_Name, Filial_ID, Alexa_ID, IP_Adresse FROM qry_all WHERE Alexa_ID LIKE '" & strSuchbegriff & "*'"
    'Inhalt des Listenfeldes aktualisieren
    Me!lstFil.Requery
End Sub
Private Sub Zahlsuchen_Change()
Dim strSuchbegriff As String
    'Suchbegriff in Variable speichern
    strSuchbegriff = Me!txtSuchen.Text
    'Neue Datensatzherkunft zuweisen
    Me!lstFil.RowSource = "SELECT Alexa_ID, Filial_ID, Filial_Name, IP_Adresse FROM qry_all WHERE Filial_Name LIKE '" & strSuchbegriff & "*'"
    'Inhalt des Listenfeldes aktualisieren
    Me!lstFil.Requery
End Sub
« Letzte Änderung: Januar 22, 2018, 22:53:46 von MzKlMu »
 

Offline MzKlMu

  • Moderator
  • Access-Oberguru
  • *****
  • Beiträge: 7087
Re: Werte in ungebundenen Feld ausgeben
« Antwort #1 am: Januar 22, 2018, 22:55:56 »
Hallo,
Du brauchst auch vor dem Suchstring den Joker (*).
...WHERE Alexa_ID LIKE '*" & strSuchbegriff & "*'"

PS:
Bitte benutze für Codedarstellungen die Codetags.
Habe ich oben in Deinem Beitrag noch nachgebessert.
Gruß
Klaus
 

Offline KaterRamses

  • Newbie
  • Beiträge: 11
Re: Werte in ungebundenen Feld ausgeben
« Antwort #2 am: Januar 23, 2018, 13:48:37 »
Vielen Dank. Hat Super funktioniert.