Access VBA Formulare

On Error Resume Next

Dim strSQL As String

strSQL = "SELECT Mat_Id, Mat_Name FROM tblMaterialart " & _
"WHERE Mat_Name LIKE '*" & txtSuchbegriff & "*' " & _
"ORDER BY Mat_Name"

lstMaterialarten.RowSourceType = "Table/Query"
lstMaterialarten.RowSource = strSQL
lstMaterialarten.Requery

If Nz(lstMaterialarten.ListCount) > 0 Then
Me!lstMaterialarten = Me!lstMaterialarten.ItemData(0)
Call lstMaterialarten_AfterUpdate
End If

  Me.Recordset.FindFirst "mitarbeiterID=" & Me!lstMitarbeiter

MitarbeiterID ist das Listenfeld
Me!lstMitarbeiter ist die ID der Tabelle (Grundlage des Formulars

GoToRecort(Objecttyp, Objektname, Datensatz, Offset)

DoCmd.GoToRecord acDataForm, "Employees", acGoTo, 6

Datensatz:
. AcFirst (der erste Datensatz wird angezeigt
. acGoTo (Numerischer Wert eingeben)
.AcLast: Letzter Datensatz
.acNewRec: NeuerDatensatz
.acPrivios: Vorheriger Datensatz 
 =DomWert("[LTel]";"[tbl_Lizenznehmer]";"[ID] =2")

LTel: Feldname

tbl_Lizenznehme: Tabelle

"[ID] =2": Bedingung
Sub DiesesMakroZeigtWerteDerZweitenSpalteEinerMehrfachauswahl

Dim var As Variant
Dim Zähler
Dim str

Zähler = 0
MsgBox Me.ListeBewohner.ItemsSelected.Count         'ListeBewohner ist der Name des Listenfeldes
   
   For Each var In Me.ListeBewohner.ItemsSelected
   Zähler = Zähler + 1
 
   MsgBox Me.ListeBewohner.Column(1, var)
   str = str & "," & Me.ListeBewohner.Column(1, var)
   Next var

MsgBox Mid(str, 2)

End Sub

Professionelles Skript - fand ich sehr gut Office 365