Private Sub Grid1_ErrorAddNew(ByVal nError As Long, ByVal sDescription As _
  String) 
  ' Fehler beim Speichern der neuen Datenzeile 
  ' Access Fehlermeldungen abfangen 
  If nError = 3314 Then 
    MsgBox "Bitte zuerst alle Pflichtfelder ausfüllen.", vbExclamation, _
      "Warnhinweis" 
  ElseIf nError = 3022 Then 
    MsgBox "Für diesen Kunden ist für die angegebene Menge bereits ein Preis  " & _
      "hinterlegt." & vbNewLine & _
      "Bitte ändern Sie entweder den Kundennamen oder die Menge.", _
      vbExclamation, "Warnhinweis" 
 
    ' Cursor in 2. Spalte setzen
    [color=red].Col = 2[/color]
  Else 
    MsgBox "Fehler beim Hinzufügen der neuen Datenzeile" & vbCrLf & _
      CStr(nError) & " " & sDescription, vbCritical, "Warnhinweis" 
  End If 
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de