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.
İ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