Private Sub sevText1_Click()
  Me.TimerInterval = 100
End Sub
 
Private Sub Form_Timer()
  Me.TimerInterval = 0
  Me.Recordset.MoveFirst
  Me.Recordset.Find "LFN=" & CStr(LFNBestellNr)
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de