Office: (Office 2010) Nach Datensatz filtern

Zeige uns bitte einen Screenshot des VBA-Fensters, in dem der Code steht, oder eine Kopie des Codes - beginnend bei "Option Compare...".

 

Moin zusammen,

also als ich heute das Suchfeld getestet hab, kam zwar keine Fehlermeldung mehr, aber es funktioniert noch immer nicht annährend...

es wird dann zwar etwas gefiltert, aber in allen Feldern erscheint ein #Name?

Screenshot vom VBA Code im Anhang


VG, Stephanjap

 

Hi,

wie lautet denn die Datenquelle des Formulars? Gibt es dort ein Datenfeld namens "herstellernummer"?

 

Sieht fast so aus, als sei mit der Datenbindung des Formulars was nicht in Ordnung ...

 

Datensatzquelle des Formulars ist die Tabelle "bemi" und ja dort gibt es ein Feld namens "herstellerNummer" @MaggieMay

@hcscherzer: dieses Problem habe ich aber ohne dieses Textfeld mit dem VBA-Code nicht. Dort werden dann alle Felddaten problemlos angezeigt.

 

Wenn du eine Beispiel-DB hochlädst an der man sich das ansehen kann, ließe sich der Fehler sicher finden.

 

Hallo,

wie funktioniert das Hochladen der Datenbank denn?

VG, Stephanjap

Edit: Da ich keine andere Idee hatte, hab ich die Datenbank bei Dropbox hochgeladen -> https://www.dropbox.com/s/b7f1o2n1vu...%29.accdb?dl=0

Die Datei müsstet ihr dann noch herunterladen von Dropbox (auf ... rechts oben gehen)

Edit2: Ich hab das Textsuchfeld sowohl in der Beispieldatenbank als auch in meiner richtigen eingebaut. Sie funktioniert aber noch nicht so, wie ich mir das vorstelle. Während bei meiner Beispiel-DB zwar ab und zu gefiltert wird, wird bei meiner richtigen DB nur zum nächsten Datensatz gesprungen. Alles noch irgendwie ein wenig merkwürdig.

 

Hallo,

vor dem Hochladen sollte die Datei komprimiert und gezippt werden, das spart Zeit und Platz.
Dann sollte eine Beispiel-DB nur aus den zum Nachstellen eines Problems benötigten Objekten bestehen.
Hier wäre also (eigentlich) erstmal der Hinweis erforderlich, um welches Formular es sich überhaupt handelt.

PS:
Der Fehler ist in deiner Test-DB nicht nachstellbar, das Filtern klappt problemlos.

 

Hallo,

ja du hast recht, bei der BeispielDB klappt alles problemlos. Aber bei der DB mit richtigen Daten will das einfach überhaupt nicht funktionieren. Woran kann das liegen?*frown.gif*

PS: ich kriege den Hinweis "Datentypenkonflikt in Kriterienausdruck"

 

Hi,

kann es sein, dass in deiner DB leere Herstellernummern (=NULL-Werte) vorkommen?
Das kannst du hiermit abfangen: Code:

 

Achso... ja du hast Recht, es gibt auch Datensätze, wo das Feld Herstellernummer noch leer ist.

Wieso gibt es denn bei einem leeren Feld dann einen Datentypenkonflikt?

Kann ich auch ein Listenfeld auf diese Weise filtern? Kann man in einem Textfeld auch nach mehreren Feldern filtern? Wenn ja, wie geht das?


Viele Grüße,
Stephanjap


Edit: das hat jetzt nichts mit dieser Frage zu tun, aber da ich gerade dabei bin ein bisschen VBA zu verstehen: Wenn man eine Schaltfläche mit VBA erstellt, kann ich ja die Prozedur DoCmd.OpenForm "Formularname" benutzen, was mir dann beim Ereignis "Beim Klicken" das entsprechende Formular öffnet. Auf vielen Internetseiten seh ich aber, dass vorher meistens eine Variable deklariert wird, wie z.B. Dim stDocName = "Formularname". Warum?

 

Die Replace-Funktion erwartet einen String, wenn ein leeres Feld jedoch den Wert NULL hat, so muss es erst in einen String konvertiert werden und genau das macht die NZ-Funktion.
Folgende Alternative ginge auch: Code:

Du kannst als RowSource für ein Listenfeld eine Abfrage einstellen und die Abfrage kannst du natürlich auch filtern.

Was genau meinst du mit "in einem Textfeld"?

Zur Zusatzfrage: Das ist ein Relikt aus Zeiten wo Access noch Ereignisprozeduren generiert hat. Ich halte das in den meisten Fällen für völlig überflüssig. Wozu eine Variable deklarieren, sie mit einem konstanten Wert füllen, um damit in derselben Prozedur ein Formular zu öffnen?! Da kann man den Formularnamen auch genauso gut direkt beim Öffnen angeben.

 

Mit in einem "Textfeld" meinte ich, dass man in ein Textfild etwas eingibt, so dass darauf hin die Liste dann gefiltert wird.

Ich habe übrigens einen Code gefunden, womit das Filtern in einer Listenbox funktioniert:
http://www.access-programmers.co.uk/...d.php?t=188663

Code:

Hab das ausprobiert und klappt gut. Bei dem Code hab ich aber das Problem, dass ich nicht nach dem Datensatz mit der Herstellernummer "EDA456" filtern kann, wenn in der Liste die Herstellernummer "EDA 456" (also mit einem Leerzeichen" steht. Wie krieg ich das hin, wie bei dem von dir vorgeschlagenen Suchtextfeld?

 

Du musst halt die Replace-Funktion auch in der dem Listenfeld zugrunde liegenden Abfrage einsetzen.

 

Das heißt ich kann in der Abfrage bei Kriterien die Replace Funktion anwenden?

Code:

ich hab mal bisschen was ausprobiert... aber funktioniert nicht, und bin mir auch gar nicht sicher, ob das nicht total falsch ist, was ich da mache..

Durch die Replace Funktion werden die Leerzeichen quasi "weg gemacht" oder?

Nun müsste ich aber noch für das Textfeld SearchFor, wo die Werte eingegeben werden etwas ähnliches machen, oder nicht? Also das dort auch eine Replace Funktion eingesetzt wird, die die Leerzeichen eliminiert.

VG, Stephanjap