Option Compare Database
Public i As Integer
Public schalter2 As String
 
'Sucht die entsprechender Teamleiter und Bearbeiter aus der Tabelle 
' "Kartennummer" und ermittelt
'dann die Daten des Mitarbeiters aus der Tabelle "Personal"
Function tlsearch(schalter)
    Dim db As Database
    Dim r As Recordset
    Dim r2 As Recordset
    i = 1
    schalter2 = schalter
    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("btncheck" & i).OnClick = "=auswahl(" & i _
              & ")"
            Form_Namensliste.Controls("txtname" & i) = r2![PerVorname] & " " & _
            r2![PerName]
            Form_Namensliste.Controls("txtarbplatz" & i) = r2![PerArbPlatz]
            If schalter = "tl" Then
                r.FindNext "TL = True"
            Else
                r.FindNext "Bearbeiter = True"
            End If
            i = i + 1
        Loop
    End If
End Function
 
Function auswahl(i)
    If schalter2 = "tl" Then
        Form_AVS_Erstellung.txttl = Form_Namensliste.Controls("txtname" & i)
    Else
        Form_AVS_Erstellung.txtbearb = Form_Namensliste.Controls("txtname" & i)
    End If
    DoCmd.Close
    DoCmd.Maximize
End Function