Private Sub NEU_Satz_Speichern()
dim rsarb as DAO.Recordset
Check_ARBEingabe'Aufruf der Plausi-Prüfung
rsarb.AddNew
rsarb!Keynr = txtKeynr
rsarb!Arbeitsplatznr = txtArbeitsplatznr
rsarb!Inventurnr = txtInventurnr
rsarb!Netzkennung = txtNetzkennung
rsarb!Processor = txtProcessor
rsarb!Ram = txtRam
rsarb!Speicher = txtSpeicher
rsarb!Mitarbeiter = txtMitarbeiter
If txtBuchwert = "" Then
    rsarb!Buchwert = 0
    Else
    rsarb!Buchwert = txtBuchwert
End If 'txtBuchwert nicht gefüllt
rsarb!Produkttyp = txtProdukttyp
rsarb.Update
rsqarb.Requery
chknewArb = False
cmdStore.Enabled = False
cmdChange.Enabled = True
MsgBox Msangelegt, vbExclamation
keinArbsatz = False
Textfelder_sperren
End Sub