Merhaba Arkadaşlar;

Bir ekleme sorgusu formatım var. Bu ekleme sorgusu bir sorgu üzerinden veri alarak çalışıyor. Buraya kadar sorun yok. Fakat sorgu üzerinde 150 farklı sütun var. Bu alanların her biri için sorgu yazmam gerekiyor. Bu da 150 tane sorgu oluşturmak anlamına geliyor. Fakat bir basit çözümü vardır diye düşünüyorum. Yardımlarınızı rica ederim.

Sorgu Türü: Ekleme Sorgusu

Örnek Sorgu Kodları;

1-
INSERT INTO Tablo1 ( ID, Dgr, Say )
SELECT srg_veri1.[Kimlik], srg_veri1.[SNC], srg_veri1.[O1]
FROM srg_anlz_ekle LEFT JOIN srg_veri1 ON srg_anlz_ekle.OA1OK = srg_veri1.O1;

2-
INSERT INTO Tablo1 ( ID, Dgr, Say )
SELECT srg_veri1.[Kimlik], srg_veri1.[SNC], srg_veri1.[O2]
FROM srg_anlz_ekle LEFT JOIN srg_veri1 ON srg_anlz_ekle.OA2OK = srg_veri1.O2;

3-
INSERT INTO Tablo1 ( ID, Dgr, Say )
SELECT srg_veri1.[Kimlik], srg_veri1.[SNC], srg_veri1.[O3]
FROM srg_anlz_ekle LEFT JOIN srg_veri1 ON srg_anlz_ekle.OA3OK = srg_veri1.O3;

Fark ettiyseniz sadece bazı alanlar değişiyor. Ve değişimde belirli bir düzen var. Bir çözüm bulamazsam yukarıda yaptığım 3 adet farklı sorgu metnini 150 tane çoklamam gerekecek.  


Desteğinizi rica ederim.

Saygılar

olarak deneyiniz.

(21-10-2021, 04:08)dsezgin demiş ki:

Visual Basic

Dim Sayac as long
For Sayac=1 to ....
currentdb.execute "INSERT INTO Tablo1 ( ID, Dgr, Say ) " & _
"SELECT srg_veri1.[Kimlik], srg_veri1.[SNC], srg_veri1.[O" & Sayac & "] " & _
"FROM srg_anlz_ekle LEFT JOIN srg_veri1 ON srg_anlz_ekle.[OA" & Sayac & "OK] = srg_veri1.[O" & Sayac & "]"
next sayac

olarak deneyiniz.

Hocam bu alanı sarı işaretleyerek debug veriyor.

CurrentDb.Execute "INSERT INTO Tablo1 ( ID, Dgr, Say ) " & _
"SELECT srg_veri1.[Kimlik], srg_veri1.[SNC], srg_veri1.[O" & Sayac & "] " & _
"FROM srg_anlz_ekle LEFT JOIN srg_veri1 ON srg_anlz_ekle.[OA" & Sayac & "OK] = srg_veri1.[O" & Sayac & "]"

Hata uyarısı;
Run Time Error 3061
Çok az parametre. 21 Bekleniyor.

(22-10-2021, 13:32)adnnfrm demiş ki: Hocam bu alanı sarı işaretleyerek debug veriyor.

Hata uyarısı;
Run Time Error 3061
Çok az parametre. 21 Bekleniyor.

Yazdığınıza karşılık önerdim, örnek dosyanız olsa deneme yapılırdı.



  adnnfrm1.rar (Boyut: 910,69 KB / İndirilme: 47)

(22-10-2021, 13:55)dsezgin demiş ki:

(22-10-2021, 13:32)adnnfrm demiş ki: Hocam bu alanı sarı işaretleyerek debug veriyor.

Hata uyarısı;
Run Time Error 3061
Çok az parametre. 21 Bekleniyor.

Yazdığınıza karşılık önerdim, örnek dosyanız olsa deneme yapılırdı.

Hocam sorguya bağlı olduğu için sıkıntı oldu sanırım. Önce verileri ara bir tabloya ekle sorgusu ile alıp vba sorgusunu öyle çalıştırınca sorun kalmadı. Çok Teşekkürler.