aşağıdaki kodu dener misiniz?
pasif satırları aktif ederseniz önce kayıt var mı diye kontrol eder, kayıt yoksa ekler varsa veeriyi günceller

'If DCount("*", "B", "ev='" & Me.Ev & "'") = 0 Then

'    txtSQL = "insert into b ([ev],[alan]) " & _

'             "values ('" & Me.Ev & "'," & Me.Alan & ")"

'Else

    txtSQL = "update b set [alan]=[alan]+" & Me.Alan & _

             " where ev='" & Me.Ev & "'"

'End If

CurrentDb.Execute txtSQL

CurrentDb.Execute "delete * from A where Kimlik=" & Me.Kimlik