استعلام إنشاء جدول يسأل عن اسم الجدول

[محمد طاهر عرفه]

السؤال : كيف يمكن عمل استعلام تكوين جدول Make Table Query بحيث يسأل عن اسم الجدول المطلوب تكوينه و اسم الملف الذي سيتم تكوين الجدول به أثناء التشغيل

الإجابة :

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