isterseniz alanları bağımsız yaparsınız ve sadece kaydet dediğinizde tabloya ekleyen bir yapı kullanabilirsiniz.
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ı"