Varsayılan (0) değer sorunu

Sayın Hocalarım,
Benim sorunum Otel & İşletme Yönetim çalışmamda bulunan  Odabilgileri tablosunda Odano alanının  Varsayılan değerini ( 0 ) yaptığımda,her nasılsa ( 0 ) Odano adında yeni kayıt açıyor ve Odasayısını  -1 olarak gösteriyor,
      Varsayılan değeri kaldırdığımda ( 0 ) kayıt açmayı önlüyorum,buraya kadar Normal,  
Ama bu kezde dolu odalardan ilk Chekcout yaptığımda herşey normal,2 Chekcout yaptığımda ise aşağıdaki hatayı veriyor.

"Girdiğiniz değer alan veya denetim için tanımlanan geçerlilik kuralına uymuyor" uyarısından sonra
Debung yapıyorum aşağıdaki Kod açılıyor.

Private Sub Kaydagit(ODN)
       
 XXOdano = ODN
         Me.RecordSource = "Select * From tbl_odabilgileri where odano = " & ODN
         Me.KONTOP = Me.Oda_fiyati * Me.Konaklamasuresi
         Me.Form.Requery
End Sub

         Formu açıp kapattığımda ise normale dönüyor.Bu işin içinden nasıl çıkabilirim,yardımcı olursanız sevinirim.
Saygılarımla.
İyi çalışmalar.

sayın fascioglu,

siz de takdir edersiniz ki,Site Kuralları gereği;
sadece ifadeler ya da bilgisel bazda çözüme yetersiz kalacak sorunlarda örnek eklenmesi yerinde olacaktır.

bu nedenle,lütfen,örnek uygulamanızı eklemeye özen gösteriniz.teşekkürler.

bilginize...iyi çalışmalar,saygılar.

Sayın Atoz112
Örneği 1.msj.ekledim,
Saygılarımla.

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.

Sayın Ozan hocam,
Emek ve mesainiz için çok teşekkür ederim,sorun çözüldü,yalnız bu arada yine 0 sorunu ile ilgili farklı bir sorun var,Odabilgileri formunda bulunan Ödeme Bilgileri bölümünde odemeyon alanına Odakaydı yaptıktan sonra 0 yazıyor,ve Odmetutarı ve Kalan alanları boş geçiyor,oysa ödeme yapılmadıysa Odeme_tutarı alanının 00 TL,kalan alanında ise Ödenecek tutarın gelmesi gerekiyor.
Bu husudada katkı sağlariseniz,minnettar kalacağım.
Saygılarımla.

Sayın Ozan Hocam,
Sorunu çözdüm,her şey için çok teşekkür ederim.
Saygılarımla.