如何把文本框或列表框中输入或选择的数据作为表名和字段名

royyao

我有九张表,每张要定期输入一些连续的数据

Dim i As Double

DoCmd.SetWarnings 0

For i = Me.开始值1 To Me.结束值2

DoCmd.RunSQL "INSERT INTO 表名 ( 字段名 ) SELECT '" & i & "';"

Next i

DoCmd.SetWarnings -1

在上面的开始值和结束值是可以从窗体的文本框里输入的,但我怎么样在窗体的文本框或列表框里输入或选择的表名和字段名就是上面DoCmd.RunSQL "INSERT INTO 表名 ( 字段名 ) SELECT '" & i & "';"里的表名和字段名呢

zyp

用  DoCmd.RunSQL "INSERT INTO "& me.表文件框 &" ( "& me.字段名文件框 &" ) values("& i &")"   试试

royyao

通过了.谢谢