安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

Access vba动态创建查询

2017-11-15 17:25:00
tmtony8
原创
4816

在Access中,我?#19988;?#33324;都是通过菜单栏的创建=》查询=》查询设计来新建一个查询的。

但是有的时候。我们希望有VBA 动态创建一个查询,方便我们临时调用这个查询,比如导出这个新创建的查询的数据,然后删除之


详细函数:

Public Sub createqry(strsql As String, strName As String) 
    CurrentDb.CreateQueryDef strName, strsql                      'create querydef

End Sub


Public Sub deleteqry(strName As String) 
  CurrentProject.Application.DoCmd.DeleteObject acQuery, strName             'delete querydef
End Sub



在窗体放置两个按钮,一个“创建查询?#20445;?#19968;个“删除查询”。

创建查询按钮的单击事件代码,效果如下图

Private Sub Command0_Click()
    Call createqry("select * from tbl1 where 水果='苹果'", "查询苹果")
End Sub




“删除查询按钮的单击事件代码,效果如下图

Private Sub Command1_Click()
    deleteqry "查询苹果"
End Sub


    分享
    ? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
    内存占用:7.75MB
    PHP 执行时间:0.21
    双色球大奖2000年
    安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
    湖北福彩30选5走势图最近200期 英冠狼队赛程 海盗王 壁纸 Cashback先生在线客服 亚特兰大君临队英文 fifa手游版冠军之路怎么完成 博洛尼亚大学课程 水晶宫vs伯恩利 企鹅家族走势图 黑龙江快乐十分走势图50期