各位高手在帮帮忙吧,我实在是没有分数了,都给出去了.但是还是没有解决,望高手赐教

[tzhz]

Dim qdef As QueryDef
dim t as string
dim daodb as dao.database
dim daotb as dao.tabledef
set daodb = opendatabase(app.path & "db.mda")
for each daotb in daodb.tabledefs
if left$(daotb.name,4)<>"MSys" then
t = daotb.name
endif
next
取出的t是表的名字,我也能在屏幕上打印出来.但是不只为什么用在语句:
Set qdef = daodb.CreateQueryDef("", "select * from t")
运行中提示,在相应的数据库中找不到表"t".可是我已经找到了是t 的数据类型错了吗?请您帮助我解决,表示感谢了.

[yedapeng]

把t 换成别的行吗？

[abc10]

看看你的表名称是否合法，改一下再试试。
Set qdef = daodb.CreateQueryDef("", "select * from " & t)