AccessTr.neT

bu konu ile ilgili sorunuzu daha önce açtığınız aynı konuya yazsanız daha iyi olurdu.

metin kutusunun adını "Oda_no" olarak değiştirmişsiniz ancak kodda "odano" ve "ODANO" olarak duruyor, her ikisini de "Oda_no" yaparsanız düzelir

    DoCmd.RunSQL ("UPDATE tbl_odalistesi SET bosdolu = 0 WHERE ((odano)=[Forms]![frm_odabilgileri]![Oda_no])")

    DoCmd.RunSQL ("UPDATE tbl_odabilgileri SET bosdolu = 1 WHERE (([ODANO])=[Forms]![frm_odabilgileri]![Oda_no])")

metin kutusunun denetim kaynağı "odano" ise, metin kutusu adını "mtn_odano" olarak kaydederseniz bu tip sorunlarla karşılaşmazsınız, ancak şu anki sorun sizi ileride yaşayacağınız daha büyük sorunlardan kurtaracak.

Hocam tırnakları kaldırdım oldu,Oda Fiyatı bölümüne uyguladığım formül oda verdiğim zaman oda fiyatını veriyor ancak boş iken yani oda no 0 iken oda fiyatı bölümünde Hata msj geliyor neden olabilir,saygılarımla.=DLookUp("[odafiyati]";"tbl_odalistesi";"[odano]=" & [odano])

Bir önceki mesajımı yeniledim. Daha önce silmenizi istediğim tırnakları geri ekleyip veya o satırları silip yerine önceki mesajımı uygulayınız. Yani;

    DoCmd.RunSQL ("UPDATE tbl_odalistesi SET bosdolu = 0 WHERE ((odano)=[Forms]![frm_odabilgileri]![Oda_no])")

    DoCmd.RunSQL ("UPDATE tbl_odabilgileri SET bosdolu = 1 WHERE (([ODANO])=[Forms]![frm_odabilgileri]![Oda_no])")

Dediğiniz olayı uyguladım ve ekrana resimdeki msj geliyor haocam.

---

Ek Dosyalar

Otel Yönetim.rar(518.16 KB)

Önceki mesajda belirtmiştim, silmenizi istediğim tırnakları geri ekleyin veya o satırları komple silin.

Private Sub Komut145_Click()

On Error GoTo Err_Komut145_Click

 DoCmd.RunCommand acCmdSaveRecord

    DoCmd.SetWarnings False

    DoCmd.RunSQL ("UPDATE tbl_odalistesi SET bosdolu = 0 WHERE ((odano)=[Forms]![frm_odabilgileri]![Oda_no])")

    DoCmd.RunSQL ("UPDATE tbl_odabilgileri SET bosdolu = 1 WHERE (([ODANO])=[Forms]![frm_odabilgileri]![Oda_no])")

    Controls("Etiket" & [Forms]![frm_odabilgileri]![Odano]).BackColor = 15130064

    Controls("Etiket" & [Forms]![frm_odabilgileri]![Odano]).ForeColor = 0

    Form.Requery

    DoCmd.SetWarnings True



Exit_Komut145_Click:

    Exit Sub



Err_Komut145_Click:

    MsgBox Err.Description

    Resume Exit_Komut145_Click

    Call KutuRenk

End Sub

butonun tıklanma kodu aşağıdaki gibi olacak.

Formun "tbl_odabilgileri" yazan kayıt kaynağını silip yerine aşağıdakini yapıştır.

SELECT tbl_odabilgileri.Kimlik, tbl_odabilgileri.Odano, tbl_odabilgileri.Odatipi, tbl_odabilgileri.Odafiyati, tbl_odabilgileri.Kisisayisi, tbl_odabilgileri.Cocuksayisi, tbl_odabilgileri.Giristarihi, tbl_odabilgileri.Konaklamasuresi, tbl_odabilgileri.Cıkıstarihi, tbl_odabilgileri.Tutari, tbl_odabilgileri.Konaklamatoplami, tbl_odabilgileri.Nakitodeme, tbl_odabilgileri.Kredikartiodeme, tbl_odabilgileri.Adisyontoplami, tbl_odabilgileri.Nakitodeme1, tbl_odabilgileri.Kredikartiodeme1, tbl_odabilgileri.Nakit_toplami, tbl_odabilgileri.Kredikartitoplamı, tbl_odabilgileri.Doluoda, tbl_odabilgileri.Bosoda, tbl_odabilgileri.Bugungidecekler, tbl_odabilgileri.Bugüngelecekler, tbl_odabilgileri.Kisisayisi1, tbl_odabilgileri.Cocuksayisi1, tbl_odabilgileri.bosdolu FROM tbl_odabilgileri WHERE (((tbl_odabilgileri.bosdolu)=False));

Konu başlığındaki soru cevaplandığı için konu taşınmıştır.

Ayrıca; her mesaja örnek eklemenize gerek yok ve veritabanınızı ara sıra sıkıştırıp onarın.

Emeğinize sağlık çok tşk,edereim,hocam.Saygılarımla.