ACCESS VBA编程

《ACCESS VBA编程》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、ACCESSVBA编程（六）ACCESS查询分段统计人数 这样一个表tblScore：班级姓名总分语文数学1班a6011081202班b5891121333班C551981452班D502801241班E5089083班F56197135TRANSFORMCount(tblScore.总分)AS总分OfCountSelecttblScore.班级FROMtblScoreGROUPBYtblScore.班级PIVOTSwitch([总分]>=600,">=600",[总分]>=550And[总分]<600,"550-599",[总分]>=500And[总分

2、]<550,"500-549",True,"Other")In(">=600","550-599","500-549","Other");可得到第一個查詢班级总分600分以上人数总分550-600人数总分550以下人数 1班101 2班0113班020用代码在ACCESS中生成永久查询 来源：竹笛整理的技巧集 dimstrSQLasstringdimqdfasQueryDef strSQL="Select*fromtblaa"'tblaa为表Setqdf=CurrentDb.CreateQueryDef("创建的查询",strSQL)DoCmd.Open

3、Queryqdf.Name 用代码删除一个已存在的查询来源：爱赛思应用俱乐部wxjgw DimQuery1AsQueryDef CurrentDb.QueryDefs.Refresh　　　　　　　 ForEachQuery1InCurrentDb.QueryDefs　　 　　IfQuery1.Name="想要删除的查询名称"Then 　　　　CurrentDb.QueryDefs.DeleteQuery1.Name 　　　　ExitFor EndIfNextQuery1 使用ADO和SQL语句建立一个新查询 来源：ACCESS中国huanghai Dim

4、catAsNewADOX.CatalogDimcmdAsNewADODB.CommandSetcat.ActiveConnection=CurrentProject.Connectioncmd.CommandText="Select*FROM表1"cat.Views.Append"newView",cmd以窗体的文体框为条件进行模糊查询时查询的设计视图中准则：LikeIIf(IsNull([Forms]![存书查询窗体]![作者]),'*','*'&[Forms]![存书查询窗体]![作者]&'*') 用VBA代码生成一个条件组合的字符串作为子窗体的窗体

5、筛选的条件来实现窗体的多条件查询。OptionCompareDatabase'由浅入深的介绍几种最常用的利用主/子窗体来实现查询的方法，'使初学者和有一定VBA基础的人可以更好的使用窗体查询这种手段。''本例程是讲解用VBA代码生成一个条件组合的字符串作为子窗体的'窗体筛选的条件来实现窗体的多条件查询。'PrivateSubcmd查询_Click()OnErrorGoToErr_cmd查询_ClickDimstrWhereAsString'定义条件字符串strWhere=""'设定初始值－空字符串 '判断【书名】条件是否有输入的值 IfNotIsNull

6、(Me.书名)Then'有输入strWhere=strWhere&"([书名]like'*"&Me.书名&"*')AND"EndIf'判断【类别】条件是否有输入的值 IfNotIsNull(Me.类别)Then'有输入strWhere=strWhere&"([类别]like'"&Me.类别&"')AND"EndIf'判断【作者】条件是否有输入的值 IfNotIsNull(Me.作者)Then'有输入strWhere=strWhere&"([作者]like'*"&Me.作者&"*')AND"EndIf '判断【出版社】条件是否有输入的值 IfNotIsNu

7、ll(Me.出版社)Then'有输入strWhere=strWhere&"([出版社]like'"&Me.出版社&"')AND"EndIf'判断【单价】条件是否有输入的值，由于有【单价开始】【单价截止】两个文本框 '所以要分开来考虑IfNotIsNull(Me.单价开始)Then'【单价开始】有输入strWhere=strWhere&"([单价]>="&Me.单价开始&")AND"EndIfIfNotIsNull(Me.单价截止)Then'【单价截止】有输入strWhere=strWhere&"([单价]<="&Me.单价截止&")AND"EndIf'判

8、断【进书日期】条件是否有输入的值，由于有【进书日期开始】【进书日期截止】两个文本