If Form_Namensliste.Controls("btncheck" & i).OnClick = "" Then
     Form_Namensliste.Controls("btncheck" & i).Onklick = "[Event Procedure]"
End If

Function tlsearch(schalter)
    Dim db As Database
    Dim r As Recordset
    Dim r2 As Recordset
    Dim i As Integer
 
    i = 1
 
    Set db = CurrentDb
    Set r = db.OpenRecordset("KartenNummer", dbOpenDynaset)
 
    If schalter = "tl" Then
        r.FindFirst "TL = True"
    Else
        r.FindFirst "Bearbeiter = True"
    End If
 
    If r.NoMatch = False Then
        Set r2 = db.OpenRecordset("Personal", dbOpenDynaset)
        Do Until r.NoMatch = True
            r2.FindFirst "PerNr =" & r![PerNr]
            Form_Namensliste.Controls("txtname" & i).Visible = True
            Form_Namensliste.Controls("txtgebaeude" & i).Visible = True
            Form_Namensliste.Controls("txtarbplatz" & i).Visible = True
            Form_Namensliste.Controls("btncheck" & i).Visible = True
            Form_Namensliste.Controls("txtname" & i) = r2![PerVorname] & " " & _
              r2![PerName]
            Form_Namensliste.Controls("txtarbplatz" & i) = r2![PerArbPlatz]
            i = i + 1
            If schalter = "tl" Then
                r.FindNext "TL = True"
            Else
                r.FindNext "Bearbeiter = True"
            End If
        Loop
    End If
End Function