Office: (Office 2010) Listenfeld mit Mehrfachauswahl

Hallo,

habe in einer Tabelle ein Listenfeld mit Mehrfachauswahl definiert. Habe dieses Feld in ein Formular gezogen. Da das Formular keinen direkten Filter auf ein Mehrfachdropdown erlaubt und andere Filterformen für die User zu schwierig sind, wollte ich die selektierten Werte zusätzlich in ein normales Textfeld schreiben (auch in Tabelle definiert).
Auf das "nach Aktualisierung"-Ereignis im Dropdown habe ich einen Code geschrieben, der die selektierten Einträge auslesen und in o.g. Textfeld schreiben soll.
.....
For Each selkat In me.testliste.ItemsSelected
seltext = Me.testliste.Column(0, selkat)
testtextfeld=testtextfeld & ";" & seltext
next selkat
.......
Obwohl z.B. me.testliste.itemselected.count die korrekte Anzahl der gewählten Einträge angibt, überspringt das Makro die for-Schleife. Es wird nichts abgeprüft, geschweige denn, dass ich die selektierten Texte rausfiltern kann.
Habe DAU-mäßig keine Ahnung, was ich da falsch mache.
Nimm ich im Formular ein ungebundenes Dropdown, funktioniert es einwandfrei.

Danke für jede Hilfe

:)

 

Nutze bitte die Suchfunktion des Forums! Mit dem Suchbegriff Mehrfachauswahl findest Du reichlich Futter...

 

Moin,
tritt denn das Ereignis "Nach Aktualisierung" bei Markierung in einem Listfeld überhaupt ein? Versuch's mal mit Klick oder Doppelklick ...
Ansonsten bitte die komplette Prozedur posten.
maike

 

Das habe ich natürlich versucht + Suche in diversen anderen Foren. Da habe ich leider nichts draus ableiten können, wo der Fehler sein könnte.
Trotzdem danke für Deinen Hinweis

 

Klar, "nach Aktualisierung" springt an und ich sehe, dass die for-Schleife übersprungen wird. Geh ich auf Einzelschritt, kann ich beim Beginn der Schleife die Anzahl der selektierten Einträge abfragen und die stimmt auch. Ich verstehe nur nicht, warum die For-Schleife ignoriert wird.

 

Hallo,

Wo bleibt der Aufschrei von wegen Nachschlagefelder in Tabellen? *wink.gif*

Die einfachste Lösung ist doch die eigenständige Darstellung des
Zusammenhangs im Datenmodell.
gruss ekkehard

 

Ich sagte doch, ganze Prozedur posten *rolleyes.gif* .
Hast du da evtl. eine Bedingung ala If not isnull eingebaut? Ein Listenfeld mit Mehrfachauswahl gibt immer NULL zurück.
maike

 

Kann es sein, dass "selkat" nicht richtig dimensioniert ist?
Sollte IMO "Variant" sein.

 

Hallo alle
hier Code:
Private Sub f_kategorieliste_AfterUpdate()
Dim selkat As Variant 'Indices Listenfeld
Dim vkat as variant 'Zwischenspeicher Einträge
Dim seltext As Variant 'Text des selektierten eintrages
On Error GoTo stoperror
If IsNull(Me.f_Kategorie) Then
vkat = ""
Else
vkat = Me.f_Kategorie
End If
For Each selkat In Me.f_kategorieliste.ItemsSelected
seltext = Me.f_kategorieliste.Column(0, selkat)
Rem überprüfen, ob selektierte Begriff bereits in kategorie, dann nix
If vkat = "" Then
vkat = seltext
Else
If InStr(1, Me.f_Kategorie, seltext) = 0 Then
rem Begriff nicht in Kategorie
vkat = vkat & ";" & seltext
End If
End If
Next selkat
Me.f_Kategorie = vkat
GoTo endenormal
stoperror:
MsgBox ("Fehler: " & Err.Description)
endenormal:

End Sub

Dimensionierung ist Variant. Prüfe nicht auf Me.f_kategorieliste.value, weil ich gelesen habe, dass das bei Mehrfachauswahl null ist.
Es kommt kein Fehler weder beim Kompilieren noch zur Laufzeit.
Die for-next Schleife wird schlichtweg übersprungen, als habe das Listenfeld keine selektierten Einträge. Der itemselected.count gibt den korrekten Wert.
Keine Ahnung, was da quer hängt.


Trotzdem Dank an alle

 

Ekkehard hat mich da auf einen Gedanken gebracht - Nachschlagefeld mit Mehrfachauswahl bzw. mehrwertiges Feld ... Da war irgendwas mit .Value ...
Ist das so ein "mehrwertiges Feld"?
Ich hab' Access 2003, da gibt es dieses Zeug noch nicht.
Probier's mal mit einer Basisversion in dieser Form:
Code:

maike

 

Hallo,

habe es mir auch angesehen und getestet...
Code:

...würde bei mir funktionieren, wobei das...
f_Kategorie ein Textfeld wäre...
und das... f_kategorieliste ist klar das Listfeld
Man muss ja nicht unbedingt nur hinzufügen und nachsehen was schon drin ist,
sondern einfach alles neu ersetzen, was mM einfacher ist.

Na ja, war halt mal eine Idee.

PS: da ich keine Nachschlagefelder verwende und wenn ich welche finde sofort lösche,
kann ich dazu leider nichts beitragen, außer ich würde es extra testen *Smilie

 

Hallo Kyron,

das funktioniert bei Dir??????
Bei mir - wie gesagt - ignoriert das Makro die FOR-NEXT-Schleife (als gäbe es nix selektiertes) und geht direkt an die nächste Anweisung nach NEXT.
Was kann das denn sein????
Die Werte können es eigentlich nicht sein. Das Listenfeld zeigt die korrekten Werte.

Was das zu füllende Textfeld f_kategorie angeht - es geht schneller, den Inhalt nach Änderung der Liste neu aufzubauen als auf vorhandenes zu prüfen. Kann ja auch sein, dass jemand deselektiert. Deshalb "alles neu würde der Mai machen, wenn denn der April nicht direkt zum Juni ginge".

 

...es hatte sogar dein Code ansatzweise funktioniert, nur musste ich 2x klicken, dass beide selektierte Daten angenommen wurden.

Im September hat es bei mir funktioniert obwohl der Oktober noch relativ weit ist
deshalb, aufgepasst... kann sich ev. noch bei Kälte ändern! *wink.gif*

PS: hast du Maikes oder meinen Vorschlag überhaupt getestet...?

was würde es an meinem Vorschlag ändern...nur ne Frage *Smilie

 

Hab den Denkfehler gefunden. Das Listenfeld wurde im Formular als Kombinationsfeld eingetragen (keine Ahnung warum). Offensichtlich funktioniert das Auslesen der Werte bei Kombinationsfeldern anders als bei Listenfeldern. Hab's aber jetzt.

Danke an alle

 

Ja, das muss ich zugeben, sehr seltsam... wie geht das überhaupt und vor allem, wer hat es in der Zwischenzeit gemacht? *wink.gif*