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.
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 Sub
Sayın Ozan hocam,
Çok teşekkür ederim konu çözülmüştür.
Saygılarımla.