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....?

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

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