DoCmd.RunSQL hatası;

[erkankamilonas]

DoCmd.RunSQL ("SELECT [Günlük Kurlar].[EUR SATIŞ] FROM [Günlük Kurlar] WHERE [Günlük Kurlar].TARİH=date()")

Acces 2003'te yazılan bu kodda aldığım hata;
Bir RunSql eylemi; SQL deyiminden oluşan bir değişken gerektirir. şeklinde bir hata alıyorum sebebi nedir?

 

[modalı]

Sayın erkankamilonas,

Tarih değişkenini ## arasına almak gerekir. Bunun için:

Dim strSql As String

strSql="SELECT [Günlük Kurlar].[EUR SATIŞ] FROM [Günlük Kurlar] WHERE [Günlük Kurlar].TARİH= #" & date() & "#"

DoCmd.RunSQL (strSql)

olarak kullanınız.

İyi çalışmalar