Private Sub cmdAddRecord_Click()
   On Error GoTo cmdAddRecord_Click_Error
 
With Grid4
 
    If .IsEditMode <> MODE_NONE Then
        .UpdateRow
    End If
    .DoSort 6, SORT_ASC
    .MoveLast
    .AddNew "type"
 
    .CellNew(1) = Me.ArtikelID
    .CellNew(2) = Me.cmbLanguage
 
End With
end sub

Private Sub cmdSaveRecord_Click()
 
With Grid4
    If .IsEditMode <> MODE_NONE Then
        .UpdateRow
    End If
End With
'fctUpdateTexte Me, Me.ID, Me.cmbLanguage
 
'Jetzt wird das Hauptformular gespeichert
DoCmd.RunCommand acCmdSaveRecord
 
End Sub