:وئری make table با آدرس متغیر [بایگانی]

View Full Version : :وئری make table با آدرس متغیر

ali190

دوشنبه 24 خرداد 1389, 20:44 عصر

باسلام و عرض خسته نباشید
در نمونه کد زیر من قصد دارم محل کوئری make table را با آدرس متغیر تعیین کنم:

Private Sub Command0_Click()
Dim s As String
Dim path As String
path = Me.Text3
s = "SELECT Table1.a, Table1.b, Table1.c INTO milad IN 'path' FROM Table1 WHERE (((Table1.c)>[Forms]![Form1]![Text1]));"
DoCmd.RunSQL s
End Sub

که در اون path مسیر آدرس دهی ماست که از text3 نشئت میگیرد ولی در هنگام اجرای کد ارور میگیرد.
میشه لطف کنید و اشکال کارم رو بگید؟
ممنون

ali190

سه شنبه 25 خرداد 1389, 13:04 عصر

با سلام
میشه لطف کنید و مشکل کارم رو بگید
ممنون

alirezabahrami

سه شنبه 25 خرداد 1389, 13:23 عصر

با سلام
میشه لطف کنید و مشکل کارم رو بگید
ممنون
سلام
مبشه با ارائه نمونه يه مقداري بيشتر توضيح بدهيد ؟

moalla

سه شنبه 25 خرداد 1389, 13:40 عصر

درست متوجه نشدم کارتون چیه و چه مسیری به text3 میدی اما کدتون باید قاعدتا این طوری باشه نه اون طوری که شما نوشتین:

Private Sub Command2_Click()
Dim s As String
Dim path As String
path = Me.Text3
s = "SELECT Table1.a, Table1.b, Table1.c INTO milad IN " & path & " FROM Table1 WHERE (((Table1.c)>[Forms]![Form1]![Text1]));"
DoCmd.RunSQL s
End Sub

ali190

چهارشنبه 26 خرداد 1389, 16:48 عصر

alirezabahrami

پنج شنبه 27 خرداد 1389, 10:17 صبح

باسلام
متاسفانه کوئری اجرا نمیشه و خطای زیر رو صادر میکنه:

http://barnamenevis.org/forum/attachment.php?attachmentid=51270&stc=1&d=1276692480
فایل نمونه رو جهت بازبینی خدمتتون قرار میدم.
ممنون
سلام علي آقا!
كد زير را جايگزين كدي كه نوشته بوديد بكن!

Dim s As String
Dim path As String
path = Me.Text0
DoCmd.SetWarnings False
s = "SELECT Table1.a, Table1.b, Table1.c, Table1.d INTO milad IN '" & path & "' FROM Table1 WHERE (((Table1.d)>10));"
DoCmd.RunSQL s
DoCmd.SetWarnings True

موفق باشيد