access vba在新建查询前查看查询名是否存在

access vba编程中新建查询时，如果新建的查询名在数据库中已经存在，程序将出错。因而，在新建查询前应查看查询名是否存在。

Dim dbsCurrent As Database
Dim qryTest As QueryDef
Set dbsCurrent = CurrentDb
'---------------------查看查询.Query_temp是否存在-------------------
Dim I As Integer
Dim tblA As Boolean
dbsCurrent.QueryDefs.Refresh
For I = 0 To dbsCurrent.QueryDefs.Count - 1
If "Query_temp" = dbsCurrent.QueryDefs(I).Name Then
'如果查询名：Query_temp存在
tblA = True
Exit For
End If
Next I
'--------------------------------------------------------------------
If tblA Then '如果查询名：Query_temp存在，引用本查询
Set qryTest = dbsCurrent.QueryDefs("Query_temp")
Else             '如果查询名：Query_temp不存在，建立本查询
Set qryTest = dbsCurrent.CreateQueryDef("Query_temp")
End If
'以下设置本查询的SQL，得到表strQUR_now的一字段Combo27.Value 的不同值组合
'其中strQUR_now是自定义string变量记录表名，Combo27.Value 为表的一字段名
qryTest.SQL = "SELECT distinct " & Combo27.Value & " FROM " & strQUR_now
'将得到的不同值的组合放到Combo29的列表中
Combo29.RowSource = qryTest.SQL
DoCmd.DeleteObject acQuery, "Query_temp"  '注意对象在打开时不能被删除！

access vba在新建查询前查看查询名是否存在相关推荐

Access VBA 学习笔记技巧
1, 最关键的Object : DoCmd DoCmd.RunSQL DoCmd.OpenForm DoCmd.OpenQuery DoCmd.OpenTable DoCmd.Quit 2, 数据的 ...
access数据库窗体设计实验报告_ACCESS 查询和窗体实验报告
ACCESS 查询和窗体实验报告实验报告课程名称数据库技术与应用实验项目名称ACCESS查询和窗体实验班级与班级代码11国金金融2班1125050521实验室名称(或课室)SS1-204专业国际金 ...
access设计视图打不开_19、ACCESS操作查询之“删除查询”（ACCESS图解操作系列）...
操作要求: 在利用ACCESS数据库"教学管理钟老师课堂.accdb"中数据表,完成如下查询. 2.创建一"系-职称-教师删除查询". 以教师备份表为数据源,创 ...
sql查询前50条_您必须知道的前50条SQL查询
sql查询前50条 In this article, we'll go over the most common SQL queries that you should know to be able ...
access设计视图打不开_15、ACCESS总计查询（分组查询）设计（ACCESS图解操作系列）...
操作要求: 在利用ACCESS数据库"教学管理钟老师课堂.accdb"中数据表,完成如下查询. 1.创建一总计查询"学生合格门数-所获学分-总计查询".以学生. ...
access怎么查询工龄_ACCESS查询操作题及答案详解.doc
ACCESS查询操作题及答案详解 2．简单应用题在考生文件夹下有"xxx.mdb"数据库. (1)以雇员表为数据源,创建查询"查询1",查询职务为" ...
数据库查询前10（N）条数据的方法
文章目录一.Oracle中查询前10条数据二.DB2中查询前10条数据三.MySql中查询前10条数据一.Oracle中查询前10条数据 select * from table where r ...
sql 语言查询前N天之前的数据
1.查询前30天的数据,如果DateTime为字符串型,则需要将getdate()获取到的日期型通过convert转换为字符串型(查询前五天则将30改成5): select * from table ...
Mybatis+springMVC+分页查询+前后端代码
Mybatis+springMVC+分页查询+前后端代码前言我们在公司中经常会用到分页查询,最近,我在做一个公司的任务的时候,调用外部系统时需要将结果封装成分页的数据,之前我们都是直接调用我们公司 ...

access vba在新建查询前查看查询名是否存在

access vba在新建查询前查看查询名是否存在相关推荐

最新文章

热门文章