Private Sub AuftragArtikelliste_AfterCellEdit(nrow As Long, nCol As Long, ByVal _
  sText As String) 
  With AuftragArtikelliste 
    If .IsEditMode = MODE_ADDNEW Then
      If nCol = .GetCol("ArtikelNr") Then 
        If Not IsNull(.EditValue) Then 
          .CellNew("ArtikelNr") = .EditSubItem("ArtikelNr") 
          .CellNew("Artikelname") = .EditSubItem("Artikelname") 
          .CellNew("Gebindemenge") = .EditSubItem("GBM") 
          .CellNew("Menge") = .EditSubItem("Bestellmenge") 
          .CellNew("EPreis") = .EditSubItem("Preis") 
        End If
      End If 
    End If 
  End With 
End Sub

Private Sub AuftragArtikelliste_AfterUpdate(ByVal nRow As Long, ByVal nCol As _
  Long, ByVal sText As String)
  With AuftragArtikelliste 
    If nCol = .GetCol("ArtikelNr") Then 
      If Not IsNull(.EditValue) Then
        ' .Recordset.Edit  ' falls DAO!
        .Recordset.Fields("ArtikelNr") = .EditSubItem("ArtikelNr") 
        .Recordset.Fields("Artikelname") = .EditSubItem("Artikelname") 
        .Recordset.Fields("Gebindemenge") = .EditSubItem("GBM") 
        .Recordset.Fields("Menge") = .EditSubItem("Bestellmenge") 
        .Recordset.Fields("EPreis") = .EditSubItem("Preis") 
        .Recordset.Update
        .RowRefresh
      End If
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de