- Katılım
- 3 Nisan 2007
- Mesajlar
- 235
- Excel Vers. ve Dili
- 2003 TR
Acceste şöyle bir kod yazdım.
Private Sub Para_AfterUpdate()
ArananTarih = Metin69
Set cnn = New Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '\\sql\MALİYET K SYSTEM\VERİ.mdb'"
Set rcr = cnn.Execute("SELECT [Günlük Kurlar].[EUR SATIŞ] FROM [Günlük Kurlar] WHERE [Günlük Kurlar].TARİH='" & ArananTarih & "';")
EUR = rcr![EUR SATIŞ]
If [Para] = "EUR" Then [Kur] = EUR
End Sub
1-) Metin69 bir Metin kutusudur, bu kutuya 12.05.2009 şeklinde Tarih yazılmaktadır. Günlük kurlar veritabanından Metin69'da hangi tarih yazıyorsa o tarihin EUR kuru gelmesi için ne yapmalıyım
2-) Bu kodları doğrudan sorguyu yazarak yapabilirmiyim nasıl?
Private Sub Para_AfterUpdate()
ArananTarih = Metin69
Set cnn = New Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '\\sql\MALİYET K SYSTEM\VERİ.mdb'"
Set rcr = cnn.Execute("SELECT [Günlük Kurlar].[EUR SATIŞ] FROM [Günlük Kurlar] WHERE [Günlük Kurlar].TARİH='" & ArananTarih & "';")
EUR = rcr![EUR SATIŞ]
If [Para] = "EUR" Then [Kur] = EUR
End Sub
1-) Metin69 bir Metin kutusudur, bu kutuya 12.05.2009 şeklinde Tarih yazılmaktadır. Günlük kurlar veritabanından Metin69'da hangi tarih yazıyorsa o tarihin EUR kuru gelmesi için ne yapmalıyım
2-) Bu kodları doğrudan sorguyu yazarak yapabilirmiyim nasıl?