seçtiğim açılır kutuya karşılık gelen para miktarının gelmesi

selam arkadaşlar,
gönderdiğim formda açılır listedeki maddenin karşılığı olan para miktarının gelmesini, madde seçilmemiş ise para miktar bölümünün görünmemesi ve üç açılır listenin maddelerin altında maddeyi sayması, para miktarı altında toplam miktar yapması konusunda yardımcı olursanız sevinirim.
şimdiden teşekkür ederim.

merhaba,

uygulamanızı 2003 olarak da eklemek ister misiniz.
teşekkürler.

iyi çalışmalar.
saygılar.

evet. olabilir. tşk.

İnceleyiniz.

Sub CezaHesapla()

Dim Ceza1, Ceza2, Ceza3 As Integer

    Ceza1 = Nz(DLookup("[parası]", "maddepara", "[maddesi]=" & "'" & Me.CEZA_MAD1 & "'"), 0)

    Ceza2 = Nz(DLookup("[parası]", "maddepara", "[maddesi]=" & "'" & Me.CEZA_MAD2 & "'"), 0)

    Ceza3 = Nz(DLookup("[parası]", "maddepara", "[maddesi]=" & "'" & Me.CEZA_MAD3 & "'"), 0)

    Me.CEZA_MİKTARI = Ceza1 + Ceza2 + Ceza3

    Call MiktarGizle

End Sub



Sub MiktarGizle()



If IsNull(CEZA_MAD1) And IsNull(CEZA_MAD2) And IsNull(CEZA_MAD3) Then

    Me.CEZA_MİKTARI.Visible = False

Else

    Me.CEZA_MİKTARI.Visible = True

End If



End Sub



Private Sub CEZA_MAD1_AfterUpdate()

    CezaHesapla

End Sub



Private Sub CEZA_MAD2_AfterUpdate()

    CezaHesapla

End Sub



Private Sub CEZA_MAD3_AfterUpdate()

    CezaHesapla

End Sub



Private Sub Form_Current()

     MiktarGizle

End Sub

ilginizden dolayı tşk. istediğim gibi olmuş elinize sağlık. şu konularda da yardımcı olabilirmisiniz. maddeyi seçtiğimiz anda liste kutusunun sağ tarafına karşılık gelen para miktarını atabilirmiyiz (gizli ancak maddeyi seçtiğimizde ortaya çıkan bir kutu şeklinde), madde seçimini (-) yaptığımızda herhangi bir veri görünmesin

inceleyiniz