ถามไว้ที่ http://www.utteraccess.com/forums/showflat.php?Cat=&Board=access_2000&Number=159498&page=0&view=collapsed&sb=5&o=7&fpart=1&vc=1&PHPSESSID= 
 
เขาต้องการให้สามารถเปลี่ยนชื่อของตารางเป้าหมายเมื่อทำการรัน Make Table Query  
 
ผมว่าคงต้องใช้ฟังก์ชันเข้าช่วยครับ 
 
คือเข้าไปเปลี่ยนชื่อของตารางเป้าหมายใน  Query เป้าหมายตามที่ต้องการ 
 
ลองดูโค้ดครับ 
 
Function NameNewTable(strTableName As String) 
Dim qdf As DAO.QueryDef 
Dim strSQL As String, strName As String 
' Query1 is a predefined make table query. 
strName = "Query1" 
Set qdf = CurrentDb.QueryDefs(strName) 
' Assign a new table name 
strSQL = "SELECT * INTO " & strTableName _ 
    & " FROM information0011" 
qdf.SQL = strSQL 
' Suppres the warning message 
DoCmd.SetWarnings False 
' Run the make table query 
DoCmd.OpenQuery strName 
DoCmd.SetWarnings True 
qdf.Close 
Set qdf = Nothing 
End Function 
 
Function NameNewTable2(strTableName As String) 
Dim dbs As DAO.Database 
Dim strSQL As String, strName As String 
' Query1 is a predefined make table query. 
strName = "Query1" 
Set dbs = CurrentDb 
' Assign a new table name 
strSQL = "SELECT * INTO " & strTableName _ 
    & " FROM information0011" 
dbs.Execute strSQL 
dbs.Close 
Set dbs = Nothing 
End Function