Sayın Ozan hocam,

Varsayılan değer (0) konusunda sormuş olduğum soruya cevap almıştım, 0 kayıt yapma olayını ortadan kaldırmıştık ve aşağıdaki kod oluşmuştu.


Private Sub Kaydagit(ODN)
              If Me.Dirty = True Then
     SendKeys "{ESC}"
   Else
        XXOdano = ODN
        Me.RecordSource = "Select * From tbl_odabilgileri where odano = " & ODN
        Me.mtn_Konaklamatoplami = Me.odafiyati * Me.Konaklamasuresi
        Me.Form.Requery


   End If
End Sub

Ancak Kayıt iptali veya farklı bir işlem yapıtığımda ekteki ekran görüntüsünden de anlaşılacağı gibi hata uyarısı alıyorum,
Odano alanını varsayılan değer atadığımda ise  sorun çözülüyor, çözülmesinede bu sefer tekrar başa dönüyor ve 0 kayıt yapıyor.
Saygılarımla.