Dim oControl as Control
 
    If rsPrüfungenKopf.BOF And rsPrüfungenKopf.EOF Then
        For Each oControl In Controls
            If TypeName(oControl) = "sevText" Then
                oControl.Enabled = False
            End If
        Next
    Else
        Prüfung_laden FeldInhalt(rsPrüfungenKopf!Nr)
    End If

Lars

--

A programmer is just a tool which converts caffeine into code