Kodu aşağıdaki ile değiştirerek deneyiniz

Private Sub Kaydagit(ODN)



   If Me.Dirty = True Then

     SendKeys "{ESC}"

   Else

       XXOdano = ODN

       Me.RecordSource = "Select * From tbl_odabilgileri where odano = " & ODN

       Me.KONTOP = Me.Oda_fiyati * Me.Konaklamasuresi

       Me.Requery

   End If

End Sub

Ayrıca, uygulamada

Me.Konaklamatoplami = Me.KONTOP

şeklinde kodlar var. Ancak formda Konaklamatoplami adında herhangi bir denetim yok. Bunun gibi hataların önüne geçmek için metin kutusunun denetim kaynağı Konaklamatoplami ise, metin kutusunun adı mtn_Konaklamatoplami şeklinde yazılır. Kod eklerken bu gibi hatalarla karşılaşmazsınız.

Metin kutularının isimleri çok çok önceden belirlendi diyorsanız, formu tasarım görünümünde açıp tüm denetimlerin isimlerini düzeltin. Düzelttiğiniz isimleri Vba sayfasında değiştirin.