عمل استعلام تكوين جدول 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
