《Access数据库和VBA编程总结.pdf》由会员分享，可在线阅读，更多相关《Access数据库和VBA编程总结.pdf（5页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、创建数据库1、创建表设计2、输入数据靠左为文本，靠右为数字，小数用单精度型，日期为短日期（YYYY/MM/DD），百分比和各种货币用货币，查阅向导手动添加，是否用复选框3、数据库工具关系创建关系，实施参照完整性4、先输入主表（单一联系的），注意主键（表设计里选主键，同时输入两个主键才能回车）创建查询1、参数查询（选择性）查询设计显示表添加字段在条件栏输入问题2、增加字段查询（计算差，汇总，总计，出租）查询设计显示表添加字段最后一行字段用生成器表示条件输入字段+30date为最后一行改标题3、交叉表查询（交叉计数）查询向导交叉表查询选择数据源（必须在同一个查询里）列标题行标题修改设计表设计最后一
2、行字段标题修改输出值计数操作查询（字段完全相同）：生成，追加，更新，删除（后三个必须先有窗体）1、追加查询查询设计不添加数据源输入相关字段表达式（窗体）追加，追加表名称选择追加到字段（表）保存2、更新查询设计视图添加数据源（表）更新更新到true 填入条件表达式（窗体）保存3、删除查询设计视图添加字段（表）删除删除的where，填入条件表达式（窗体）保存4、生成表查询查询设计添加字段输入条件生成表输入新表名创建窗体1、简单窗体（简单记录，只有一个窗体）窗体其他窗体窗体向导选择数据源设置布局样式标题修改窗体设计控件向导，按钮2、主子窗体（两个窗体都可以简单记录，有单独的子窗体）窗体向导添加数据源
3、（可选不同的表）查看数据方式（主窗体的表）布局、样式主子窗体名称打开窗体查看，完成3、带有子窗体的窗体（有按钮功能和单独的一个子窗体）窗体设计设计主体设计标签、文本框（输入字段）、按钮（输入掩码：密码；控件来源：公式）设计子窗体的查询表（字段是表，条件是同窗体一致的）按钮“子窗体/子报表”选定范围子窗体向导使用现有的表和查询选定表/查询、字段3填入子窗体名称，完成设计中删除名字标签主体添加按钮“确定”代码生成器“Refresh”注：组合框控件：不使用控件向导，属性-行来源,按钮显示表，添加字段点击空白处，查询属性里将“唯一值”设成“是”4、带图表的窗体窗体设计控件“图表”图表向导添加数据源（查
4、询）选择字段选择图形输入标题，显示图例双击设计视图图表“添加趋势线”创建报表报表向导选择数据源（查询）、字段添加分组级别（最上面的标题）布局、样式修改报表设计设计分组汇总分组排序更多有页脚节页脚添加文本框（=count(字段)）修改页脚“Page&页”注：sum 总计count 计数avg 平均VBA1、显示/隐藏标签Label0.Visible=True/False 2、变换主体名称主体事件双击,Form.Caption=Hello 3、字体放大/缩小Label0.FontSize=Label0.FontSize*/倍数4、字体变换Label0.FontName=字体 5、自动弹出对话框窗体
5、事件计时器触发MsgBox*计时器间隔（毫秒）6 函数总结数学函数：小数rnd(变量，保留几位);平方sqr 字符串函数：instr;mid(a,i,3)_ 从 a 的第 i 个位置向后取3 个字符;字符长度数len;空格space(空格数);字符 string;整数 integer 转换函数：英-数字 asc;数字-英 chr;（AZ 6590 az 97122）;字符转化为数值val;数字转化为字符str;随机整数Int(Rnd()*90+10);text0.value=a;转换：日期cdate；回车 chr(13)+chr(10)日期函数：date;year;weekday(a,vbMo
6、nday);weekdayname 输入输出：Msgbox“提示”;Inputbox(提示，标题，默认，X，Y)按钮失效/生效：Command9.Enabled=False/Ture 获得焦点：Text2.SetFocus 7、运算符总结算术运算符+（加）、-（减、取负）、*（乘）、/（除）、Mod（取余n mod 7=0）、（整除）、（乘方）关系运算符=（等于）、（不等于）、（大于）、=（大于等于）、=（小于等于）连接运算符&，例如：”Access”&”xp”结果为“Accessxp”逻辑运算符Imp（包含）、Eqv（等价于）、Xor（异或）、Or（或）、And（与）、Not（非）8、语句总
7、结条件语句：1、If,Then,Else结构If Then ElseIf Then Else End If 2、Select Case Case Case Case Else End Select 循环语句：For i=初值To 终值Step 步长 (前一个循环是竖行，后一个是横行，范围)语句块 Exit For 语句块 Next Do While Do 语句块 语句块 Exit Do Exit Do 语句块 语句块 Loop Loop|Until 9、比较大小a=Val(Text0.Value)b=Val(Text2.Value)c=Val(Text4.Value)If a b Then w
8、=a a=b b=w End If If a c Then w=a a=c c=w End If If b c Then w=b b=c c=w End If Text12.Value=Str(c)&Str(b)&Str(a)End Sub 10、金字塔Label4.Caption=For i=1 To 9 For j=1 To 9-i Label4.Caption=Label4.Caption&Space(1)Next For k=1 To i Label4.Caption=Label4.Caption&k Next For k=i-1 To 1 Step-1 Label4.Caption=
9、Label4.Caption&k Next Label4.Caption=Label4.Caption&Chr(13)+Chr(10)Next 11、加密a=Text4.Value For i=1 To Len(a)Text6.Value=Text6.Value&Chr(Asc(Mid(a,i,1)+2)金字塔：数字 For i=1 To 竖行数Label4.Caption=Label4.Caption&Space(空格数)For k=1 To i Label4.Caption=Label4.Caption&k Next For k=i-1 To 1 Step-1 Label4.Caption=Label4.Caption&k Next Label4.Caption=Label4.Caption&Chr(13)+Chr(10)Next 图标：Label0.Caption=For i=1 To 竖行数Label0.Caption=Label0.Caption&Space(空格数)For j=1 To 2*i+3（j 为横行数，找出和竖行的关系）Label0.Caption=Label0.Caption&*Next Label0.Caption=Label0.Caption&Chr(13)+Chr(10)Next