VBA dan sorgu çalıştırma

[ownn]

selam;
Bir sorgum var. formdaki iki text boxdan aldığı iki değer arası kadar çalışması gerekiyor. her çalışmasında tabloya 1 satır ekliyor.
sorgularla yada makro ile yapamadım ben de VBA da denedim.

Ancak "yordam" kısmı çalışmıyor...? deyimde hata var mesajı veriyor. :kafa:
ne dersiniz fikri olan var mı..?

Private Sub Command8_Click()
gtut = Me.GBDGT
gtur = Me.GiderTürü
say = Me.ilktarih - Me.SonTarih
For t = 1 To say
gtar = Me.ilktarih + t
yordam = "INSERT INTO Giderler ( GiderTarihi, GiderTürü, GiderTutarı )" & _
"SELECT DISTINCT " & gtar & " AS GiderTarihi, " & gtur & " AS GiderTürü," & gtut & " AS GiderTutarı" & _
"FROM Giderler"
DoCmd.RunSQL yordam
Next t
End Sub

 

[ownn]

sonuçta aşağıdaki gibi bir bilgi grubunu tablo içine yazmak istiyorum...
gtar gtur gtut
01.01.2005 1 nolu gider türü 3 ytl
02.01.2005 1 nolu gider türü 3 ytl
03.01.2005 1 nolu gider türü 3 ytl
04.01.2005 1 nolu gider türü 3 ytl
05.01.2005 1 nolu gider türü 3 ytl
06.01.2005 1 nolu gider türü 3 ytl
07.01.2005 1 nolu gider türü 3 ytl
08.01.2005 1 nolu gider türü 3 ytl
09.01.2005 1 nolu gider türü 3 ytl

 

[ALPEN]

Giderler tablosunun alan isimleri nedir?

 

[ownn]

GiderTarihi, GiderTürü, GiderTutarı

 

[ownn]

tarih formatı

Selam;

tarih formatı ile ilgili genel bir sıkıntım var söyle ki;

projede kullandığım tüm tarihler 12.05.2005 formtındaki gibi aralarında "." ayıracı ile saklanıyor. Ancak VBA da kod yazarken bu kısımda sürekli hata veriyor. uzun çabalarım sonucu VBA da hesap yada karşılaştırma yaparken 12-05-2005 olarak kullanılınca sorun çıkmadığını gördüm. Ve aptalca da olsa ;

value= day(ilktarih)&"-"&month(ilktarih)&"-"&year(ilktarih)

kodları ile her seferinde "." lı olan tarih değerini "-" olarak değiştiriyorum..
nedeni ne olabilir... başka bir çözüm varmıdır..?

ilgi ve alakanız için
Teşekkürler

NOT: WİN XP ingilizce OFFICE 2003 türkçe kullanıyorum.