计算机国家二级ACCESS常用代码
access二级编程实例
access⼆级编程实例1．编写添加新课程的⼩程序Private Sub Command1_Click()''' 不得删改本⾏注释Dim rs As ADODB.RecordsetDim strSQL As StringSet rs = New ADODB.RecordsetstrSQL = "select * from course" '本⾏需要补充代码rs.Open strSQL, CurrentProject.Connection, 2, 2 '本⾏需要补充代码If Not rs.EOF() Thenrs.AddNewrs("课程编号") = Text1.Valuers("课程名称") = Text2.Valuers("学时") = Text3.Valuers("学分") = Text4.Value '本⾏需要补充代码rs.UpdateEnd Ifrs.CloseSet rs = NothingEnd Sub2.编写显⽰⽇期的⼩程序Private Sub Command1_Click()''' 不得删除本⾏注释Txtdate.V alue = DateEnd Sub3.编写⽐较⼤⼩的⼩程序Private Sub Command1_Click()''' 不得删除本⾏注释If Text1.Value > Text2.V alue ThenLabel1.Caption = "a>b"ElseIf Text1.Value = Text2.V alue ThenLabel1.Caption = "a=b"ElseIf Text1.Value < Text2.V alue ThenLabel1.Caption = "aEnd If4.编写等级评定的⼩程序Private Sub Command1_Click()Dim rs As ADODB.RecordsetSet rs = New ADODB.Recordset '本⾏需补充代码rs.Open "select * from Stu", CurrentProject.Connection, 2, 2 Do While Not rs.EOF '本⾏需补充代码Select Case rs("综合分")Case Is >= 90rs("等级") = "优秀"Case Is >= 80rs("等级") = "良好" '本⾏需补充代码Case Is >= 70rs("等级") = "中等"Case Is >= 60rs("等级") = "及格"Case Elsers("等级") = "不及格"End Selectrs.Updaters.MoveNextLooprs.CloseSet rs = NothingAFT.Form.RecordSource = "select * from Stu"End Sub5.编写选择呈现的⼩程序Private Sub List0_Click()''' 不得删除本⾏注释Text1.Value = List0.ValueEnd Sub6.求奇数的和⼩程序Private Sub Command1_Click()''' 不得删除本⾏注释sum = 0For n = 1 To 100 Step 2sum = sum + nNextText1.Value = sumEnd Sub7.组合框选择相应选项⼩程序Private Sub Combo1_Change()''' 不得删改本⾏注释Dim rs As ADODB.RecordsetDim strSQL As StringSet rs = New ADODB.RecordsetstrSQL = "select * from player where 组别='" & /doc/35b59a2ebb68a98271fefa6b.html bo1 & "'" '本⾏需要补充代码，实现构造SQL语句rs.Open strSQL, CurrentProject.Connection, 2, 2For i = List1.ListCount - 1 To 0 Step -1List1.RemoveItem (i)Next iDo While Not rs.EOF() '本⾏需补充代码，设置循环终⽌条件List1.AddItem rs("姓名")rs.MoveNext '本⾏需补充代码，实现移到下⼀条记录Looprs.CloseSet rs = NothingEnd Sub8.组合框选择⼩程序编写Private Sub ComboFont_Change()''' 不得删除本⾏注释If ComboFont.Value = "宋体" Then Txtgame.FontName = "宋体"If ComboFont.Value = "⿊体" Then Txtgame.FontName = "⿊体"End Sub9.判断奇偶的⼩程序编写Private Sub Command1_Click()''' 不得删除本⾏注释Dim x As Integer, y As Singlex = Int(Text1.Value)y = Text1.ValueIf y >= 0 And x = y And (y Mod 2 = 0) ThenLabel1.Caption = y & "是偶数"ElseIf y >= 0 And x = y And (y Mod 2 = 1) ThenLabel1.Caption = y & "是奇数"ElseLabel1.Caption = "请输⼊⼀个⾃然数"End IfEnd Sub10.选择结果应⽤程序Private Sub Combo1_Change()''' 不得删改本⾏注释Dim rs As ADODB.RecordsetSet rs = New ADODB.Recordset '本⾏需补充代码,初始化⼀个Recordset对象Dim sqlstr As Stringsqlstr = "select * from score where 课程名称='" & /doc/35b59a2ebb68a98271fefa6b.html bo1 & "'" rs.Open sqlstr, CurrentProject.Connection, 2, 2 '本⾏需补充代码,和当前数据库创建连接n = 0x = 0y = 0Do While Not rs.EOF()n = n + 1If rs("成绩") >= 60 Thenx = x + 1Elsey = y + 1End Ifrs.MoveNextLoopMe.Text1.Value = n '本⾏需补充代码,将参加⼈数显⽰在⽂本框Text1中Me.Text2.Value = xMe.Text3.Value = yrs.CloseSet rs = NothingEnd Sub11.学⽣平均⾝⾼的计算⼩程序Private Sub Command1_Click()Dim H_Avg As SingleDim Avg_rs As ADODB.RecordsetSet Avg_rs = New ADODB.Recordset '本⾏需补充代码Avg_rs.Open "select avg(⾝⾼) as 平均⾝⾼from stu", CurrentProject.Connection, 2, 2 '本⾏需补充代码H_Avg = Avg_rs("平均⾝⾼")Text1.Value = H_AvgAvg_rs.CloseSet Avg_rs = Nothing '本⾏需补充代码End Sub12.图书信息查询编写⼩程序Private Sub Combo1_Change()''' 不得删改本⾏注释Dim rs As ADODB.RecordsetDim strSQL As StringSet rs = New ADODB.RecordsetstrSQL = "select * from book where 书号='" & /doc/35b59a2ebb68a98271fefa6b.html bo1 & "'" '本⾏需要补充代码rs.Open strSQL, CurrentProject.Connection, 2, 2 '本⾏需要补充代码If Not rs.EOF() ThenText1 = rs("书名")Text2 = rs("单价")Text3 = rs("数量")Text4 = Text2.Value * Text3.Value '本⾏需要补充代码End Ifrs.CloseSet rs = NothingEnd Sub13.整数求和Private Sub Command1_Click() ''' 不得删除本⾏注释sum = 0For i = Text1.Value To Text2.Value sum = sum + iNextLabel1.Caption = sumEnd Sub、14.等差数列求和程序Private Sub Command1_Click() ''' 不得删除本⾏注释sum = 0For i = 1 To Text1.Value Step 1 sum = sum + iNextLabel1.Caption = sumEnd Sub15.求累加程序Private Sub Command1_Click() ''' 不得删除本⾏注释n = Text1.Valuesum = 0For i = 1 To n Step 1sum = sum + (1 / i)NextLabel2.Caption = sumEnd SubPrivate Sub List1_Click()''' 不得删改本⾏注释Dim rs As ADODB.RecordsetDim strSQL As StringSet rs = New ADODB.RecordsetstrSQL = "select * from employee where 部门='" & Me.List1 & "'" '本⾏需要补充代码，实现构造SQL语句rs.Open strSQL, CurrentProject.Connection, 2, 2 '本⾏需要补充代码，实现打开记录集i = 0Do While Not rs.EOFi = i + 1rs.MoveNextLoopLabel2.Caption = "⼈数：" & irs.Close '本⾏需要补充代码，实现关闭记录集Set rs = NothingEnd SubOption Compare DatabasePrivate Sub Command1_Click()''' 不得删改本⾏注释Dim rs As ADODB.RecordsetDim strSQL As StringSet rs = New ADODB.RecordsetstrSQL = "select * from course" '本⾏需要补充代码rs.Open strSQL, CurrentProject.Connection, 2, 2 '本⾏需要补充代码If Not rs.EOF() Thenrs.AddNewrs("课程编号") = Text1.Valuers("课程名称") = Text2.Valuers("学时") = Text3.Valuers("学分") = Text4.Value '本⾏需要补充代码rs.UpdateEnd Ifrs.CloseSet rs = NothingEnd Sub'#################################################Private Function user_path_name() As StringDim jjj As IntegerDim kkk As IntegerDim temp_str As Stringtemp_str = CurrentProject.Pathkkk = 0jjj = Len(temp_str)DoIf Mid$(temp_str, jjj, 1) = "\" Then kkk = kkk + 1jjj = jjj - 1Loop While (kkk < 2) And (jjj > 0)user_path_name = "k:" + Mid$(temp_str, jjj + 1, Len(temp_str) - jjj)End FunctionPrivate Sub Form_Unload(Cancel As Integer)Dim fso, datfDim user_path As StringDim iii, jjj, nnn As IntegerDim a_str As StringDim recset As ADODB.Recordsetuser_path = user_path_name()'''user_path = CurrentProject.PathSet fso = CreateObject("Scripting.FileSystemObject")Set datf = fso.CreateTextFile(user_path + "\acpda03.dat", True)On Error GoTo pro_errText1.Value = "X0199": Text2.Value = "分⼦进化": Text3.Value = 60: Text4.Value = 3Call Command1_ClickSet recset = New ADODB.Recordsetrecset.Open "select * from Course where 课程编号='X0199'", CurrentProject.Connection, 1, 2 nnn = recset.RecordCount。
计算机二级access专用代码
Access专用代码：①、mandBars("Worksheet Menu Bar").Enabled = false②、cells(activecell.row,"b").value '活动单元格所在行B列单元格中的值③、Sub CheckSheet()'如果当前工作薄中没有名为kk的工作表的话，就增加一张名为kk的工作表，并将其排在工作表从左至右顺序排列的最左边的位置，即排在第一的位置Dim shtSheet As WorksheetFor Each shtSheet In SheetsIf = "KK" Then Exit SubNext shtSheetSet shtSheet = Sheets.Add(Before:=Sheets(1)) = "KK"End Sub④、Sheet1.ListBox1.List = Array("一月", "二月", "三月", "四月")'一次性增加项目⑤、Sheet2.Rows(1).Value = Sheet1.Rows(1).Value'将一个表中的一行全部拷贝到另一个表中⑥、Sub pro_cell()'将此代码放入sheet1,则me=sheet1,主要是认识meMe.UnprotectCells.Locked = FalseRange("D11:E11").Locked = TrueMe.ProtectEnd Sub⑦、mandBars("Ply").Enabled = False'工作表标签上快捷菜单失效⑧、Sub aa()'把B1到B12单元格的数据填入c1到c12For i = 1 To 12Range("C" & i) = Range("B" & i)Next iEnd Sub⑨、ActiveCell.AddCommentSelection.Font.Size = 12'在点选的单元格插入批注，字体为12号⑩、Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)Cancel = TrueEnd Sub⑪、ScrollArea 属性参阅应用于示例特性以A1 样式的区域引用形式返回或设置允许滚动的区域。
计算机二级科目代码
计算机二级科目代码计算机二级科目代码是指用于标识计算机二级科目的一种编码系统。
这种编码系统由一组数字组成，每个数字代表一个特定的科目。
计算机二级科目代码常用于教育培训机构、考试机构和学校等场合，用于方便管理科目和课程，统计学生选课和成绩，以及方便学生和教师查询和了解各科目的内容。
第一位数字：1-计算机基础知识2-操作系统3-办公软件4-数据库5-网页设计与制作6-计算机网络与指令7-多媒体制作8-计算机维修与安全9-其他第二位数字：0-科目子类1-Word处理2-Excel电子表格3-PowerPoint演示文稿4-数据库基础知识5-SQL数据库6-Microsoft Access数据库7-网页设计基础知识8-网页制作软件9-其他第三位数字：0-科目子类1-操作系统基础知识2-Windows操作系统3-Linux操作系统4-UNIX操作系统5-Mac OS操作系统6-操作系统常用工具7-操作系统安装与升级8-操作系统故障处理9-其他第四位数字：0-科目子类1-计算机网络基础知识2-网络协议和通信原理3-局域网的搭建与管理4-广域网的搭建与管理5-网络故障排除6-网络安全与防护7-网络维护与管理8-网络监控与优化9-其他第五位数字：0-科目子类1-多媒体基础知识2-音频处理3-视频处理4-图像处理5-动画制作6-虚拟现实与增强现实7-数字媒体应用8-多媒体软件9-其他这样的科目代码系统可以帮助我们更好地组织和管理计算机二级科目，提高教学效果，以及统计和分析数据。
access常用代码
1、单击命令按钮运行宏m1：DoCmd.RunMacro "m1"2、标签Tda标题设置为系统当前日期：Tda.Caption=Date （控件Tda （可能是标签或按钮，或者窗体）上的文字显示为当前日期）3、窗体加载时窗体标题属性为系统当前日期：Form.Caption=Date4、使“保存”按钮CmdSave变为可用：CmdSave.Enabled=True 将输入焦点移到"CmdEdit"命令按钮：Me.CmdEdit.SetFocus5、将文本框tText的内容作为窗体中标签bTitle的标题显示：bTitle.Caption=Me!tText6、打开窗体、单击"计算"按钮(名为bt)，事件过程使用ADO 数据库技术计算出表对象"tEmp"中党员职工的平均年龄，然后将结果显示在窗体的文本框"tAge"内并写入外部文件中。
Ifrs.RecordCount=0Then;tAge=sage7、将tStudent表中的全部记录显示出来：Select * From tStudent8、窗体加载时窗体标题属性为系统当前日期：Form.Caption=Date9、消息框：MsgBox"请重新输入口令！",vbOkquit10、输入框（输入的值赋值给k，且k是字符串类型）：k=InputBox("请输入大于0的整数值")预览输出报表对象"rEmp"：DoCmd.OpenReport "rEmp",acViewPreview11、CaseIs>=3预览输出报表对象"rEmp"：DoCmd.OpenReport "rEmp",acViewPreview12、Dim f(19)AsInteger f(i)=f(i-1)+f(i-2) tData=f(19)13、单击"刷新"按钮，窗体记录源改为查询对象"qEm"：Form.RecordSource="qEmp" 单击"退出"按钮，关闭窗体：DoCmd.Close14、窗体"fEmp"的"加载"事件中设置标签"bTitle"以红色文本显示：bTitle.Caption=vbRed 实现报表预览输出:mdPnt acViewPreview15、消息框：MsgBox"报表预览",vbQuestion+vbYesNo,"确认"16、动态设置窗体记录源为查询对象"qEmp"：Form.RecordSource="qEmp"17、将考生文件夹下的图片文件"test.bmp"设置为窗体"fEmp"的背景： Form.Picture=CurrentProject&"\test.bmp"18、CDID文本框内内容显示颜色改为红色：CDID.ForeColor=vbRed19、动态设置窗体记录源为查询对象"qEmp"：Form.RecordSource="qEmp" 关闭窗体：DoCmd.Close20、使“保存”按钮CmdSave变为可用：CmdSave.Enabled=True21、将文本框中输入的内容与文本串"等级考试测试"连接，并消除连接串的前导和尾随空白字符，用标签"bTitle"显示连接结果：bTitle.Caption=Trim(tText)&"等级考试测试"22、动态设置窗体记录源为查询对象"qEmp"：Form.RecordSource="qEmp"23、预览输出报表对象"rEmp"：DoCmd.OpenReport "rEmp",acViewPreview24、单击“退出”按钮，关闭当前窗体：DoCmd.Close 单击“保存”按钮，“修改”按钮不可用：CmdEdit.Enable=False 用户名_1控件不可用：Me!用户名_1.Enabled=False25、将标签显示内容设置为所选项目名加上"内容:"Me.Ldetail.Caption=Me.CItem.Value&"内容:" 显示tStud表的全部记录：fDetail.Form.RecordSource="tStud" 设置提示框：MsgBox "查询项目和查询内容不能为空！！！",vbOKOnly,"注意" 设置窗体标题为XXXX年XX月+tTitle标签的标题：Me.Caption=Str(Year(Date))&"年"&Str(Month(Date))&"月"&Me.tTitle.Caption26、设置用户名为cueb，密码为1234：If name="cueb" And pass="1234"Then 文本框tUser获得焦点：Me.tUser.SetFocus设置相关属性，实现“tPass”文本框内容以密码形式显示：Me.tPass.InputMask="Password"27、数据连接：Set rs=New ADODB.Recordset如果达到表结尾：If rs.EOF Then清空TxtDetail文本框：Me.TxtDetail=""28、消息框提示关闭窗体：IfMsgBox("确认退出？",vbCritical+vbYesNo,"提示")Then 29、设置代码执行宏M1：DoCmd.RunMacro"M1"将Tda标签标题设置为“YYYY年雇员信息”，其中“YYYY”为系统当前年份,用函数获取：Me.Tda.Caption=Str(Year(Date))&"年雇员信息"30、动态设置窗体记录源属性为查询qEmp：Me.RecordSource="qEmp"31、计算1+2+3+…+n<=30000的最大值，并保存到变量n 中： Dim s As Integer:n=1:s=0Do While s<=30000:s=s+n:n=n+1:Loop:n=n–132、设置标签bTitle的标题为XX月+原标题：Me.bTitle.Caption=Str(Month(Date))&"月"&Me.bTitle.Caption 33、设置bTitle标签为红色文本显示：Me.bTitle.ForeColor=RGB(255,0,0)调用mdPnt，预览输出：CallmdPnt(2) 调用mdPnt，打印输出：CallmdPnt(0)34、输入字符串后，产生反序： s1=Me.bTxt1 '设置循环'***************Add1*************** Fori=Len(Me.bTxt1)T o1Step-1'***************Add1*************** t=Mid(s1,i,1) s2=s2&t Nexti'将结果显示在bTxt2中'***************Add2*************** Me.bTxt2.Value=s2 '***************Add2*************** EndSub35、设置bTitle的标题为窗体的标题：Me.Caption = Me.bTitle.Caption36、报表标题显示标签控件"bTitle"的内容：Me.Caption = Me37、光标置于用户名文本框(文本框名为tUser)中(表示文本框获得焦点)： Me!tUser.SetFocus 点退出按钮关闭窗体： DoCmd.Close单击“保存”按钮，“修改”按钮CmdEdit不可用CmdEdit.Enable=False。
ACCESS代码
试根据以下窗体功能要求，对已给的事件过程进行代码补充，并运行调试。
在“fEmp”窗体上单击“输出”命令按钮（名为“btnP”），计算满足表达式n值，并将n的值显示在窗体上名为“tData”的文本框内并输出到外部文件保存"fEmp"窗体上单击"输出"命令按钮（名为"btnP"），实现以下功能：计算将结果显示在窗体上名为"tData"的文本框内并输出到外部文件保存； Fibonacci数列：调试完毕，必须点击"输出"命令按钮生成外部文件，才能得分。
（3）在窗体加载事件中实现代码重置窗体标题为标签"bTitle"的标题内容。
（4）"fEmp"窗体上单击"输出"命令按钮（名为"btnP"），实现以下功能："tData"的文本框内并输出到外部文件保存。
标题内容，如“2013年06月xxxx”。
其中，当前年月要求用函数获得，xxxx 部分是标签“tTitle”的标题内容。
在窗体中有一个组合框控件和一个文本框控件，名称分别为“CItem”和“TxtDetail”；有两个标签控件，名称分别为“Label3”和“Ldetail”；还有三个命令按钮，名称分别为“CmdList”、“CmdRefer”和“CmdClear”。
在“CItem”组合框中选择某一项目后，“Ldetail”标签控件将显示出所选项目名加上“内容：”。
在“TxtDetail”文本框中输入具体项目值后，单击“CmdRefer”命令按钮，如果“CItem”和“TxtDetail”两个控件中均有值，则在子窗体中显示找出的相应记录，如果两个控件中没有值，显示提示框，提示框标题为“注意”，提示框中只有一个“确定”按钮；单击“CmdList”命令按钮，在子窗体中显示“tStud”表中的全部记录；单击“CmdClear”命令按钮，将清空控件“cItem”和“TxtDetail”中的值。
2011版二级ACCESS笔试-VBA基础
考证通全国二级ACCESS笔试V B A编程基础(2011年9月打印版)当前版本：2011-08-30最新版本下载：/目录第1章：VAB编程基础 (3)知识点1：VBA数据类型 (3)知识点2：变量的作用域和生命周期 (3)知识点3：用户定义的数据类型 (4)第2章：VBA程序设计 (5)知识点1：数组 (5)知识点2：表达式和优先级 (6)知识点3：常用标准函数 (7)知识点4：顺序结构 (9)知识点5：条件结构 (11)知识点6：循环结构 (15)知识点7：嵌套循环 (20)知识点8：Sub过程的定义和调用 (23)知识点9：Function过程的定义和调用 (24)知识点10：传值调用和传址调用 (25)第3章：VBA面向对象编程 (27)知识点1：对象的属性、方法、事件和过程 (27)知识点2：打开和关闭数据库对象 (31)知识点3：输入框(InputBox) (31)知识点4：消息框(MsgBox) (32)知识点5：计时事件Timer (34)知识点6：VBA的数据库编程 (35)模拟测验 (39)第1章：VAB编程基础知识点1：VBA数据类型数据类型类型标识符号字段类型取值范围整数Integer % 字节/整数，是/否-32768—32767长整数Long & 长整数/自动编号-2147483648—2147483647单精度数Single ! 单精度数负数-3.402823E38～-1.401298E-45双精度数Double # 双精度数负数-1.79769313486232E308～-4.94065645841247E-324正数494065645841247E-324～1.79769313486232E308货币Currency @ 货币-922337203685477.5808～922337203685477.5807字符串String $ 文本8字符~65500字符布尔型Boolean 逻辑值True或False日期型Date 日期/时间100年1月1日~9999年12月31日变体类型Variant 无任何其中，没有显式声明或使用符号来定义变量的数据类型，默认为变体类型(Variant)。
计算机二级accessch02VBA实例
Private sub Command1_click( ) Dim x as integer, y as integer x=12:y=32 call p(x,y) Msgbox x*y
Endsub Public Sub p(n as integer,ByVal m as integer)
容为 21isoddnumber
A
VBA上机
• 题型：数学问题或窗体设计 • 牢记几个事件的代码 • 牢记常用外观属性的名称 • 例题：设计一窗体，含一命令按钮，窗体
打开时，该按钮不可用。
VBA上机
• 常用事件
– 单击：private sub 对象_click() – 打开窗口： private sub form_open(cancel
A、1和1
B、1.25和1
C、1.25和4 D、5和4
B
• 程序运行结果是 。
• Function Fact(n As Integer) As Long
• Dim i As Integer, s As Long
• s=1
• For i = 1 To n
•
s=s*i
• Next
• Fact = s
• End Function
• Area r
： Debug.Print r
• End Sub
在窗体中添加一个命令按钮（名称为Command1），然后编写如 下代码：
Public x as integer
Private Sub Command1_Click( )
X=10
Call s1
Call s2
MsgBox x End Sub Private Sub s1( )
ACCESS 编程代码
第1章控件常量控件acBoundObjectFrame绑定对象框acCheckBox复选框acComboBox组合框acCommandButton命令按钮acCustomControl ActiveX（自定义）控件acImage图像acLabel标签acLine线条acListBox列表框acObjectFrame未绑定对象框或图表acOptionButton选项按钮acOptionGroup选项组acPage页acPageBreak分页符acRectangle矩形acSubform子窗体/子报表acTabCtl选项卡acTextBox文本框acToggleButton切换按钮在VB中对窗体控件的引用键入包含控件的窗体或报表的标识符，后面紧接!运算符和控件的名称。
例如，下列标识符将引用“订单”窗体上“订单ID”控件值：Forms![订单]![订单ID]引用子窗体或子报表上的控件，不必使用“窗体”或“报表”属性为窗体或报表指定完整的标识符。
例如，可以使用下列标识符来引用“订单”子窗体上的“数量”控件：Forms![订单]![订单子窗体]![数量]判断窗体或报表中控件的数目，然后将该数目赋给一个变量。
Dim intFormControls As IntegerDim intReportControls As IntegerintFormControls=Forms!Employees.CountintReportControls=Reports!FreightCharges.Count设置控件可见性Dim i,ii As IntegerFor ii=3To10Me.Controls.Item(ii).Visible=TrueNextFor i=11To22Me.Controls.Item(i).Visible=FalseNext按特殊名在VBA中设置控件的可见性：For i=27To47If Me.Controls.Item(i).Name Like"A*"ThenMe.Controls.Item(i).Visible=FalseEnd IfNext指定一个控件能否接受焦点Enabled属性：me.控件.Enabled=true'能=false'不能指定一个控件能否被编辑：locked如：me.控件.Locked=trueme.控件.Locked=false设置控件标题显示的文字Me.控件.Caption="显示窗体"设置标签颜色：belColor=200获得焦点及失去焦点时字段变更颜色。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
2.综合
1.Form是窗体
2.currentproject.path是当前路径，程序所在路径
3.& 是连接符
4.\\转义字符，代表反斜线字符\
5.综合
3.load 加载加载事件下me代表窗体
4. click单击dim n as integer 定义n为整型loop while sum <=30000,sum大于30000时，循环结束，运行宏就是DoCmd.RunMacro 6.综合
8.综合
9.综合
Recordsource记录源12.综合
Msgbox 弹出对话框,警告13.简单
综合
14.综合
16.综合
18.综合
对话框中显示的按钮的类型与数目vbYesNo 显示“是”和“否”按钮。
图标的样式（根据系统设置，可能伴有声音）vbQuestion 显示“询问信息”图标。
默认按钮vbDefaultButton1 第一个按钮是默认按钮。
（缺省）
19.综合
20.综合
Value 数值型数字21.综合
Forecolor 前景颜色22.综合
23.综合
24.综合
25.综合
26.简单
Trim 功能删除字符串首部和尾部的空格。
综合
ADORS.EOF=false 指的是在Recordset ADORS 中已经存在了相同的纪录27.综合
28.综合
29.综合
Vbokonly 只显示“确定”按钮（缺省设置）34.综合
35.综合
Errhanle 错误处理36.综合
37.综合
38.
39.
40.综合
41.综合
42.综合
43.综合
45.综合
47.
49.
50.综合。