Tek tablodan birden fazla oluşturulan formlara ver girişinin kaydedilmesi

01/05/2014, 23:52

fascioğlu

Sayın hocalarım,
Daha önceden yapmış olduğuğum Otel Projesi çalışmamda bazı yenilikler ve düzenlemeler yaptım.
Sorunum şu,ekteki örnekte ve resimlerden de anlaşılacağı gibi sorun şu,frm_Odabilgileri formunda çalıştırdığım ve tbl_musteri kayıt kaynağına bağlı olarak üç adet Kişi Kimlik formu oluşturdum,bu kişi kimlik formları Odabilgileri formunda bulunan Kişisayısı alanına bağlı olarak form açmaktadır.
Buraya kadar herşey gayet sorunsuz olarak çalışmakta.Ancak kişi sayısına göre girmiş olduğum verilerin sadece İlk formdaki veriler gözükmekte,diğer girmiş olduğum veriler gözükmemektedir,ayrıca girdiğim veriler Müşteri listesinde tek satırda değilde her veri için ayrı satır açmakta ve Müşteri No yu esas almakta,oysa burada esas olan Müşteri no değlde Oda No yu esas alması gerekmektedir.
Bu konuda yardımcı olacak arkadaşlarıma şimdiden çok teşekkür ederim.
Saygılarımla.

Not: Arkadaşlar özür dilerim ama ne dosyayı nede resimleri yükleyemedim....?
02/05/2014, 19:11

ozanakkaya

7.24 MB'lık örnek eklemişsiniz, veritabanınızı sıkıştırıp onararak (Bkz.Dosya Düzenle Onar ve WinRar ile Sıkıştırma İşlemi) eklerseniz 200 KB'a düşüyor.

Kisisayisi metin kutusunun güncelleştirme sonrasında olayındaki kodları aşağıdaki ile değiştiriniz.

Me.KISI.Visible = False
Me.KISI1.Visible = False
Me.KISI2.Visible = False
Me.adisyon.Visible = False
Me.adisyon1.Visible = False
Me.KONTOP.Visible = False
Me.KONAKTUT.Visible = False
Me.ADTOP.Visible = False
Me.ADİSYONTUT.Visible = False
Me.ADİSYONTUT.Visible = False
Me.HESTOP.Visible = False
Me.TOPLAMTUT.Visible = False
Me.ÖNÖDEMETUT.Visible = False
Me.mtn_onodeme.Visible = False
Me.mtn_odemetutarı.Visible = False
Me.ÖDENECEKTUT.Visible = False
Me.ıskonto.Visible = False
Me.ISKONTOTUT.Visible = False
Me.NAKTOP.Visible = False
Me.NAKODM.Visible = False
Me.KREDITOP.Visible = False
Me.KKARTIÖDEME.Visible = False
Me.KAL.Visible = False
Me.Kalan.Visible = False
Me.ADSHESAY.Visible = False
Me.ODAHESAY.Visible = False


Dim rs As New ADODB.Recordset
rs.Open "tbl_musteri", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("odano") = Me.odano
rs.Update
Set rs = Nothing




If Me.Kisisayisi > 0 Then
Me.KISI.Visible = True
End If
If Me.Kisisayisi > 1 Then
Me.KISI1.Visible = True
End If
If Me.Kisisayisi > 2 Then
Me.KISI2.Visible = True
End If
DoCmd.RunCommand acCmdRefresh
If Me.Kisisayisi = 0 Then MsgBox ("Kişisayısı 0 sıfır olamaz"): Me.Kisisayisi.SetFocus
If Me.Kisisayisi > 3 Then MsgBox ("Oda kaydı en fazla 3 kişi olabilir...!"): Exit Sub
02/05/2014, 21:25

fascioğlu

Hocam emeğinize sağlık sorun çzülmüştür.Çok teşekkür ederim.