AccessTr.neT

merhaba arkadaşlar, sınıf - nesne konularında bir şey keşfettim, orada kullanmak üzere; bir Sql şablonu oluşturmak; Sql İfadesinde Alan Adı Ve Değerler Yerine Değişken Kullanmak , böylece kod sayısını azaltmak istiyorum, ama hata iletisi alıyorum, bunun bir yolu olmalı, yardımcı olursanız çok sevinirim.

Private Sub Komut8_Click()

Dim x, y
x = "alanAdi"
y = "adi"

DoCmd.RunSQL "INSERT INTO tbl (x) VALUES (y)"
End Sub

Sql metnini aşağıdaki gibi düzenleyebilirsiniz.

Kod:
Sub gstr()

  alanAdi = "adit"

  veri = "veli"

  DoCmd.RunSQL ("INSERT INTO tbl (" & alanAdi & ") VALUES ('" & veri & "')")

 End Sub

Kod:
Function sqlmetin(veri As String) As String

 sqlmetin = "INSERT INTO tbl (adit) VALUES ('" & veri & "')"

 End Function

 Sub gstr()

  DoCmd.RunSQL (sqlmetin("ömer"))

 End Sub

sayın alicimri çok teşekkür ederim çok mutlu oldum, sayenizde her gün yeni bir şeyler öğreniyoruz,kolay gelsin

tarkanaykın

alicimri

alicimri

tarkanaykın