Office: Mehrfachauswahl

Hallo zusammen.,
Aktuell baue ich eine Datenbank um Personendaten von Migranten aufzunehmen.
In der Tabelle habe ich die Daten wie Name, Vorname usw. hier soll noch eine Spalte "Gründe für den Zuzug" hinzukommen.
Im Formular_Personendaten soll man dann bei den Gründen 5 Gründe angezeigt bekommen und die möglichkeit haben auch mehrere Gründe auszuwählen.
Ich bin allerdings ein Access Neuling, und habe keine Idee wie ich das anstellen soll.
Kann mir hierbei jemand weiterhelfen?
Ich habe hier die Datei nur mit der Personendaten tabelle mal hochgeladen.

 

Hallo,
Du kannst im Formular ein Listenfeld anlegen, dessen Datenherkunft die Tabelle Zuzugsgründe ist. Das Steuerelement Listenfeld lässt eine Mehrfachauswahl zu, die du dann z.B. in ein Array einlesen und dann weiterverarbeiten kannst.

siehe auch:
ListBox.MultiSelect-Eigenschaft (Access)

 

Danke, das habe ich hinbekommen. Wie kann ich die Daten dann in ein Array einlesen?

 

Ich habe jetzt im Formular ein Listenfeld mit den Zuzugsgründen und die Mehrfachauswahl auf Einzeln gestellt. Wenn ich nun auf die Tabelle personendaten zugreife, möchte ich dass da unter der spalte "Gründe" alle Gründe angezeigt werden, die ich im Listenfeld ausgewählt habe. Ist das möglich? LG

 

Dazu musst Du das Datenmodell entsprechend anpassen. Es gibt also eine Tabelle Personendaten und dazu eine Tabelle PersonendatenZuzugsgruende, die über eine 1:n Verknüpfung verbunden sind. Denn eine Person kann ja, wie Du sagst, mehrere Gründe haben. Um dann im Hauptformular alle Gründe zu sehen, erstellst Du dort ein Unterformular als Endlosformular. Das bewerkstelligst Du an besten erstmal über den Formulargenerator. Der fragt nämlich dann, wie die Formulare untereinander in Verbindung gesetzt werden sollen und erkennt die 1:n Beziehung automatisch. Die Felder im Unterformular kannst Du dann ja später zurecht schieben und formatieren. Die Tabelle PersonendatenZuzugsgruende kannst Du über das zuvor erstellte Listenfeld befüllen.

Hier noch ein wenig Code zur Verarbeitung einer Mehrfachauswahl im Formular:

Code:

Private Sub ListeFelder_AfterUpdate()
   Dim i As Integer
   On Error Resume Next
   With Me.ListeFelder
   For i = 0 To .ListCount - 1
       If .Selected(i) = True Then
           'MsgBox "Feld: " & .ItemData(i)
           'oder, was Du auch immer mit dem Eintrag machen möchtest
          
        End If
   Next
   End With
   On Error GoTo 0
End Sub