سؤال عن ال make-table query

هل تقصد اسم الجدول ؟؟

أم أنك تريد الحفظ فى ملف خارجي

؟؟

شكرا للإهتمام ..

أنا أقصد حفظ الملف في ملف خارجي جديد يتم تحديده في وقت تشغيل الإستعلام.

بمعنى أنه كل مرة أشغل الإستعلام تظهر لي شاشة مثل "حفظ الناتج في الملف" أو انشاء ملف جديد.

الطريقة العادية يكون اسم الجدول و الملف ثابت لا يتغير و يتم الكتابة من جديد على الجدول الموجود في الملف الذي يتم اختياره

مثال:

SELECT column1, column2 INTO new_table IN file_name

FROM my_table

أريد التحكم في file_name أو new_table كل مرة اشغل الإستعلام

أضف زر أمر و ضع فيه الكود التالي

Private Sub Command16_Click()
Dim x As String, y As String, z As String
x = Trim(InputBox("Enter the Table name", "Table name", "Table1"))
y = Trim(InputBox("Enter the Dbase Path", "Path", "c:db2.mdb"))
    If Trim(Right(y, 4)) <> ".mdb" Then
    y = y & ".mdb"
    End If
z = "SELECT Table1.m, Table1.mm INTO " & x & " IN '" & y & "' FROM Table1;"
MsgBox z
DoCmd.RunSQL z
End Sub

و هذا هو المثال

make_table_selective.zip

شكرا لك أخي الفاضل محمد طاهر

و جزاك الله كل خير