- Katılım
- 3 Nisan 2007
- Mesajlar
- 235
- Excel Vers. ve Dili
- 2003 TR
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Döviz_Cinsi_BeforeUpdate(Cancel As Integer)
Dim dolar, euro
dolar = DLookup("[USD SATIŞ]", "[srgtrz]")
euro = DLookup("[EUR SATIŞ]", "[srgtrz]")
If [Döviz Cinsi] = "usd" Then
doviz = dolar
ElseIf [Döviz Cinsi] = "eur" Then
doviz = euro
Else
doviz = 0
End If
tutar
End Sub
Private Sub Para_Tutarı_AfterUpdate()
tutar
End Sub
Sub tutar()
If [Döviz Cinsi] = "tl" Then
[tl Tutarı] = [Para Tutarı]
Else
[tl Tutarı] = [Para Tutarı] * doviz
End If
End Sub