ÖNCELİKLE SOMA DA ELİM KAZA SONUCU HAYATINI KAYBEDENLERE ALLAHTAN RAHMET YAKINLARINA
SABIR DİLER,TÜM TÜRKİYE'NİN BAŞISAĞOLSUN.
Arkadaşlar uzun zamandır üzerinde çalıştığım Otel Programının
finaline yaklaşmış bulunmaktayım,
Ancak bazı aksaklıklar var bunlardan birincisi ve en önemlisi
Şöyleki;frm_Odabilgileri formunda kayıt girmediğimiz halde yani
kaydı sonlandırmadığımız halde tbl_Odabilgilerine,tbl_Odalistesine
kayıt yapıyor
Sorum: Kayıt sonlanmadan Kaydetme olayını nasıl önleyebilirim.
Bu hususda yarıncı olacak arkadaşlara şimdiden saygılarımı sunarım.
Ben açamadım dosyayı 64 bit olduğunda sistem ama şöyle mantık kullanabilirsin.
Kayıt girdikten sonra çıkış yapa veya herhangi istediğin bir şeye tıkladığında şöyle bir mantık yap eğer form değişmişse kullanıcıdan msgbox ile kayıt yapıp yapmıyacağını sor ve ona göre işlem yap.
Örn:
Kod:
If Me.Dirty Then
If MsgBox("Kayıtta değişiklik yapılmış kaydetmek ister misiniz?", vbQuestion + vbYesNo, "Dikkat") = vbYes Then
DoCmd.Save
MsgBox "Başarıyla Kaydedildi", vbInformation, "UYARI"
DoCmd.Close
End If
Else
Me.Undo
DoCmd.Close
End If
Else
DoCmd.Close
End If
Muhterem arkadaşım,keşke açabilseydin sorunu daha iyi anlar belki ona göre çözüm yolunu seçebilirdiniz.Bu ve buna benzer uyarılar ile ilgisi yok.Saygılarımla.
Sayın pmsata;
Power hocanın yazmış olduğu kodları çözebilme,anlayabilme veya en basitinden kendi projeme
uygulayabilme bilgisine,becerisine sahip olabilseydim eğer,o zaman bu soruyu siteye sormam tabiri caizise abbesle iştigl etmem demektir,ne zamandır kodlara Ö.baktığı gibi bakıp duruyorum...sonuçta malümünüz.İlgi ve alakanız için çok teşekkür ederim.Saygılarımla.
Private Sub Kaydagit(ODN)
Me.RecordSource = "Select * From tbl_odabilgileri where odano = " & ODN
Me.KONTOP = Me.oda_fiyati * Me.Konaklamasuresi
'Me.Oda_tipi = Dlookup ("[odatipi]", "tbl_odalistesi", "[odano]=" & [odano])
' Me.oda_fiyati = Dlookup ("[odafiyati]", "tbl_odalistesi", "[odano]=" & [odano])
Me.Form.Requery
End Sub
Arkadaşlar,kaydetme sorunu ile ilgili hatayı buldum ve artık kaydet demiyene kadar kayıt yapmıyor,Hatalı kod odatipi ve Odafiyatını KAYDAGİT içinde
Dlookup kullandığım için,kaldırdım ve hata vermiyor,Dlookup olayını Kaydetme sorunu yaşamadan VB içinde nasıl kullanabilirim.