Office: (Office 2010) Kombinationsfeld mit Mehrfachauswahl per Checkbox

gelöscht

 

\@torstiBorsti,
das SQL-Statement einer Abfrage wird natürlich sofort in diese hineingeschrieben. Dadurch muss sie bei jedem neuen Mal erst einmal auf ein
default SQL-Statement gesetzt werden.

Probier das mal.
Code:

 

Jetzt bekomme ich bei ausführen immer folgende Fehlermeldung:

Muss ich in den strSQLDEFAULT auch schon eine WHERE Bedingung reinschreiben?

Code:

 

Es ist extrem hilfreich, wenn man weiß, wie das Ergebnis einer Tätigkeit, in dem Fall ein Kriterium in einer Abfrage, aussehen soll. Das erlaubt einem, entsprechende Korrekturen zielgerichtet einzusetzen.

Code:

(Das Leerzeichen am Komma ist optional und dient nur der besseren Lesbarkeit.)

 

Guten Morgen,

ungetestet, aber ev. hilft es beim überlegen:
Code:

 

Hallo,

sorry, das war doch zu schnell geschrieben *Smilie
habe es jetzt getestet und so funktioniert es...
Code:

PS: allerdings habe ich es mit der ID getestet und nicht mit dem Nachnamen, finde ich besser.
Listenfeld: Spaltenanzahl 2 - Spaltenbreite: 0cm;4cm - Datensatzherkunft: SELECT Adressen.ID, Adressen.Nachname FROM Adressen;

Dachte der VBA- Code war vom Threadstarter... *frown.gif* habe mich in der Früh ganz schön vertan *Smilie

Code:

Ist Name wirklich dein Feldname? Wenn ja würde ich den unbedingt ändern!

 

Servus Kyron9000,
wo liegt nun ergebnismässig der Unterschied zu meinem Vorschlag?
Grüße aus Berlin

 

Hallo Ohrkester,

bitte keinen Stress ok? *Smilie Bin froh, dass es iM sehr ruhig hier ist, ich brauch das nämlich absolut nicht!!!

Falls du das gelesen hast...

...wirst vielleicht verstehen, dass ich deinen Vorschlag für einen Fehlversuch des Threadstarter angesehen
und ihn nicht extra auf Funktion getestet habe.
Mit den rot versehenen Codeabschnitten leicht denkbar.
Weiters habe ich meinen Code später noch einmal angesehen und bin zum Schluss gekommen,
...ist falsch und habe ihn korrigiert, so das es funktionsfähig ist.
Wie ich ihn eingestellt habe, habe ich es erst bemerkt, dass es nicht der Code vom
Threadstarter war, wie zuerst vermutet.
Wenn noch irgendetwas unklar ist, bitte fragen, gebe gerne Auskunft *Smilie

 

\@Kyron9000:

diese Frage bleibt für alle offen. Vielleicht beantwortest Du sie freundlicherweise, ohne Dich gestresst zu fühlen.

 

Anmerkung: Statt zu diskutieren, wo Unterschiede in zwei Codes sind, könnte man sich doch darum bemühen, die Quotes vollständig zu setzen, da es sich doch offensichtlich bei der Aufzählung um Strings handelt.
Das kann ich nämlich bei groben Darüberblicken in keinem der Vorschläge erkennen.

Es soll ja nicht nur ein VBA-Code funktionieren, sondern letzten Endes die Abfrage mit ihrem Kriterium.

 

...eine Gegenüberstellung ist nicht meine Art, aber wenn es gewünscht wird,
stelle ich gerne freundlicherweise eine BDB ein *Smilie

Kann auch sein, dass ich etwas übersehen habe, da ich aber deinen Code kopiert habe,
denke ich eigentlich nicht, aber... mal sehen.
Habe deinen Code mit Zahl und Text getestet, beides ergibt einen Fehler.

Grüße aus Wien *Smilie

PS: warum sollte ein String verwendet werden, ist eine Zahl nicht die bedeutend bessere Wahl?

Mit String, (Listfeld anpassen *Smilie )...
Code:

 

\@Kyron9000:
Du hast recht. In meinem Code ist ja richtig viel falsch.
Das war ja eine katastrophale Leistung von mir....Sorry
Folgendermassen wäre er richtig gewesen.
Code:

 

Vielen Dank für eure Antworten. *top

Soweit funktioniert es jetzt mit diesem Code:

Code:

Ein Problem habe ich jetzt noch, da meine Abfrage noch weitere Parameter aus Textfeldern meines Formulars übernhmen soll.
Wenn ich die Parameter folgendermaßen in den WHERE Teil reinschreibe:

Code:

Bekomme ich immer folgende Fehlermeldung:

Woran kann das liegen?
Die Parameter sind alle vom Typ Text.

 

Hallo,

diese Felder Abteilung und Schlagwort werden ja im selben Formular sein, oder?
Dann eventuell so...
Code:

...wieder ungetestet *Smilie
PS: diese Formateinstellung Format([Datum],yyyy/mm) AS MonatJahr kenne ich nicht!

 

Hi,
1.) in solchen Fällen sollte man sich zunächst mal den String der erzeugt wird, über Debug.print (vor allem hinsichtlich der Parameter, die übergeben werden) anschauen.
Diesen Tipp hattest du bereits bekommen, insofern sollte man solche Tipps zur Selbsthilfe berücksichtigen und zunächst mal selbst Strategien zur Problemlösung suchen.

Beim groben Durchsehen, fällt mir auf, das überhaupt nicht geprüft wird ob überhaupt eine Auswahl getroffen wurde und ob die Felder, die die Parameter liefern gefüllt sind. Sind diese leer könnte das zu einem Typkonflikt führen wenn das Feld NULL ist. Selbst wenn Felder NULL sein dürfen, macht es dann aber auch keinen Sinn bei einem dynamisch erzeugten String diese im Kriterium zu berücksichtigen.

2.) solltet du dir den Unterschied zwischen LIKE und = anschauen. Ein LIKE ohne * macht wohl keinen Sinn. Sicherlich willst du eine bestimmte Abteilung filtern und nicht alle Abteilungen, die mit "Irgendwas" beginnen. Insofern wäre "=" die richtige(re) Wahl.
Grundsätzlich bietet sich die Auslagerung der Abteilungen in eigener Tabelle an, daraus resultiert, dass man nach einem numerischen Fremdschlüssel einschränken würde und nicht nach den Klarnamen, das gilt auch für andere etwaige Parameter. Die Diskussion ob man Forms! Parameter lieber grundsätzlich "nicht" verwendet, möchte ich jetzt nicht ankurbeln.

3.) Da MS selbst diesen Sprachwirrwarr durch zwanghaftes Konvertieren von Programmsprachelementen in die gegebene Landessprache, erzeugt, würde ich grundsätzlich, vor allem bei VBA auf Englisch setzen und statt Formulare! lieber ein Forms! verwenden (unabhängig davon, ob im vorliegenden Fall die deutsche Version funktioniert). Fehlerursächlich ist das nicht.

4.) Auch die Deklaration von db und qryDef über DAO.Database bzw. DAO.querydef kann sicherlich nicht schaden
5.) bzgl. Kyrons Anmerkung zur Formatierungsanweisung:
Da fehlen wohl die Gänsefüßchen, aber ansonsten durchaus korrekt !
Code:

6.) Den Sinn den dynamisch erzeugten String einer gespeicherten Abfrage über .SQL zuzuweisen, halte ich für zweifelhaft. Wozu ??