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 · 444 阅读 · 0 评论 -
access vba向窗体传递参数
OpenForm(FormName, View, FilterName, WhereCondition, DataMode, WindowMode, OpenArgs)表达式 一个代表 DoCmd 对象的变量。参数名称 必选/可选 数据类型 说明 FormName 必选 Variant 字符串表达式 （字符串表达式：任一求值为一列连续字符的表达式。表达式的元素可以是：返回字符串或字...原创 2012-04-16 10:44:14 · 1619 阅读 · 0 评论 -
access vba之密码修改窗体
首先画好窗体 然后，消除记录导航等按钮，这样再应用applyfilter筛选，结果是：ID为指定用户的记录 最后，编写调用它的窗体的按钮代码 DoCmd.OpenForm ("密码修改") DoCmd.ApplyFilter , "ID=" & userid效果如下： ...2012-04-10 16:48:10 · 1030 阅读 · 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 · 3443 阅读 · 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 · 532 阅读 · 0 评论 -
access vba之对象浏览
在视图中打开对象浏览器，然后，选择对象类型，会有相应的成员，可以选择复制到剪贴板，然后在代码中粘贴原创 2012-04-09 11:27:27 · 483 阅读 · 0 评论 -
Vba常用内部函数
1、测试函数IsNumeric(x) ‘是否为数字, 返回Boolean结果，True or FalseIsDate(x) ‘是否是日期, 返回Boolean结果，True or FalseIsEmpty（x） '是否为Empty, 返回Boolea...原创 2012-04-09 11:11:29 · 234 阅读 · 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 · 368 阅读 · 0 评论 -
access vba的DoCmd对象
DoCmd在Access中用于执行vb过程内的宏操作其语法为：DoCmd.操作名 用逗号分隔的参数比如打开窗体DoCmd.OpenForm "我的窗体" 可以加个where条件过滤，在打开窗体时，前提是窗体的数据源已经设置完毕下面是用命名参数的方式DoCmd.OpenForm FormName:="我的窗体",WhereCondition:="[age]>30"...原创 2012-04-09 11:06:17 · 5735 阅读 · 0 评论 -
vba的子程序或函数的参数传递和返回值
1、子程序和函数 1) 如果过程适用于整个应用程序，则范围为公共，否则为私有如果是静态变量，则过程在反复调用时，其内部变量值仍保持调用这些过程的方法是call 过程名2)option Explicit语句表示变量在使用必须声明声明的方式是dim 变量名 as 类型3)vba代码通常放置在2个位置A）窗体类模块等access现有类模块B）模块...2012-04-09 11:02:08 · 9686 阅读 · 0 评论 -
access-vba之用户登录窗口
界面截图如下： 创建一个窗体设计，然后在设计中找到控件 因为科室更新，带来了用户的更新，所有用户的行来源不指定，但科室的行来源要指定 最后，我们通过VBA实现用户的行来源，这样可以保证在科室变化的情况下，用户实时显示每个科室的人员Private Sub keshi_AfterUpdate() zgy.RowSource = "SELECT 用户查询.ID, 用...2012-04-06 16:27:38 · 4038 阅读 · 0 评论 -
vba-条件语句
根据条件的值，可使用 If...Then...Else 语句运行指定的语句或一个语句块。If...Then...Else 语句可根据需要嵌套多级。然而，为了可读性可能会使用 Select Case 语句而不使用多嵌套级的 If...Then...Else 语句。如果条件为 True 则运行语句当条件为 True 时，若只要执行一个语句，则可以使用单行的 If...Then...Else 语...原创 2012-04-01 17:35:57 · 835 阅读 · 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 · 1590 阅读 · 0 评论 -
access vba之组合框控件
2个组合框链接不同的数据，然后，一个组合框更改，导致另一个组合框内容更改，通常另一个组合框与更改的组合框是父子关系Private Sub 街道_AfterUpdate() If Trim(街道) <> "" Then 社区 = "" 社区.RowSource = "SELECT 社区.社区名称,社区.街道名称 FROM 社区 where 街道名称='" &am...2012-04-16 11:47:08 · 678 阅读 · 0 评论