ama öbür türlü olduğunda "esc" ye bastığınızda bile sayı sürekli artar diye biliyorum
mesela doğrudan tabloyu açıp 1 harf girip "esc" bastığınızda bile sayı artıyor.
Dim Rs As New ADODB.Recordset
Dim SqlEkle As String
SqlEkle = "select * from denetim"
Rs.Open SqlEkle, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Rs.AddNew
Rs!klasorno = Me.klasorno
Rs!dosyano = Me.dosyano
'diğer alan adları ve metin kutuları.
.
.
Rs.Update
Rs.Close: Set Rs = Nothing
' buraya da tüm metin kutularını boşaltacak kod yazılabilir
MsgBox "Kaydetme İşlemi tamamlandı"