Varsayılan (0) değer sorunu

01/11/2015, 22:46

fascioğlu

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.
02/11/2015, 11:39

atoz112

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.
02/11/2015, 12:28

fascioğlu

Sayın Atoz112
Örneği 1.msj.ekledim,
Saygılarımla.
02/11/2015, 18:25

ozanakkaya

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.
03/11/2015, 01:06

fascioğlu

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.
03/11/2015, 01:21

fascioğlu

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