+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Açılan Kutudaki seçime göre Listeden veri almak. (/konu-acilan-kutudaki-secime-gore-listeden-veri-almak.html)
Açılan Kutudaki seçime göre Listeden veri almak. - fascioğlu - 03/11/2015
Sayın Hocalarım,
Ekli çalışmamda Odabilgileri formunda Konaklama Bilgileri bölümünde bulunan Konaklamasekli açılan kutudaki seçime göre Odalistesi tablosunda bulunan veriyi Odafiyatı alanına yazdırmak istiyorum,bunun için Odalistesinde gerekli düzenlemeyi yaptım,ama sonrasını beceremedim.
Saygılarımla.
İyi çalışmalar.
Cvp: Açılan Kutudaki seçime göre Listeden veri almak. - ozanakkaya - 03/11/2015
konaksekli açılan kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu ekle
If konakseklı = "ST" Then
Oda_fiyati = Dlookup ("standart", "tbl_odalistesi", "[odano]=" & Me.Odano)
ElseIf konakseklı = "YP" Then
Oda_fiyati = Dlookup ("yarim_pansiyon", "tbl_odalistesi", "[odano]=" & Me.Odano)
ElseIf konakseklı = "TP" Then
Oda_fiyati = Dlookup ("tam_pansiyon", "tbl_odalistesi", "[odano]=" & Me.Odano)
ElseIf konakseklı = "HD" Then
Oda_fiyati = Dlookup ("hersey_dahil", "tbl_odalistesi", "[odano]=" & Me.Odano)
End If
HesapYap
Hesaplamanın doğru çalışması için Sub HesapYap() kodunu aşağıdaki ile değiştir
Sub HesapYap()
mtn_Konaklamatoplami = Me.Oda_fiyati * Me.Konaklamasuresi
Me.mtn_Adisyontoplami = IIf(IsNumeric(adisyon1.Form!toplam), adisyon1.Form!toplam, 0)
Me.mtn_hesaptop = mtn_Konaklamatoplami + Me.mtn_Adisyontoplami
Me.mtn_odenecektutar = Me.mtn_hesaptop - Me.onodeme - Me.ıskonto
Me.KAL = Me.mtn_odenecektutar - Me.odeme_tutari
Me.Requery
End SubCvp: Açılan Kutudaki seçime göre Listeden veri almak. - fascioğlu - 03/11/2015
Sayın Ozan hocam,
Çok teşekkür ederim konu çözülmüştür.
Saygılarımla.