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