计算机国家二级ACCESS常用代码
- 格式:docx
- 大小:4.63 MB
- 文档页数:16
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专用代码:①、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-其他这样的科目代码系统可以帮助我们更好地组织和管理计算机二级科目,提高教学效果,以及统计和分析数据。
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。
试根据以下窗体功能要求,对已给的事件过程进行代码补充,并运行调试。
在“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”中的值。
考证通全国二级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)。
第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获得焦点及失去焦点时字段变更颜色。
试根据以下窗体功能要求,对已给的事件过程进行代码补充,并运行调试。
在“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”中的值。
1、单击命令按钮运行宏m1:DoCmd.RunMacro "m1"2、标签Tda标题设置为系统当前日期:Tda.Caption=Date3、使“保存”按钮CmdSave变为可用:CmdSave.Enabled=True将输入焦点移到"CmdEdit"命令按钮:Me.CmdEdit.SetFocus4、将文本框tText的内容作为窗体中标签bTitle的标题显示:bTitle.Caption=Me!tText5、窗体加载时窗体标题属性为系统当前日期:Form.Caption=Date6、打开窗体、单击"计算"按钮(名为bt),事件过程使用ADO数据库技术计算出表对象"tEmp"中党员职工的平均年龄,然后将结果显示在窗体的文本框"tAge"内并写入外部文件中。
If rs.RecordCount=0 ThentAge=sage7、将tStudent表中的全部记录显示出来:Select * From tStudent8、窗体加载时窗体标题属性为系统当前日期:Form.Caption=Date9、消息框:MsgBox"请重新输入口令!",vbOkquit10、输入框:k=InputBox("请输入大于0的整数值")预览输出报表对象"rEmp":DoCmd.OpenReport "rEmp",acViewPreview11、CaseIs>=3预览输出报表对象"rEmp":DoCmd.OpenReport "rEmp",acViewPreview12、Dim f(19) As Integerf(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、消息框提示关闭窗体:If MsgBox("确认退出?",vbCritical+vbYesNo,"提示") Then29、设置代码执行宏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 Integern=1s=0Do While s<=30000s=s+nn=n+1Loopn=n–132、设置标签bTitle的标题为XX月+原标题:Me.bTitle.Caption=Str(Month(Date))&"月"&Me.bTitle.Caption33、设置bTitle标签为红色文本显示:Me.bTitle.ForeColor=RGB(255,0,0)调用mdPnt,预览输出:CallmdPnt(2)调用mdPnt,打印输出:CallmdPnt(0) 34、输入字符串后,产生反序:s1=Me.bTxt1'设置循环'***************Add1***************Fori=Len(Me.bTxt1)To1Step-1'***************Add1***************t=Mid(s1,i,1)s2=s2&tNexti'将结果显示在bTxt2中'***************Add2***************Me.bTxt2.Value=s2'***************Add2***************EndSub35、设置bTitle的标题为窗体的标题:Me.Caption = Me.bTitle.Caption36、报表标题显示标签控件"bTitle"的内容:Me.Caption = Me。
一、在窗体中还有“修改”和“保存”两个命令按钮,名称分别为“CmdEdit”和“CmdSave”,其中“保存”命令按钮在初始状态为不可用,当单击“修改”按钮后,“保存”按钮变为可用,同时在窗体的左侧显示出相应的信息和可修改的信息;如果在“口令”文本框中输入的内容与在“确认口令”文本框中输入的内容不相符,当单击“保存”按钮后,屏幕上应弹出如下图所示的提示框;现已编写了部分V B A代码,请按照V B A代码中的指示将代码补充完整;解题步骤步骤1:在设计视图中右键单击命令按钮“保存”选择事件生成器,在空行内输入代码:AddMsgBox“请重新输入口令”,vbOKquitAdd步骤2:关闭界面,单击工具栏中“保存”按钮,关闭设计视图;二、在窗体中有一个“显示全部记录”命令按钮名称为bList,单击该按钮后,应实现将“tStudent”表中的全部记录显示出来的功能;现已编写了部分VBA代码,请按照VBA代码中的指示将代码补充完整;要求:修改后运行该窗体,并查看修改结果;注意:不允许修改窗体对象“fQuery”和“fStudent”中未涉及的控件和属性;不允许修改表对象“tStudent”;对于VBA代码,只允许在“”与“”之间的一空行内补充语句、完成设计,不允许增删和修改其它位置已存在的语句;解题步骤步骤1:右键单击“显示全部记录”命令按钮选择事件生成器;步骤2:在空行内输入代码:请在下面双引号内添入适当的SELECT语句步骤3:关闭界面;步骤4:单击工具栏中“保存”按钮,关闭设计视图;步骤5:双击窗体“fQuery”,单击“显示全部记录”按钮,查看该窗体运行结果;三、补充事件代码,实现功能:单击“退出”按钮名为“bt2”,关闭窗体;注意:不允许修改数据库中的表对象“tEmp”;不允许修改查询对象“qEmp”中未涉及的内容;不允许修改窗体对象“fEmp”中未涉及的控件和属性;已给事件过程,只允许在“Add”与“Add”之间的空行内补充语句、完成设计,不允许增删和修改其它位置已存在的语句;解题步骤步骤1:右键单击命令按钮“bt2”选择事件生成器;在空行内输入代码:AddAdd步骤2:关闭界面;步骤3:单击工具栏中“保存”按钮,关闭设计视图;四、按照以下窗体功能,补充事件代码设计;在窗体的四个文本框内输入合法的职工信息后,单击“追加”按钮名为bt1,程序首先判断职工编号是否重复,如果不重复则向表对象“tEmp”中添加职工纪录,否则出现提示;当单击窗体上的“退出”按钮名为bt2时,关闭当前窗体;注意:不允许修改表对象“tEmp”中未涉及的结构和数据;不允许修改窗体对象“fEmp”中未涉及的控件和属性;代码设计只允许在“Add”与“Add”之间的空行内补充语句、完成设计,不允许增删和修改其它位置已存在的语句;操作步骤步骤1:右键单击命令按钮“追加”选择事件生成器,在空行输入代码:Add1If Not ThenAdd1步骤2:关闭界面;步骤3:右键单击命令按钮“退出”选择事件生成器,在空行输入代码:Add2Add2步骤4:关闭界面;单击工具栏中“保存”按钮,关闭设计视图;五、单击“刷新”按钮名为“bt1”,在事件过程中补充语句,动态设置窗体记录源为查询对象“qEmp”,实现窗体数据按性别条件动态显示退休职工的信息;单击“退出”按钮名为“bt2”,调用设计好的宏“mEmp”来关闭窗体;注意:不允许修改数据库中的表对象“tEmp”和宏对象“mEmp”;不允许修改查询对象“qEmp”中未涉及的属性和内容;不允许修改窗体对象“fEmp”中未涉及的控件和属性;已给事件过程,只允许在“”与“”之间的空行内补充语句、完成设计,不允许增删和修改其它位置已存在的语句;解题步骤步骤1:右键单击命令按钮“刷新”选择事件生成器,在空行内输入代码:="qEmp"步骤2:关闭界面;步骤3:右键单击命令按钮“退出”选择属性,在“事件”选项卡下“单击”行右侧下拉列表中选中“mEmp”,关闭属性界面;步骤4:单击工具栏中“保存”按钮,关闭设计视图;六、在窗体中有一个“退出”命令按钮名称为bQuit,单击该按钮后,应关闭“fStudent”窗体;现已编写了部分VBA代码,请按照VBA代码中的指示将代码补充完整;要求:修改后运行该窗体,并查看修改结果;注意:不允许修改窗体对象“fGrade”和“fStudent”中未涉及的控件和属性;不允许修改表对象“tStudent”和“tGrade”;对于VBA代码,只允许在“”与“”之间的空行内补充语句、完成设计,不允许增删和修改其它位置已存在的语句;5解题步骤步骤1:右键单击命令按钮“退出”选择事件生成器;输入代码:请在下面填入一行语句步骤2:关闭属性界面;步骤3:单击工具栏中“保存”按钮,关闭设计视图;步骤4:运行该窗体,查看运行结果;七、补充窗体“fTest”上“test1”按钮名为“bt1”的单击事件代码,实现以下功能:打开窗体,在文本框“tText”中输入一段文字,然后单击窗体“fTest”上“test1”按钮名为“bt1”,补充代码设置窗体上标签“bTitle”的标题为文本框“tText”输入内容与文本串“等级考试测试”的连接并消除连接串的前导和尾随空白字符;注意:不允许修改窗体对象“fTest”中未涉及的控件和属性;只允许在“Add1”与“Add1”之间的空行内补充语句、完成设计;解题步骤步骤1:选中“窗体”对象,右键单击“fTest”选择设计视图;步骤2:右键单击“test1”选择事件生成器,空行内输入代码:Add1=TrimmetText+"等级考试测试"Add1八、在“fEmp”窗体上单击“输出”命令按钮名为“btnP”,实现以下功能:计算Fibonacci数列第19项的值,将结果显示在窗体上名为“tData”的文本框内并输出到外部文件保存;单击“打开表”命令按钮名为“btnQ”,调用宏对象“mEmp”以打开数据表“tEmp”;Fibonacci数列:调试完毕,必须单击“输出”命令按钮生成外部文件,才能得分;试根据上述功能要求,对已给的命令按钮事件过程进行补充和完善;注意:不允许修改数据库中的宏对象“mEmp”;不允许修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性;不允许修改表对象“tEmp”中未涉及的字段和属性;已给事件过程,只允许在“Add”与“Add”之间的空行内补充语句、完成设计,不允许增删和修改其它位置已存在的语句;解题步骤步骤1:右键单击命令按钮“输出”选择事件生成器,在空行相应位置输入如下代码:Add1Dim f19 As IntegerAdd1Add2fi=fi-1+fi-2Add2Add3tData=f19Add3步骤2:关闭界面;步骤3:单击工具栏中“保存”按钮,关闭设计视图;步骤4:双击“fEmp”窗体,将其在窗体视图下打开,然后单击窗体上的“输出”命令按钮,生成外部文件,最后关闭窗体;九、试根据以下窗体功能要求,对已给的命令按钮事件过程进行补充和完善;在“fEmp”窗体上单击“输出”命令按钮名为“btnP”,弹出一输入对话框,其提示文本为“请输入大于0的整数值”;输入1时,相关代码关闭窗体或程序;输入2时,相关代码实现预览输出报表对象“rEmp”;输入>=3时,相关代码调用宏对象“mEmp”以打开数据表“tEmp”;注意:不允许修改数据库中的宏对象“mEmp”;不允许修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性;不允许修改表对象“tEmp”中未涉及的字段和属性;已给事件过程,只允许在“Add”与“Add”之间的空行内补充语句、完成设计,不允许增删和修改其它位置已存在的语句;解题步骤步骤1:右键单击命令按钮“输出”选择事件生成器,空行内输入代码:Add1k=InputBox"请输入大于0的整数"Add1Add2"rEmp",acViewPreviewAdd2步骤2:单击工具栏中“保存”按钮,关闭设计视图;十、在窗体中还有“修改”和“保存”两个命令按钮,名称分别为“CmdEdit”和“CmdSave”,其中“保存”命令按钮在初始状态为不可用,当单击“修改”按钮后,“保存”按钮变为可用;现已编写了部分VBA代码,请按照上述功能要求将VBA 代码补充完整;要求:修改后运行该窗体,并查看修改结果;注意:不允许修改窗体对象“fEdit”和“fEuser”中未涉及的控件和属性;不允许修改表对象“tAddr”和“tUser”;已给事件过程,只允许在“Add”与“Add”之间的空行内补充一行语句、完成设计,不允许增删和修改其它位置已存在的语句;解题步骤步骤1:右键单击命令按钮“修改”选择事件生成器,在空格行输入:Add=TrueAdd步骤2:关闭界面;步骤3:单击工具栏中“保存”按钮,关闭设计视图;步骤4:双击窗体“fEdit”,单击“修改”按钮,查看运行结果;十一、补充窗体“fTest”上“test1”按钮名为“bt1”的单击事件代码,实现以下功能:打开窗体,在文本框“tText”中输入一段文字,然后单击窗体“fTest”上“test1”按钮名为“bt1”,程序实现将文本框内容作为窗体上的标签“bTitle”的标题显示;注意:不允许修改窗体对象“fTest”中未涉及的控件和属性;只允许在“Add”与“Add”之间的空行内补充语句、完成设计;解题步骤步骤1:选中“窗体”对象,右键单击“fTest”选择设计视图;步骤2:右键单击“test1”按钮选择事件生成器,在空行内输入:Add=tTextAdd步骤3:关闭界面;十二、试根据以下窗体功能要求,对已给的命令按钮事件过程进行补充和完善;在“fEmp”窗体上单击“输出”命令按钮名为“btnP”,弹出一输入对话框,其提示文本为“请输入大于0的整数值”;输入1时,相关代码关闭窗体或程序;输入2时,相关代码实现预览输出报表对象“rEmp”;输入>=3时,相关代码调用宏对象“mEmp”以打开数据表“tEmp”;注意:不允许修改数据库中的宏对象“mEmp”;不允许修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性;不允许修改表对象“tEmp”中未涉及的字段和属性;已给事件过程,只允许在“Add”与“Add”之间的空行内补充语句、完成设计,不允许增删和修改其它位置已存在的语句;解题步骤步骤1:右键单击命令按钮“输出”选择事件生成器,在空行内输入代码:Add1Case Is>=3Add1Add2"rEmp",acViewPreviewAdd2步骤2:关闭界面;步骤3:单击工具栏中“保存”按钮,关闭设计视图;十三、按照以下窗体功能,补充事件代码设计;窗体功能:打开窗体、单击“计算”按钮名为bt,事件过程使用ADO数据库技术计算出表对象“tEmp”中党员职工的平均年龄,然后将结果显示在窗体的文本框“tAge”内并写入外部文件中;注意:不允许修改数据库中表对象“tEmp”未涉及的字段和数据;不允许修改窗体对象“fEmp”中未涉及的控件和属性;代码设计只允许在“Add”与“Add”之间的空行内填补一行语句、完成设计,不允许增删和修改其它位置已存在的语句;程序必须运行并生成外部文件后才能得分;解题步骤步骤1:选中“窗体”对象,右键单击“fEmp”选择设计视图;步骤2:右键单击命令按钮“计算”选择事件生成器,在空行内输入代码:Add1If ThenAdd1Add2tAge=sageAdd2步骤3:关闭界面,单击工具栏中“保存”按钮;步骤4:单击菜单栏视图|窗体视图,单击“计算”命令按钮,生成外部文件;十四、在窗体中还有“修改”和“保存”两个命令按钮,名称分别为“CmdEdit”和“CmdSave”,其中“保存”命令按钮在初始状态为不可用,当单击“修改”按钮后,应使“保存”按钮变为可用;现已编写了部分VBA代码,请按照VBA代码中的指示将代码补充完整;要求:修改后运行该窗体,并查看修改结果;注意:不允许修改窗体对象“fEdit”和“fEuser”中未涉及的控件和属性;不允许修改表对象“tAddr”和“tUser”;对于VBA代码,只允许在“”与“”之间的空行内补充语句、完成设计,不允许增删和修改其它位置已存在的语句;解题步骤步骤1:在设计视图中右键单击命令按钮“修改”选择事件生成器,在空行内输入代码:请在下面添加一条语句=True步骤2:关闭界面;步骤3:单击菜单栏视图|窗体视图,单击“修改”命令按钮,查看运行结果;十五、在窗体对象“fEmp”上有“刷新”和“退出”两个命令按钮,名称分别为“bt1”和“bt2”;单击“刷新”按钮,窗体记录源改为查询对象“qEmp”;单击“退出”按钮,关闭窗体;现已编写了部分VBA代码,请按VBA代码中的指示将代码补充完整;注意:不允许修改数据库中的表对象“tEmp”;不允许修改查询对象“qEmp”中未涉及的内容;不允许修改窗体对象“fEmp”中未涉及的控件和属性;程序代码只允许在“Add”与“Add”之间的空行内补充一行语句、完成设计,不允许增删和修改其它位置已存在的语句;解题步骤步骤1:右键单击命令按钮“刷新”选择事件生成器,在空行内输入代码:Add1="qEmp"Add1步骤2:关闭界面;步骤3:右键单击命令按钮“退出”选择事件生成器,在空行内输入代码Add2Add2步骤4:关闭界面;单击工具栏中“保存”按钮,关闭设计视图;十六、在窗体中有一个“退出”命令按钮,名称为“CmdQuit”,其功能为关闭“fStud”窗体;请按照VBA代码中的指示将实现此功能的代码填入指定的位置中;注意:不允许修改窗体对象“fStud”中未涉及的控件和属性;不允许修改表对象“tStud”;程序代码只允许在“Add”与“Add”之间的空行内补充一行语句、完成设计,不允许增删和修改其它位置已存在的语句;解题步骤步骤1:右键单击“退出”命令按钮选择事件生成器,在空行内输入代码:AddAdd步骤2:关闭界面;步骤3:单击工具栏中“保存”按钮,关闭设计视图;十七、补充窗体“fTest”上“test1”按钮名为“bt1”的单击事件代码,实现以下功能:打开窗体,在文本框“tText”中输入一段文字,然后单击窗体“fTest”上的“test1”按钮名为“bt1”,程序将文本框中的内容作为窗体中标签“bTitle”的标题显示;注意:不能修改窗体对象“fTest”中未涉及的控件和属性;只允许在“Add”与“Add”之间的空行内补充语句、完成设计;解题步骤步骤1:选中“窗体”对象,右键单击“fTest”选择设计视图;步骤2:右键单击“test1”按钮选择事件生成器,在空行输入代码:Add= tTextAdd步骤3:关闭界面;十八、在窗体中有一个“退出”命令按钮名称为bQuit,单击该按钮后应关闭“fStudent”窗体;现已编写了部分VBA代码,请按照VBA代码中的指示将代码补充完整;要求:修改后运行该窗体,并查看修改结果;注意:不允许修改窗体对象“fStudent”中未涉及的控件和属性;不允许修改表对象“tStudent”;程序代码只能在“”与“”之间的空行内补充一行语句、完成设计,不允许增删和修改其它位置已存在的语句;解题步骤步骤1:右键单击“退出”命令按钮选择事件生成器;在空行内输入代码:请在下面填入一行语句步骤2:关闭属性界面;步骤3:单击工具栏中“保存”按钮,关闭设计视图;步骤4:双击窗体对象“fStudent”,单击“退出”命令按钮,查看运行结果;十九、窗体加载时将考生文件夹下的图片文件“”设置为窗体“fEmp”的背景;窗体“加载”事件的部分代码已提供,请补充完整,要求背景图片文件当前路径必须用获得;注意:不能修改数据库中的表对象“tEmp”和宏对象“mEmp”;不能修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性;程序代码只允许在“Add”与“Add”之间的空行内补充一行语句、完成设计,不允许增删和修改其它位置已存在的语句;解题步骤步骤1:右键单击工具栏中“代码”按钮,进入编程环境,在空行内输入代码:Add=&“\\”Add步骤2:关闭界面;步骤3:单击工具栏中“保存”按钮,关闭设计视图;。
Access代码知识点Access是一种功能强大的数据库管理系统,它可以帮助我们轻松地创建、管理和查询数据库。
本文将介绍一些Access代码的知识点,帮助读者更好地理解和使用这个工具。
1. 数据库的连接在使用Access的时候,我们首先要做的就是连接数据库。
在代码中,我们可以使用OpenDatabase方法来连接数据库。
下面是一个示例:Dim db As DAO.DatabaseSet db = OpenDatabase("C:\Path\To\Your\Database.accdb")这段代码将打开一个名为“Your.accdb”的数据库。
2. 创建表格一旦我们连接到了数据库,我们可以使用代码来创建表格。
在Access中,我们可以使用CreateTableDef方法来创建一个新的表格。
下面是一个示例:Dim tdf As DAO.TableDefSet tdf = db.CreateTableDef("TableName")这段代码将创建一个名为“TableName”的新表格。
3. 添加字段在创建表格之后,我们需要添加字段。
在Access中,我们可以使用CreateField方法来添加字段。
下面是一个示例:Dim fld As DAO.FieldSet fld = tdf.CreateField("FieldName", DataType)tdf.Fields.Append fld这段代码将在表格中添加一个名为“FieldName”的字段,并指定数据类型为DataType。
4. 创建查询除了创建表格之外,我们还可以使用代码来创建查询。
在Access中,我们可以使用CreateQueryDef方法来创建查询。
下面是一个示例:Dim qdf As DAO.QueryDefSet qdf = db.CreateQueryDef("QueryName", "SELECT * FROM TableName")这段代码将创建一个名为“QueryName”的查询,并将其定义为从“TableName”中选择所有字段的查询。
Access常用代码1、组合框的循环选择在双击事件中加入,也可用在键盘按上下箭头事件中:Screen.ActiveControl.ListIndex =(Screen.ActiveControl.ListIndex + 1) Mod Screen.ActiveControl.ListCount2、窗体单击及移动记录时选定记录(反黑显示)在成为当前事件中加入:DoCmd.RunCommand acCmdSelectRecord3、组合框获得焦点后自动张开在获得焦点事件中加入:Combo0.Dropdown4、文本框获得焦点后光标自动移动到文本的末尾在获得焦点事件(如有必要也在鼠标释放事件)中加入:Text0.SelStart = Len(Text0)5、随机抽取指定数量记录的查询在查询语句中Rnd([编号]) 的编号为表中的自动编号字段名:Select TOP 10 * FROM 表1 orDER BY Rnd([编号]);6、打印窗体中筛选显示的记录报表的记录源药与窗体的相同,在窗体的打印按钮单击事件中:DoCmd.OpenReport "报表名", acViewPreview, , Me.Filter7、去除窗体及子窗体的筛选及排序跟“记录”菜单中的“取消筛选/排序”作用相同:DoCmd.ShowAllRecords8、数据更改后提醒是否保存在窗体的更新后事件中(Form_BeforeUpdate):If Not (Cancel = (MsgBox("数据已更改,是否保存?", vbOKCancel + vbQuestion) = vbCancel)) Then DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer709、选定一个选项,自动把与选项相关信息辅助录入(即一拖几)在选项的更改事件中,用Dlookup函数查找相关信息并辅值给当前记录:供货商=DLookup("公司名称", "供货商资料", "[供货商编号]= '" & Me![供货商编号] & "'")10、设置字段的默认值为当前表的最后一条记录的值(或序号加1)在窗体的成为当前事件中,用Dlast函数查找最后记录相关值并辅值给字段的默认值:成绩.DefaultValue = "'" & DLast("成绩", Me.RecordSource) & "'"11、删除重复记录(字段)表中要有自动编号字段(ID),可建立删除查询或执行RunSql语句(其中[ ]填写对应的表名、重复字段名、关键字段名):Delete * FROM [表] Where DCount("[字段]","[表]","[字段]='" & [字段] & "'")>1 AND [ID]>DLookUp("[ID]","[表]","[字段]='" & [字段] & "'") or [字段] Is Null;12、班级成绩排名查询可根据年级、班级和不同科目替换查询中的相应字段名:Select *, [英语]+[数学]+[语文] AS 总分, DCount("*","成绩表","[年级]='" & [年级] & "' and ([英语]+[数学]+[语文])>" & [英语]+[数学]+[语文])+1 AS 年级名次 FROM 成绩表 orDER BY 成绩表.年级, [英语]+[数学]+[语文] DESC;13、点击“保存”时显示“新增”、“修改”,隐藏“删除”命令按钮Private Sub 保存_Click()If MsgBox("你确认要保存用户资料吗?", 1 + 64, "确认保存") = vb OK ThenMe.新增.Visible = TrueMe.修改.Visible = TrueMe.删除.Visible = FalseMe.新增.SetFocusMe.保存.Visible = FalseEnd IfEnd Sub。
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.综合。
第47套按照以下窗体功能,补充事件代码设计。
在窗体中有"用户名称"和"用户密码"两个文本框,名称分别为"tUser"和"tPass",还有"确定"和"退出"两个命令按钮,名称分别为"cmdEnter"和"cmdQuit"。
在"tUser"和"tPass"两个文本框中输入用户名称和用户密码后,单击"确定"按钮,程序将判断输入的值是否正确,如果输入的用户名称为"cueb",用户密码为"1234",则显示提示框,提示框标题为"欢迎",显示内容为"密码输入正确,欢迎进入系统!",提示框中只有一个"确定"按钮,当单击"确定"按钮后,关闭该窗体;如果输入不正确,则提示框显示内容为"密码错误!",同时清除"tUser"和"tPass"两个文本框中的内容,并将光标置于"tUser"文本框中。
当单击窗体上的"退出"按钮后,关闭当前窗体。
Option Compare DatabasePrivate Sub cmdEnter_Click()Dim name As String, pass As Stringname = Nz(Me!tUser)pass = Nz(Me!tPass)' *********************** Add1 *************************************If pass = "1234" And name = "cueb" Then' *********************** Add1 *************************************MsgBox "密码输入正确,欢迎进入系统!", vbOKOnly + vbCritical, "欢迎" '显示消息框DoCmd.CloseElseMsgBox "密码错误!", vbOKOnly '显示消息框Me!tUser = "" '使文本框清空Me!tPass = ""' *********************** Add2 *************************************Me!tUser.SetFocus' *********************** Add2 *************************************End IfEnd SubPrivate Sub cmdQuit_Click()' *********************** Add3 *************************************DoCmd.Close' *********************** Add3 *************************************End SubPrivate Sub Form_Load()End Sub第48套按照以下窗体功能,补充事件代码设计。
1.常考点1.not like“*运动*”查询条件为没有运动爱好的记录2.between#1992-1-1# and #1992-12-31#表有效性规则为1992年度的3.between date()-30 and date()查询最近30天的记录4.year(date())- year([工作时间])计算工龄5.year(date())-[年龄]计算4位出生年信息6.year([工作时间])<1992工作时间小于1992年的7.“010-”00000000输入掩码8.AAAAA/LLLLL/99999/CCCCC 输入掩码:必须数字或字母/必须字母/选择数字或空格/选择字符或空格9.yes或-1/not yes或0查询条件为是/否的记录(一般相对于选项按钮)10.is null/is not null查询条件为空值/不能为空值11.year([工作时间])或 left([工作时间],4)查询条件为显示工作时间字段的年份的记录12.>=18 and <=20或between18 and 20查询条件为18到20的13.AutoExec宏命名:自动执行14.In(“男”,“女”)或男or女表有效性规则为只能输入男或女15.[年龄]mod2<>0/[年龄]mod2=0查询条件为年龄为奇数的/年龄为偶数的16.<(select avg([年龄])from[tStud])查询条件为在tStud表中AA年龄小于平均年龄的人17.day(date()-[入住时期])查询条件为统计天数(已住天数)18.[Forms]![fTemp]![tAge]查询条件为引用窗体fTemp上控件tAge的值19.<=format(date(),"yyyy-5-1")查询条件为小于等于本年度5月1日的记录20.“1”& mid([编号],2,5)查询更新条件:将员工编号的第一个字符更改为“1”21.IIf([党员否]=true,“党员”,“非党员”)函数:党员否字段为真时显示记录为党员,假时显示为非党员IIf(mid([编号],5,2)=“10”,“信息”,“管理”)函数:将编号字段第56位为“10”的记录显示为信息,反之显示为管理IIf([性别]=“男”and [年龄]<20,“1”,“0”)函数:性别为男年龄小于20的人在复选框中为选中,否者为不显示状态22.取整函数:Int()小于的第一个负数 Fix()大于的第一个负数 Round()四舍五入23.str()/Instr()数字转化为字符串/检索子字符串在字符串中最早出现的位置()可以将null值转换为0,空字符串(“”)或则其他的指定值25.=str(month([工作时间]))+“月”例工作时间为1998-8-17则返回值为“8月”26.TransferDatabase 宏命令:从其他数据库导入或导出数据27.Beep 宏命令:“嘟嘟”声28.SetValue 宏命令:窗体或报表控件属性值2. 80个操作题考点考点1.设置"规格"字段的输入掩码为9位字母、数字和字符的组合。
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.综合。