Sayın hocalarım,

Hatasız çalışan projem, ofis 2013 kurulumundan sonra hata vermeye başladı.

Hata şu;Dolu odanın ödeme bilgilerini girdikten sonra oda çıkış butonu ile çıkış yapıyorum,çıkıştan sonra boş odaya kayıt girmeye çalıştığımda permission denied diye bir hata uyarısı alıyorum.Debug yaptığımda ise;
Kod sayfasınada aşığıdaki kodu gösteriyor.

Private Sub Kaydagit(ODN)

          If Me.Dirty = True Then

     SendKeys "[ESC]"

   Else

        XXOdano = ODN

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

        Me.Konaklamatoplami = Me.Oda_fiyati * Me.Konaklamasuresi

        Me.Form.Requery

   End If

KisiBilgileriGuncelle

End Sub

end dedikten sonra ESC tuşuna basıyorum normale dönüyor,arada birde numlok u kapatıyor.

Çözüm konusunda yardımcı olursanız sevinirim.
Saygılarımla.

oda çıkışı yapıldığında me.acl_konakseklı  metin kutusuna [ESC]yazdığından kaynaklanıyor hata. Ayrıca 406 nolu oda boş iken tıkladığınızda me.acl_konakseklı metin kutusuna OK yazmakta. tüm kod yapınızı gözden geçirin, debug Compile dediğinizdede bir çok nesne bulunamadı hatası vermekte.  yönetilebilir hale getirin yoksa ileride daha çok sorun çıkartma ihtimali mevcut

Sayın hocam,
Ofis veriyonumuzdan kaynaklanabilirmi,dediğin hataları düzelttim Compilevt1 yapıyorum hata vermiyor.

ofis versiyonu ile alakalı olmaz. tıkladığınızda problem olan yere gidip orayı mavi yapar

Haklısınız hatalar vardı,yine düzelttim.
Yalnız bişey söyleyeceğim hani dediniz ya ödeme tutarını 0 yazdığımda çıkış yapıyor,bende çıkış yapmıyor eksik ödeme msj.veriyor hacam,dikkatinizden
kaçmış olabilir.
Saygılarımla.
Allah rahatlık versin.

SendKeys "[ESC]"

Kodunu,

SendKeys "{ESC}"

kodu ile değiştiriniz.