![](https://img-blog.csdnimg.cn/20201014180756918.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
access vba开发
文章平均质量分 69
deepfuture
这个作者很懒,什么都没留下…
展开
-
ACCESS操作EXCEL对象讲解
http://www.accessoft.com/article-show.asp?id=3776OFFICE是由ACCESS、EXCEL、WORD等应用程序软件的集合成的软件,我们把每个软件也称之组件或是应用程序,各应用程序的最上层对象为 Application对象,我们就是通过该对象来实现与Office中其它各应用程序进行交流的。 我们在ACCESS中操作EXCEL对象,首先建立一个...原创 2012-06-01 10:06:43 · 362 阅读 · 0 评论 -
access vba向窗体传递参数
OpenForm(FormName, View, FilterName, WhereCondition, DataMode, WindowMode, OpenArgs)表达式 一个代表 DoCmd 对象的变量。参数名称 必选/可选 数据类型 说明 FormName 必选 Variant 字符串表达式 (字符串表达式:任一求值为一列连续字符的表达式。表达式的元素可以是:返回字符串或字...原创 2012-04-16 10:44:14 · 1520 阅读 · 0 评论 -
access vba之密码修改窗体
首先画好窗体 然后,消除记录导航等按钮,这样再应用applyfilter筛选,结果是:ID为指定用户的记录 最后,编写调用它的窗体的按钮代码 DoCmd.OpenForm ("密码修改") DoCmd.ApplyFilter , "ID=" & userid效果如下: ...2012-04-10 16:48:10 · 997 阅读 · 0 评论 -
access vba之子窗体数据筛选
Private Sub query_btn_Click() querycondition = querycon() queryresult.Form.FilterOn = False queryresult.Requery If Trim(querycondition) <> "" Then queryresult.Form.Filter = quer...原创 2012-04-10 10:41:10 · 3234 阅读 · 1 评论 -
access vba之数据导出excel和html
Private Sub export_btn_Click() qcon = querycon() DoCmd.Close DoCmd.OpenForm "清册查询", acFormDS, , qcon, acFormReadOnly, acHidden DoCmd.OutputTo acOutputForm, "清册查询", acFormatXLS, CurrentProj...2012-04-10 10:40:37 · 459 阅读 · 0 评论 -
access vba之对象浏览
在视图中打开对象浏览器,然后,选择对象类型,会有相应的成员,可以选择复制到剪贴板,然后在代码中粘贴原创 2012-04-09 11:27:27 · 455 阅读 · 0 评论 -
Vba常用内部函数
1、测试函数IsNumeric(x) ‘是否为数字, 返回Boolean结果,True or FalseIsDate(x) ‘是否是日期, 返回Boolean结果,True or FalseIsEmpty(x) '是否为Empty, 返回Boolea...原创 2012-04-09 11:11:29 · 207 阅读 · 0 评论 -
VBA控制结构
一、 循环结构 循环结构允许重复执行一行或数行代码。Visual Basic支持的循环结构有:Do...Loop; For...Next;For Each...Next。1. Do...Loop 用Do循环重复执行一语句块,且重复次数不定。Do...Loop 语句有几种演变形式,但每种都计算数值条件以决定是否继续执行。如同 If...Then一样条件必须是一个数值或者值为 T...原创 2012-04-09 11:08:53 · 330 阅读 · 0 评论 -
access vba的DoCmd对象
DoCmd在Access中用于执行vb过程内的宏操作其语法为:DoCmd.操作名 用逗号分隔的参数比如打开窗体DoCmd.OpenForm "我的窗体" 可以加个where条件过滤,在打开窗体时,前提是窗体的数据源已经设置完毕下面是用命名参数的方式DoCmd.OpenForm FormName:="我的窗体",WhereCondition:="[age]>30"...原创 2012-04-09 11:06:17 · 5351 阅读 · 0 评论 -
vba的子程序或函数的参数传递和返回值
1、子程序和函数 1) 如果过程适用于整个应用程序,则范围为公共,否则为私有如果是静态变量,则过程在反复调用时,其内部变量值仍保持调用这些过程的方法是call 过程名2)option Explicit语句表示变量在使用必须声明声明的方式是dim 变量名 as 类型3)vba代码通常放置在2个位置A)窗体类模块等access现有类模块B)模块...2012-04-09 11:02:08 · 9351 阅读 · 0 评论 -
access-vba之用户登录窗口
界面截图如下: 创建一个窗体设计,然后在设计中找到控件 因为科室更新,带来了用户的更新,所有用户的行来源不指定,但科室的行来源要指定 最后,我们通过VBA实现用户的行来源,这样可以保证在科室变化的情况下,用户实时显示每个科室的人员Private Sub keshi_AfterUpdate() zgy.RowSource = "SELECT 用户查询.ID, 用...2012-04-06 16:27:38 · 3910 阅读 · 0 评论 -
vba-条件语句
根据条件的值,可使用 If...Then...Else 语句运行指定的语句或一个语句块。If...Then...Else 语句可根据需要嵌套多级。然而,为了可读性可能会使用 Select Case 语句而不使用多嵌套级的 If...Then...Else 语句。如果条件为 True 则运行语句当条件为 True 时,若只要执行一个语句,则可以使用单行的 If...Then...Else 语...原创 2012-04-01 17:35:57 · 795 阅读 · 0 评论 -
access vba 操作excel
Private Sub showExcel() Dim xlApp As Excel.Application Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True '显示EXCEL应用程序 '申明EXCEL工作簿对象 Dim xlBook As Excel.Workbook '...2012-06-01 15:18:00 · 1486 阅读 · 0 评论 -
access vba之组合框控件
2个组合框链接不同的数据,然后,一个组合框更改,导致另一个组合框内容更改,通常另一个组合框与更改的组合框是父子关系Private Sub 街道_AfterUpdate() If Trim(街道) <> "" Then 社区 = "" 社区.RowSource = "SELECT 社区.社区名称,社区.街道名称 FROM 社区 where 街道名称='" &am...2012-04-16 11:47:08 · 613 阅读 · 0 评论