Dim kriter As String
kriter = Me.Artikelliste
 
CurrentDb.Execute "DELETE Aid  FROM Artikel1 WHERE Aid= " & kriter & ""
DoCmd.OpenTable "Artikel1"
Artikelliste.Requery

Dim kriter As String, yeniveri As String
On Error Resume Next
kriter = Me.Artikelliste
yeniveri = Artikelname
If IsNull(Artikelname) Then
MsgBox "Yeni veriyi girmediniz??"
Else
CurrentDb.Execute "UPDATE Artikel1 SET Artikel1.ArtikelName = '" & yeniveri & "'" _
& " WHERE Aid= " & kriter & ""
DoCmd.OpenTable "Artikel1"
Artikelliste.Requery
End If