Eine Art Suchfunktion erstellen

[boehnli01]

Hier die gezippte version.

[Anhang gelöscht durch Administrator]

[database]

Hallo,

Code [Auswählen] Erweitern

DoCmd.OpenForm "frm_allorders", acFormDS, , Mid(Krit, 5), acHidden

nach dieser Änderung wird bei Auswahl MRP = A01 und Pending = -1 ein Datensatz nach Excel ausgegeben!
Ohne diese Änderung steht AND vor dem Kriterium weshalb der Code dann an der Stelle auch stecken bleibt.

HTH

[boehnli01]

Vielen vielen dank.  Unglaublich wie schnell du die Lösung gefunden hast. Hammer.

[database]

Freut mich wenn's geholfen hat! 

[bahasu]

N'abend

die Ursache ist
Krit = ""
If Not IsNull(Me!PurchDoc) Then Krit = Krit & " AND PurchDoc LIKE '" & Me!PurchDoc & "*'"

Wird besser mit:

Krit = ""
If Not IsNull(Me!PurchDoc) Then Krit = "PurchDoc LIKE '" & Me!PurchDoc & "*'"

Wenn Krit auf "" gesetzt wurde, ist Krit = Krit + ... unnötig.

Für die nächsten Bedingungen gilt dann aber eine leichte Anpassung in der Art:
If Not IsNull(Me!Purrequ) Then Krit = Krit & iif (Krit > "";" AND ";"") & Purrequ LIKE '" & Me!Purrequ & "*'"

Das " and " führt zu der Macke, die entweder mit dem Hinweis von database (Mid( ...) entfernt wird oder mit dem obigen Zeilen und dann ohne Mid (Krit,5)

Harald