求助查询的问题

asklove

用窗体命令按键打开一个查询如："select * from 表1",VBA应用什么命令啊 docmd.runsql不行
还有一个问题，如我做一个查询表 select * from 表1
能不能在文本框中填入我想要查询的表名如：表2 (所查询的内容不变，只是表换了)
查询表就变为 select * from 表2
好像这样不行啊: select * from forms!窗体名!控件名
望各位高手相助!!!!!!

asklove

非常感谢6D!!!
谢谢你的回答

Henry D. Sy

随便做个查询，暂且称之为“A”，窗体上文本框，称之为 Text0
请引用dao3.6

If IsNull(Me.Text0) Then
        MsgBox "Enter the TableName,Please !!"
        Me.Text0.SetFocus
        Exit Sub
    End If
    Dim Def As DAO.QueryDef
    Set Def = CurrentDb.QueryDefs("A")
    Def.SQL = "select * from " & Me.Text0
    DoCmd.OpenQuery "a"
    Set Def = Nothing

Henry D. Sy

问题2
用dao

aslxt

DoCmd.OpenQuery "查询1"