Skip to main content

AccessTr.neT


Varsayılan (0) değer sorunu

Varsayılan (0) değer sorunu

Çözüldü #1
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.
.rar FA.Otel & İşletme Yönetim - 40 Oda.rar (Dosya Boyutu: 846,3 KB | İndirme Sayısı: 2)
Son Düzenleme: 01/11/2015, 23:01, Düzenleyen: fascioğlu.
Cevapla
#2
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.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#3
Sayın Atoz112
Örneği 1.msj.ekledim,
Saygılarımla.
Cevapla
#4
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.
Cevapla
#5
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.
Cevapla
#6
Sayın Ozan Hocam,
Sorunu çözdüm,her şey için çok teşekkür ederim.
Saygılarımla.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task