Sayın Ozan hocam,

Varsayılan değer (0) konusunda sormuş olduğum soruya cevap almıştım, 0 kayıt yapma olayını ortadan kaldırmıştık ve aşağıdaki kod oluşmuştu.


Private Sub Kaydagit(ODN)
              If Me.Dirty = True Then
     SendKeys "{ESC}"
   Else
        XXOdano = ODN
        Me.RecordSource = "Select * From tbl_odabilgileri where odano = " & ODN
        Me.mtn_Konaklamatoplami = Me.odafiyati * Me.Konaklamasuresi
        Me.Form.Requery


   End If
End Sub

Ancak Kayıt iptali veya farklı bir işlem yapıtığımda ekteki ekran görüntüsünden de anlaşılacağı gibi hata uyarısı alıyorum,
Odano alanını varsayılan değer atadığımda ise  sorun çözülüyor, çözülmesinede bu sefer tekrar başa dönüyor ve 0 kayıt yapıyor.
Saygılarımla.

Eklediğiniz resimlerde de görüleceği üzere, oda no alanı boş olduğu için bu hatayı alıyorsunuz. oda no alanı dolu iken kayıt iptali butonuna tıkladığınızda hata veriyor mu?

Gördüğüm kadarıyla varsayılan değerin 0 olması uygulamanın çalışma prensibi açısından önemli.

Formun kapandığında olayına silme sorgusu yazarak oda no 0 olan veriyi sildirebilirsin. Sayma işlemindeki sıkıntı için, oda nomarası 0'dan farklı olanları saydırabilirsin.

Bu haliyle kodlara müdahale edilirse (varsayılan değer 0 olmadan) farklı yerlerde farklı hatalar verecek.

Ayrıca, mesajda eklenti eklediğiniz kısımda "Lütfen Resim Dosyalarınızı  Resim Yükle butonuna basarak ekleyiniz. Ek Dosya olarak eklemeyiniz." şeklinde açıklama var. Bu açıklama sizde görünmüyor mu?

Sayın Ozan hocam,

Dediğiniz çok doğru Varsayılan değer 0 olunca hatayla karşılaşmıyorum,tek hata Odabilgilerine 0 yazıyor haliyle gerçek kayıt 2 ise 1 yazıyor veya hiç kayıt yokken dolu oda olarak -1 yazıyor.Resim için kusura bakmayın dalgınlıkla oldu.
Saygılarımla.
Not:Hocam 0 Kayıt olayı tesbit edebildiğim kadar Kayıt iptalinden sonra geliyor

(03/11/2015, 19:24)fascioğlu yazdı: tek hata Odabilgilerine 0 yazıyor

Uygulamanın çalışma mantığı bu şekilde, form açıldığında checkout butonu veya kayıt sil buton tıklandığında butondaki kod ile tablolara veri aktarıyor. Formu yenileyip odano=0 yazdırıyor. Eğer oda no = "" şeklinde kod olursa formdaki kodlamalar çalışmaz, kayıt hatası almamak için oda seçili değilken odanonun 0 olması gerekiyor. Sen buton tıkladığında odano= 0 yapıp tabloya yeni kayıt ekliyorsa formdan çıkıldığında silme sorgusu ile bu 0 nolu odalı sildirebilirsin. Veya 0 nolu oda tabloda hep kalır.
Formda oda no 0 görünmesin istiyorsan Odano isimli metin kutusuna koşullu biçimlendirme ekle
biçimlendirme kısmında ilk bölüme Alan değeri, ikinci bölüme buna eşitir:, değer kısmına da 0 yaz



Yazı rengini de oda no metin kutusunun arka planı ile aynı olacak şekilde değiştir.

renk modeli: HLS, Ton: 160, Doygunluk:0, Parlaklık:60

Bu şekilde, metin kutusunda oda no 0 yazsa bile siz sıfırı görmezsiniz.

(03/11/2015, 19:24)fascioğlu yazdı: hiç kayıt yokken dolu oda olarak -1 yazıyor

Oda sayısını forma aktarmak için Giris isimli forma ODASAY() kodu eklenmiş, bu kodda

strSQL = "SELECT * FROM tbl_odabilgileri"

şeklinde kod var, bu kodu

strSQL = "SELECT * FROM tbl_odabilgileri WHERE Odano<>0;"

şeklinde değiştirirsen, tabloda oda numarası 0'dan farklı olanları hesaplatırsın. 0 yerine -1 yazmaz.

Sayın Ozan Hocam
Konu çözülmüştür.
Saygılarımla.