Access VBA Problem

Hallo,

gibt es hier auch Cracks, die sich mit Access / VBA auskennen?

Ich habe da ein Problem mit dem Auslesen der markierten Einträge in einer Combobox mit Mehrfachauswahl und in einem Formular.

Ach ja, warum nicht ein Access Forum? Das sind so kranke Cracks, die würden mich nur auslachen mit meinem Problem

@efjoy: weil ich Access halbwegs kann und weil man mit einer 'richtige' Datenbank mit etwa 3000 Datensätzen mit Elefanten auf Spatzen schießt. Zudem habe wir alle Access auf den Rechnern und ich will nicht compilieren.

Sven Brune : ich habe mir bereits anderweitig geholfen. Dennoch mal mein Problem: ich wollte in Comboboxen eine Mehrfachauswahl nutzen.

Für ein Textfeld hätte ich die mehrfach ausgewählten Einträge gebraucht. Tja, warum für ein Textfeld? Ganz einfach. Aus deiesem Texfeld, in dem noch mehr Dinge stehen, muss ich die Daten per Maus und copy in die Zwischenablage kopieren können. Anschließend werden diese Daten auf einer Webseite eingetragen.

Nein, ich möchte die Webseite nicht aus Access befüllen, aber die Daten sollten dort immer im gleichen Format stehen. Somit wollte ich dem Benutzer das vereinfachen.

Die Bing KI hat mir folgenden Code rausgeworfen:

Dim i As Integer

Dim strSelectedItems As String

For i = 0 To Me!YourComboBox.ListCount - 1

If Me!YourComboBox.Selected(i) Then

strSelectedItems = strSelectedItems & Me!YourComboBox.Column(0, i) & "; "

End If

Next i

If Len(strSelectedItems) > 0 Then

strSelectedItems = Left(strSelectedItems, Len(strSelectedItems) - 2)

End If

MsgBox "Die ausgewählten Punkte sind: " & strSelectedItems

Das wusste ich so auch schon vorher. Nur ist das Ergebnis immer ein leerer String.

Obwohl... wenn ich es jetzt so genau überlege...

Combobox

Spalte 1: ID (integer, ausgeblendet)

Spalte 2: Text der angewählt werden kann

Das würde ja bedeuten, wenn ich die Spalte 1 (integer) in einen String schreibe, dann kommt nichts an...

Aber bevor Ihr da zu viel nachdenkt...

Ich habe es nicht hinbekommen, mir aber anderweitig geholfen.

Hallo Sven,

ich habe eine andere Lösung, aber so recht Glücklich bin ich da halt auch nicht.

Die Schleife wird korrekt durchfahren für alle Einträge, aber in der Zeile steht immer 0, obwohl der EIntrag angewählt ist

If Me!YourComboBox.Selected(i) Then

Keine Ahnung wieso. Die Namen sind richtig.

Hier müsste es doch auch möglich sein, die zweite Spalte durch '.Column(1, i)' auszuwählen. Oder sehe ich das falsch?

Me!fld_AUswahl.Column(0, i) & "; "

Visual Basic. Man hasst es oder man liebt es...

Btw.: meine ersten Basic Programme habe ich auf einen Sinclair ZX84 geschrieben. Naja, 'Hallo Welt' auf dem Bildschirm zu lesen war schon ein Highlight.

Ohje bin ich alt...

Die Eigenschaften des Kombinationsfeldes mit Mehrfachauswahl

und das sieht dann so aus im Formular:

Also wenn ich die Mehrfachauswahl entferne dann kann ich nur einen Wert anwählen und das Feld schliesst sich wieder