Forumda bulunan alt forum metin kutuları arasında gezinti

1 2
16/01/2012, 00:52

ozanakkaya

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.
16/01/2012, 01:45

fascioğlu

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])
16/01/2012, 01:51

ozanakkaya

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])")
16/01/2012, 02:06

fascioğlu

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

16/01/2012, 10:34

ozanakkaya

Ö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.
16/01/2012, 15:03

fascioğlu

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