'*' automatisch anfügen

Computer: Software & Programmierung Microsoft Access
1

Hallo Gemeinde,

ich habe ein Formular das eine Abfrage ausführt. In einem Feld wird nach Namen gesucht.

Z.B. „Bert*“

Was kann ich machen, dass ich nicht ständig den Stern eingeben muss, dass er also automatisch eingefügt wird?

Vielen Dank für Eure Lösungsvorschläge,
Hans

2

Hallo,

wenn ich mal Deine Methode zum Suchen richtig deute, dann schreib in der Abfrage als Kriterium:

Wie „*“ & Forms!DeinFormular!Suchfeld & „*“

asd

3

Wie „*“ & Forms!DeinFormular!Suchfeld & „*“

Vom Prinzip her funktioniert es. Nur das ich jetzt jedesmal beim Öffnen des Formulars nach Parametern gefragt werde.

Gebe ich sofort was ein, funktioniert es.

Gebe ich keine ein, zeigt das Formular alle Datensätze ein. Soweit auch ok.

Wenn ich nun jedoch das Formular zum Suchen verwende, also in den formularbasierten Filter gehe, wird nun jedesmal wieder nach dem Parameter gefragt, selbst wenn wenn im betreffenden Feld im Formular schon ein Eintrag vorhanden ist und das Ergebnis der Suche ist dann Leer.

Grüsse,
Hans

4

Hallo,

naja, habe ja geschrieben, daß ich Deine Suchmethode nur „interpretiere“

  1. vergiss den Formularbasierten Filter

  2. Benutz für die Datenherkunft des Forms keine Abfrage, sondern die Tabelle.

  3. Erstelle ein ungebundenes Textfeld („txtSuchen“) und benutze die folgende Ereignisprozedur für das Ereignis „Nach Aktualisierung“ des Textfeldes:

Sub txtSuchen_Afterupdate()
Me.Filter=„DeinTabellenfeld like '*“ & Me!txtSuchen & „*’“ 'im Fall daß „DeinTabellenfeld“ vom Datentyp Text ist.
Me.Filteron=true
End Sub

Viele Grüße vom Bodensee
Franz , DF6GL

PS: Feedback erwünscht!

5

  1. Benutz für die Datenherkunft des Forms keine Abfrage,
    sondern die Tabelle.

  2. Erstelle ein ungebundenes Textfeld („txtSuchen“) und
    benutze die folgende Ereignisprozedur für das Ereignis „Nach
    Aktualisierung“ des Textfeldes:

Sub txtSuchen_Afterupdate()
Me.Filter=„DeinTabellenfeld like '*“ & Me!txtSuchen & „*’“
'im Fall daß „DeinTabellenfeld“ vom Datentyp Text ist.
Me.Filteron=true
End Sub

Hallo Franz,

das habe ich gemacht. Nur kann ich in den anderen Feldern weiterhin mit Wildcard suchen und ein Ergebnis wird angezeigt. Im von Dir vorgeschlagenen Textfeld ist leider keine Eingabe möglich und es wird auch nichts angezeigt, wenn ich in den gebunden Feldern per Wildcard gesucht habe und ein Datensatz gefunden wurde.

Die Formulareigenschaften sind im Reiter Daten wie folgt eingestellt:

Filter zulassen: Ja
Bearbeitung zulassen: Nein
Löschen zulassen: Nein
Anfügen zulassen: Nein
Daten eingeben: Nein
Recordsettyp: Dynaset
Datensätze sperren: Keine Sperrungen
Sandartwerte abrufen: Ja

Für das ungebundene Textfeld sind die Eigenschaften im Reiter Daten wie folgt eingestellt:

Aktiviert: Ja
Gesperrt: Nein
Filter anwenden: Datenbankstandard

Grüsse aus Osnabrück,
Hans