Frage zum Code

[TomTom2903]

Hallo,
habe eine Frage zu meinem Code.
Und zwar möchte ich diesen einfacher und schöner gestalten.
Gibt es nicht die möglichkeit das ich die Variable i an jedes Textfeld usw. im Code anhängen kann.
Zum Beispiel Me!txtLZB_ID_(i)
Bekomme dann allerdings die Fehlermeldung: "MA kann das in Ihrem Ausdruck angesprochene Feld 'txtLZB_ID_' nicht finden." Laufzeitfehler 2465

Sub FktLstLZB()
    Dim strSQL As String
    Dim strKrt As String
    Dim LZB_ID As String
    Dim i As Integer
   
    For i = 1 To 5
        strSQL = "Select * FROM tbl_StammdatenLZB"
        strKrt = ""
       
        Select Case i
            Case 1
                LZB_ID = Me!txtLZB_ID_1
            Case 2
                LZB_ID = Me!txtLZB_ID_2
            Case 3
                LZB_ID = Me!txtLZB_ID_3
            Case 4
                LZB_ID = Me!txtLZB_ID_4
            Case 5
                LZB_ID = Me!txtLZB_ID_5
        End Select

        If Not IsNull(LZB_ID) Then
            strKrt = strKrt & " AND LZB_ID = " & LZB_ID
        End If
        Stop
        If strKrt <> "" Then
            strSQL = strSQL & " WHERE " & Mid(strKrt, 5)
        End If
       
        Select Case i
            Case 1
                Me!lst_LZB_ID_1.RowSource = strSQL
            Case 2
                Me!lst_LZB_ID_2.RowSource = strSQL
            Case 3
                Me!lst_LZB_ID_3.RowSource = strSQL
            Case 4
                Me!lst_LZB_ID_4.RowSource = strSQL
            Case 5
                Me!lst_LZB_ID_5.RowSource = strSQL
        End Select
    Next i
End Sub

Danke für Eure Hilfe,
Tom

[DF6GL]

Hallo,



so:

LZB_ID = Me("txtLZB_ID_" & i)



Me("lst_LZB_ID_" & i ).RowSource = strSQL

[TomTom2903]

Hallo Franz.
klappt super. Danke
Tom