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

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de