arkadaşlar amacım control.name nesne adını sql sorgusuyla bir tabloya kaydetmek ama bunu sorguda kullandığım zaman değer boş dönüyor


RunSQL " INSERT INTO Tablo1 ( Form, nesne_adi ) VALUES (" & _
Me.Form.Name & "," & ctrl.Name & ")"

sorguda bir hata mı var[/code]

Sn karakabus;

currentdb.execute "INSERT INTO Tablo1 ( Form, nesne_adi ) VALUES ('" & _
Me.Name & "','" & ctrl.Name & "')"
Form ve kontrol adi karakter oldugu icin kesme isareti ile sinirlamalisiniz. ctrl degiskenini for dongu icinde tanimlamaniz gerekir.

for döngüsü içinde çalıştırıyorum ama nesne adedi kadar boş kayıt seti açıyor

Private Sub Buton_Click()
Dim ctrl As Control
For Each ctrl In Me.Controls
CurrentDb.Execute "INSERT INTO Table1 ( Form, nesne_adi ) VALUES ('" & _
Me.Name & "','" & ctrl.Name & "')"
Next ctrl
End Sub
yazdigimda table1'e form adi ile nesne adlarini yazdirdim.
ctrl.properties("controltype") tabloya kaydetmeniz gerekebilir.

çok teşekkür ederim çalıştı

---

sanırım runsql yerine CurrentDb.Execute kullanmak lazım
peki aradaki fark ne

(07-04-2015, 19:33)karakabus demiş ki: çok teşekkür ederim çalıştı

---

sanırım runsql yerine CurrentDb.Execute kullanmak lazım
peki aradaki fark ne

sizin kod calisir RunSQL " INSERT ..... komutu denden sonrasi bosluk birakmayin. VBA da arka planda soru calistirma gibi dusunulebilir.