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