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

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

+- 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ığı: seçtiğim açılır kutuya karşılık gelen para miktarının gelmesi (/konu-sectigim-acilir-kutuya-karsilik-gelen-para-miktarinin-gelmesi.html)

Sayfalar: 1 2

seçtiğim açılır kutuya karşılık gelen para miktarının gelmesi - beyşehir2004 - 20/02/2014

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.

Cvp: seçtiğim açılır kutuya karşılık gelen para miktarının gelmesi - atoz112 - 20/02/2014

merhaba,

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

iyi çalışmalar.
saygılar.

Cvp: seçtiğim açılır kutuya karşılık gelen para miktarının gelmesi - beyşehir2004 - 20/02/2014

evet. olabilir. tşk.

Cvp: seçtiğim açılır kutuya karşılık gelen para miktarının gelmesi - ozanakkaya - 20/02/2014

İ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

Cvp: seçtiğim açılır kutuya karşılık gelen para miktarının gelmesi - beyşehir2004 - 20/02/2014

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

Cvp: seçtiğim açılır kutuya karşılık gelen para miktarının gelmesi - ozanakkaya - 21/02/2014

inceleyiniz