collapse

* Benutzer Info

 
 
Willkommen Gast. Bitte einloggen oder registrieren. Haben Sie Ihre Aktivierungs E-Mail übersehen?

* Wer ist Online

  • Punkt Gäste: 60
  • Punkt Versteckte: 1
  • Punkt Mitglieder: 1

Es sind keine Mitglieder online.

* Forenstatistik

  • stats Mitglieder insgesamt: 13632
  • stats Beiträge insgesamt: 61212
  • stats Themen insgesamt: 8356
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 16
  • stats Am meisten online: 415

Autor Thema: Wer erklärt mir folgenden VBA Schnipsel ...  (Gelesen 90 mal)

Offline derilzemer

  • Access-Profi
  • **
  • Beiträge: 462
    • Quartettportal
Wer erklärt mir folgenden VBA Schnipsel ...
« am: Juli 28, 2017, 21:00:07 »
Hallo,
kann mir netterweise jemand folgende VBA Zeile erklären, welche als Ereignis Nach Aktualisierung an einem Kombifeld hängt:
Private Sub lstKarten_AfterUpdate()
    Dim strKarten As String
    Dim itm As Variant
    If Me.lstKarten.ItemsSelected.count > 0 Then
        ' ausgewählte Karten anzeigen
        For Each itm In lstKarten.ItemsSelected
            strKarten = strKarten & "," & Me.lstKarten.ItemData(itm)
        Next
        Me.ufKarten.Form.Filter = "SpielID in (" & Mid(strKarten, 2) & ")"
        Me.ufKarten.Form.FilterOn = True
    Else
        ' leeres Ufo anzeigen
        Me.ufKarten.Form.Filter = "False"
        Me.ufKarten.Form.FilterOn = True
    End If
End Sub

Es geht mir in erster Linie um diesen Part
For Each itm In lstKarten.ItemsSelected
            strKarten = strKarten & "," & Me.lstKarten.ItemData(itm)
        Next
        Me.ufKarten.Form.Filter = "SpielID in (" & Mid(strKarten, 2) & ")"
        Me.ufKarten.Form.FilterOn = True

Damit komme ich nicht klar, versteh ihn nicht. Danke für die Mühe und die Hilfe.

Gruß Andreas
Grüße und Dank im voraus
Andreas
 

Offline bahasu

  • Moderator
  • Access Guru
  • *****
  • Beiträge: 1836
Re: Wer erklärt mir folgenden VBA Schnipsel ...
« Antwort #1 am: Juli 28, 2017, 21:06:17 »
Hi,

anbei ein Erklärungsversuch:
In der for-Schleife werden die von Dir selektierten Listeneinträge "herausgepickt" und zu einer durch Komma getrennten Liste in der Variablen strKarten zusammengestellt. Diese wird zum Filtern eingesetzt.

"Mid(strKarten, 2)": Damit wird das Komma vom ersten Schleifendurchlauf in dieser Liste entfernt.

Harald
Servus
 
Folgende Mitglieder bedankten sich: derilzemer

Offline derilzemer

  • Access-Profi
  • **
  • Beiträge: 462
    • Quartettportal
Re: Wer erklärt mir folgenden VBA Schnipsel ...
« Antwort #2 am: Juli 28, 2017, 21:12:52 »
Hi,
danke Harald. Dann habe ich dazu endlich mal die Erklärung.
Gruß Andreas
Grüße und Dank im voraus
Andreas