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.