Tek tablodan birden fazla oluşturulan formlara ver girişinin kaydedilmesi
Tarih
01/05/2014 23:52
Konu Sahibi
fascioğlu
Yorumlar
2
Okunma
741
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



fascioğlu
(yunusotel)
Kullanici Avatari
Aktif Üye (Özel)
F.... A....
839
18/09/2010
159
Muğla
Ofis 2003
18/11/2016,00:04
Çözüldü 
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....?


Ek Dosyalar
.rar   Otel Yönetim-Son.rar (Dosya Boyutu: 7,24 MB / İndirme Sayısı: 17)
Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.025
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Çözüldü 
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
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

Cevapla


fascioğlu
(yunusotel)
Kullanici Avatari
Aktif Üye (Özel)
F.... A....
839
18/09/2010
159
Muğla
Ofis 2003
18/11/2016,00:04
Çözüldü 
Hocam emeğinize sağlık sorun çzülmüştür.Çok teşekkür ederim.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Sorguda aynı kaydın birden çok listelenmesi atyaty 6 137 01/12/2016, 11:17 atoz112
  Formda İsim yazdığımda tablodan veri gelmesi 53rize 6 155 27/11/2016, 13:36 53rize
Çözüldü Birden fazla seçime göre filtreleme temre 5 161 14/11/2016, 22:34 atoz112
  Birden fazla kritere göre stok hareketlerini düzenlemek mehmetb84 11 260 12/11/2016, 14:16 mehmetb84
Çözüldü Yazıcıdan birden fazla çıktı alma sorunu m_demir 7 171 02/11/2016, 19:27 m_demir


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya