AccessTr.neT
INSERT INTO sorgusundaki eklenecek alan adını dinamik hale getirmek. - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: INSERT INTO sorgusundaki eklenecek alan adını dinamik hale getirmek. (/konu-insert-into-sorgusundaki-eklenecek-alan-adini-dinamik-hale-getirmek.html)



INSERT INTO sorgusundaki eklenecek alan adını dinamik hale getirmek. - direnist - 11/04/2015

Merhaba arkadaşlar;
Ekli örnekteki Form1 de bulunan ilişkisiz olan metin kutularınıa yazılacak sayısal değerleri Kaydet butonu ile kod tarafında INSERT INTO ile for döngüsü içinde kaydetmek istiyorum. 
Metin kutularının adı Max1, Min1, Sonuc1 şeklinde 5 e kadar gidiyor.
Kod tarafındaki INSERT INTO içindeki yerede Max & i şeklinde yazarak tek bir INSERT INTO Sql cümlesi ile bunu metin kutularında yazan değerleri alır ve ekler diye düşündüm. Fakat Max & i şeklinde yazınca sadece "i" değişkenindeki değeri tabloya kaydediyor. Ben eklenecek alan adını nasıl dinamik şekilde tek Sql cümlesi halinde yazabilirim.
Umarım derdimi anlatabilmişimdir.
Yardımlarınız için şimdiden teşekkür ederim.


Cvp: INSERT INTO sorgusundaki eklenecek alan adını dinamik hale getirmek. - ozanakkaya - 11/04/2015

kodu aşağıdaki ile değiştirerek deneyiniz.


Dim Sql As String

Dim i As Byte

For i = 1 To 5
sql = "Insert Into Table1 ([MAX], [MIN], [SONUC]) values ('" & Controls("Max" & i) & "', '" & Controls("Min" & i) & "','" & Controls("Sonuc" & i) & "')"
      Debug.Print sql
      CurrentDb.Execute sql
Next i



Cvp: INSERT INTO sorgusundaki eklenecek alan adını dinamik hale getirmek. - direnist - 11/04/2015

Ozan hocam, çok teşekkür ederim.
Verdiğiniz kod istediğim şekilde kayıt yapıyor.
Saygılar.