Tarihe Göre Günlük Kur

[erkankamilonas]

Ekteki Sipariş adlı formda Tarihe göre o günün kurunu bulmak için ne yapmalıyım?

 

[erkankamilonas]

Tarihe göre günlük kur bulunmuyor mu? Ya da ne yapmalıyım teşekkürler.

 

[erkankamilonas]

Bu sorunu çözebilecek arkadaşların yardımı bekleniyor.

 

[erkankamilonas]

Sanırım çözümsüz bir soru sordum

 

[Taruz]

Merhaba..

Ekteki örnekte tarihe göre kur alınıp tutara işleniyor.. Mevcut yapınıza göre hazırlanan düzenek şu şekilde..:

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

 

[assenucler]

Teşekkür Sayın Taruz hocam...

 

[erkankamilonas]

Ellerinize sağlık teşekkür ederim.