Private Sub cmdändern_click()
 
On Local Error GoTo fehler_ändern
 
änderntext = Nr.Text
 
Form3.Show
 
Exit Sub
fehler_ändern:
MsgBox "Bitte klicken Sie auf AKTUALISIEREN und markieren Sie den Datensatz in" & _
  "der Spalte Nr."
End Sub

Cu

Wolfgang