arkadaşlar iyi günler,
daha önce tablodaki bazı verileri kod marifetiyle farklı bir tablo oluşturup onun içine taşıyordum. sonraları sorgu ile bunu yapmam gerekti.
kullandığım kod:
application.currentdb.execute "select [genel sorgu3].SIRANU, [GENEL SORGU3].KAYITTARIHI, [genel sorgu3].YILI INTO [" & REPLACE(YIL, ".", "") & "-ARSIV" &"] FROM [GENEL SORGU3] WHERE ((([GENEL SORGU3].YILI) '*" & me.liste400 & "*'));"'

liste400 ile seçtiğim veriye göre filtreleme yapıp yeni bir tablo oluşturuyordum bunun benzerini sorgu ile yapmak istiyorum. Şimdilik manuel olarak oluşturduğum tablo oluşturma sorgusunu çalıştırarak kendim el ile tablo adını veriyorum. kod ile yardımlarınızı bekliyorum.

http://www.access-sql.com/Konu-Parametre...ma-Arayisi

Merhabalar,
Yukaridaki adreste kodla tablo olusturma konusu islenmis. İsinize yarayabilir sanirim.

Serdar2020 teşekkür ederim. Bahsedilen formdaki kodlar sıfırdan tablo oluşturmaktadır
Benim ihtiyacım olan sorguyu tabloya dönüştürmesidir.

Sn mbmbmbmb,
Sorgu calistirma SQL'i hatali gibi, liste400 yila denk geleni ilk sutun olarak kabul edersek, yeni olusturulacak tablo ismini bir degiskende tanimlayip, sorgu icine alabiliriz.

Dim Dosya As String
Dosya = Replace(Me.liste400.column(0) , ".", "") & "-ARSIV"
Application.CurrentDb.Execute "select [genel sorgu3].SIRANU, [GENEL SORGU3].KAYITTARIHI, [genel sorgu3].YILI INTO [" & Dosya & "] FROM [GENEL SORGU3] WHERE ((([GENEL SORGU3].YILI) =" & me.liste400.column(0)))"

(05-02-2016, 11:58)dsezgin83260 demiş ki: Sn mbmbmbmb,
Sorgu calistirma SQL'i hatali gibi, liste400 yila denk geleni ilk sutun olarak kabul edersek, yeni olusturulacak tablo ismini bir degiskende tanimlayip, sorgu icine alabiliriz.

Dim Dosya As String
Dosya = Replace(Me.liste400.column(0) , ".", "") & "-ARSIV"
Application.CurrentDb.Execute "select [genel sorgu3].SIRANU, [GENEL SORGU3].KAYITTARIHI, [genel sorgu3].YILI INTO [" & Dosya & "] FROM [GENEL SORGU3] WHERE ((([GENEL SORGU3].YILI) =" & me.liste400.column(0)))"

hocam teşekkür ederim. Liste diye bahsedilen kutucuk önce benim listekutusu olarak düzenlemem daha sonra onu metinkutusuna cevirmemden dolayı öyle kalmış. çalışan haliyle ekledim. umarım başkasına da yararlı olur. iyi günler.

---

Dim Dosya As String
Dosya = Replace(Me.Liste400, ".", "") & "-ARSIV"
Application.CurrentDb.Execute "select [genel sorgu3].SIRANU, [GENEL SORGU3].KAYITTARIHI, [genel sorgu3].YILI INTO [" & Dosya & "] FROM [GENEL SORGU3] WHERE ((([GENEL SORGU3].YILI) like '*" & Me.Liste400 & "*'));" '