Skip to main content

AccessTr.neT


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

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

Çözüldü #1
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....?
.rar Otel Yönetim-Son.rar (Dosya Boyutu: 7,24 MB | İndirme Sayısı: 17)
Son Düzenleme: 02/05/2014, 18:27, Düzenleyen: fascioğlu.
Cevapla
Çözüldü #2
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.

Visual Basic Code
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

"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
Çözüldü #3
Hocam emeğinize sağlık sorun çzülmüştür.Çok teşekkür ederim.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da