Office中国论坛/Access中国论坛

标题: 求助查询的问题 [打印本页]

作者: asklove    时间: 2008-11-21 17:11
标题: 求助查询的问题
用窗体命令按键打开一个查询如:"select * from 表1",VBA应用什么命令啊 docmd.runsql不行
还有一个问题,如我做一个查询表 select * from 表1
能不能在文本框中填入我想要查询的表名如:表2 (所查询的内容不变,只是表换了)
查询表就变为 select * from 表2
好像这样不行啊: select * from forms!窗体名!控件名
望各位高手相助!!!!!!
作者: aslxt    时间: 2008-11-21 17:17
DoCmd.OpenQuery "查询1"
作者: Henry D. Sy    时间: 2008-11-21 21:05
问题2
用dao
作者: Henry D. Sy    时间: 2008-11-21 21:13
随便做个查询,暂且称之为“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
作者: asklove    时间: 2008-11-21 21:37
非常感谢6D!!!
谢谢你的回答




欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3