[已解决]如何在后台数据库中复制一个表，并建立链接表

jynj

好象是，可能是服务器的问题，我没法管理服务器，解决不了

jynj

请问 t小宝大侠
Private Sub 新建表_Click()
Dim dbs As DAO.Database
Dim tdf As TableDef

Set dbs = DBEngine.OpenDatabase("ccc_be.mdb")
dbs.Execute "SELECT * INTO 内容表3 FROM 内容表"

Set tdf = dbs.TableDefs!内容表3
tdf.Fields("乡镇").DefaultValue = "第二乡镇"

DoCmd.TransferDatabase acLink, "Microsoft Access", "ccc_be.mdb", acTable, "内容表3", "内容表3", False

Set tdf = Nothing
Set dbs = Nothing

End Sub
--------------------------
如果更改如下
dim xjb as string
xjb=me.输入乡镇
'那么，下面这名如何将内容表3更改为xjb
Set tdf = dbs.TableDefs!内容表3
--------------------------------------------

jynj

试了一次又一次，最后发现原是来把“！”这个符号取消啊
Set tdf = dbs.TableDefs(xjb)

t小宝

~~~~~~~~~~~~~~~~~~~~~~~~~

suve

好讨论,收藏

zhengyx

受益匪浅，收藏学习！

Henry D. Sy

顺便问一下,你是做什么工作的,用到乡镇
县长