Office: (Office 2003) Wert aus Kombinationsfeld an Abfrage übergeben

Das Formular "Kunden - PLZ Auswahl" hat als Datenherkunft die Abfrage "Kunden - PLZ Auswahl".
In dieser Abfrage ist in der Zeile Kriterien der Ausdruck Wie [PLZ Bereich] & "*".
Öffne ich das Formular greift die Abfrage. Ich gebe dann z.B. 22 ein und erhalte alle Kunden des PLZ-Gebiets 22.
Klappt wunderbar.... Ist aber nicht gerade benutzerfreundlich.

Jetzt habe ich mal im Formular ein Kombinationsfeld eingebaut.
Der Name ist kbf_PLZ. Als Datenherkunft dient eine Tabelle mit Namen tbl_PLZ-Bereiche.
In der Abfrage habe ich das Kriterium Wie [PLZ Bereich] & "*" wieder entfernt.
Jetzt öffne ich das Formular, klicke auf das Kombinationsfeld und wähle z.B. den Wert 35 aus..... Tja, aber tut sich erstmal nichts... Logisch....

Was muss ich wo eintragen (eventuell VBA), dass der Wert 35 jetzt als Parameter in die Abfrage geht und das Formular mir dann alle Kunden aus dem PLZ Bereich 35 zeigt?

Danke
Gruß Achim

:)

 

Hallo,
FAQ Access – Flexible Datenselektion über Kombinationsfeld

Dieser Beitrag sollte Dir helfen .)

mfg

Silentwolf

 

Moin,
im Ereignis "Nach Aktualisierung" des Kombis setzt du einen Filter auf die Daten im Formular:
Code:

maike

 

Mist. Jetzt sehe ich gerade, dass MAIKE geantwortet hat.

Die gesamte Erklärung RAMSES.DE habe ich nicht umgesetzt bekommen.
Ich habe es mehrmals überprüft. Keine Fehlermeldungen, aber auch keine Anzeige wie es sein soll.

Im Gegenteil. Bei Klick auf das Kombifeld kommen nicht mal meine PLZ Werte aus der Tabelle. Da kommt sofort eine Prameterfrage.....

Das hatte ich immerhin schon mal hinbekommen, dass das Kombifeld meine 2-stelligen PLZ Bereiche anzeigt.

Ich habe alles wieder rückgängig gemacht.
Jetzt mache ich es nochmal wie ich es vorher hatte und setze mal den Code von MAIKE ins VBA....

Melde mich wieder....
Gruß Achim

 

Mist. Jetzt sehe ich gerade, dass MAIKE geantwortet hat.

Die gesamte Erklärung RAMSES.DE habe ich nicht umgesetzt bekommen.
Ich habe es mehrmals überprüft. Keine Fehlermeldungen, aber auch keine Anzeige wie es sein soll.

Im Gegenteil. Bei Klick auf das Kombifeld kommen nicht mal meine PLZ Werte aus der Tabelle. Da kommt sofort eine Parameterfrage.....

Das hatte ich immerhin schon mal hinbekommen, dass das Kombifeld meine 2-stelligen PLZ Bereiche anzeigt.

Ich habe alles wieder rückgängig gemacht.
Jetzt mache ich es nochmal wie ich es vorher hatte und setze mal den Code von MAIKE ins VBA....

Melde mich wieder....
Gruß Achim

 

Das Einbauen des VBA Codes hat leider nicht geholfen.
Sobald ich das Kombifeld anklicke und eine Zahl auswähle, kommt die Meldung FALSCH....

Ich bleibe wohl besser bei meiner alten Lösung.
Ich habe im Formular einen CommandButton eingebaut. Damit löse ich ein Makro aus, das dieses Formular schließt, wieder öffnet und nach dem PLZ Bereich fragt. Sieht etwas unglücklich aus, aber es funktioniert....

Gruß Achim

 

Wie sieht denn dein Code aus?
Hast du vorher das Kriterium aus der Abfrage entfernt?
Wie lautet die vollständige Meldung?
maike

 

Ich vermute eher, dass dies das gewünschte Ergebnis zeigt
Code:

 

Okay, nochmal alles von vorn.
Tabelle mit 2-stelligen PLZ Zahlen erstellt.
Name ist tbl_PLZ_Auswahl.

Abfrage ist der Stammdatensatz der Kunden und hat als Namen qry_PLZ_Filter.
Alle Kriterien der Abfrage habe ich entfernt.
Da steht nichts mehr drin. Das zu filternde Feld heißt PLZ.

Das Formular mit Namen PLZ_Bereiche hat als Datenherkunft die Abfrage qry_PLZ_Filter.

Das Kombinationsfeld heißt kbf_PLZ und hat als Datenherkunft die Tabelle tbl_PLZ_Auswahl.
Das Feld in der Tabelle heißt PLZ_Auswahl und ist als Zahl (LongInteger) definiert.

Das hier steht im VBA Code drin:
Code:

Ich starte das Formular. Es werden alle Kunden aufgelistet.
Jetzt klicke ich auf das Kombinationsfeld und wähle z.B. den Bereich 22.
Und nun kommt das Fenster mit der Meldung:
Parameter eingeben. Hmmmm. Ich geb mal die 22 ein...
Und jetzt findet er NULL Kunden...

Nach meinem Test steht in der Zeile Filter (das ist die Zeile unter Datenherkunft) das hier drin [PLZ_Bereich] =22.

Gruß Achim

 

Volltreffer !!!!
Das ist die Lösung gewesen....
Me.Filter = "[PLZ] LIKE '" & Me.kbf_PLZ & "*'"
Damit läufts....

Super....
Danke für den Hinweis.....

Gruß Achim

 

Moment... Etwas zu früh gefreut.
In der Tabelle meiner Stammdaten ist das Feld PLZ als Text definiert.
Das gleiche habe ich auch in meiner Tabelle mit den zweistelligen PLZ gemacht.
Gebe ich nun in der Tabelle die PLZ 08 hinzu, steht das auch als 08 drin.
Wenn ich im Formular dann die Kombi Aufrufe und den Wert 08 anwähle, werden Null DS gefunden....

Was muss ich da ändern, damit auch die PLZ mit 0 vorne gefiltert werden?

 

Hallo Achim,
Das Feld [PLZ_Bereich] gibt es ja in deiner Abfrage mit allen Kunden gar nicht,
also kannst du auch nicht darauf filtern, - wie geschrieben, geht nur
Code:

Stelle das auch auf "Text" um, dann sollte das schon funzen.

gruss ekkehard

 

Es funktioniert jetzt wirklich prima.
Da wären jetzt noch 2 Kleinigkeiten.

1. Ich habe noch ein anderes Kombinationsfeld.
Bei dem steht die Eigenschaft "Nur Listeneinträge" auf NEIN.
Automatisch ergänzen auf JA.
Dadurch werden andere Werte automatisch der Tabelle hinzugefügt.
Aber mit dem Kombinationsfeld funktioniert es nicht.

2. In der Tabelle habe ich z.B. die PLZ 03,06,10,12,31,38,44,59 drin stehen und auch sortiert gespeichert.
Das Kombifeld liest diese Reihenfolge nicht ein. Total durcheinander.

Hat jemand dafür eine Erklärung?
Gruß Achim

 

Wie äußert sich das?
Was soll funktionieren?
Welcher Code liegt im Ereignis Nach Aktualisierung?

Sortiere die Datensatzherkunft des Kombifeldes entsprechend.

 

Sortierung habe ich hinbekommen.

Als Code läuft dieser hier.
Code:

Nur das automatische Hinzufügen von Werten, die man im Kombifeld eingibt, geht nicht.
Dabei steht doch die Eigenschaft auf JA...