Private Sub SSTab1_Click(PreviousTab As Integer)
  Static bWorking As Boolean
  If bWorking Then Exit Sub
 
  bWorking = True
  If PreviousTab = 0 And Grid1PME.rows < 1 Then ' z.B es wurden keine Zeilen 
  ' eingegeben , 
    SSTab1.Tab = 0 ' darum wieder zum 1. Register wechseln 
  Else
    ' andere Befehle
    ...
  End If
  bWorking = False
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de