ACCESS常考编程代码
Access与Excel结合使用常用代码
Excel使用灵活但是处理数据量小(数据一多就会卡)Access能数据量大(相对于Excel)但是使用不灵活。
Excel与Access结合使用能相互弥补不足。
如用Access用为后台数据库对表进行筛选、汇总等一系列处理后再以Excel为前台导出数据，会比直接用Excel表刷选、汇总一个上万行的数据表快的多。
以下是几种access与Excel结合使用常用方法与代码。
1.Access导入表格代码Sub 导入材料出库表()DoCmd.SetWarnings False '取消警告DoCmd.RunSQL "DELETE FROM 材料出库表" '删除材料出库表DoCmd.TransferSpreadsheet acImport, 8, "材料出库表", _“F:\材料出库明细.xls", _True, "sheet1!a2:ag20000" '导入材料出库明细表中的sheet1表a2:ag20000区域的数据DoCmd.SetWarnings TrueEnd Sub '恢复警告注：DoCmd.TransferSpreadsheet acImport, 8, "材料出库表", “F:\材料出库明细.xls", True, "sheet1!a2:ag20000" 此句代码中的"材料出库表"是表明导入到Access中的材料出库表中，参数true表明以导入数据的第一行作为列字段如将true改false 数据导入access中后表的列字段为“F1、F2、F3.....”。
2.创建Access窗体与按钮1.创建窗体点创建－窗体设计即调出窗体设计窗体界面。
2.创建按钮点设计－按扭即可用鼠标在窗体中插入按钮。
按钮做好后会自动弹出“命令按钮向导”直接点取消。
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 = 3 To 10Me.Controls.Item(ii).Visible = TrueNextFor i = 11 To 22Me.Controls.Item(i).Visible = FalseNext按特殊名在VBA中设置控件的可见性：For i = 27 To 47If 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获得焦点及失去焦点时字段变更颜色。
Access vba 常用代码函数整理
第2页
Access vba 凼数,事件,方法,属性
第一季
4. Dlookup 方法
使用 Dlookup 凼数可以显示丌在窗体戒报表记录源中的字段值。 DLookup(“expr ”, “domain”, “[criteria]=’范围’”) DLookup 凼数具有下列参数：
制作 : 二痞子
If DLookup("[字段 1]", "表 1", "[字段 1]='广州分公司'") = "广州分公司" Then MsgBox "广州分公司的销售已存在,丌允许再次导入!", vbCritical, "提示" Exit Sub '退出这个子程序
Done: Exit Function
ErrorHandler : MsgBox "错误编号： #" & Err & vbCrLf & _ "错误来源： " & Err.Source & vbCrLf & _ "错误信息： " & Err.Description, vbCritical, "出错" Resume Done
End Function Function labMoveOn(intNum As Integer)
labMoveOn = [Microsoft Access Help].labMoveOn(intNum) End Function Function labMouseDown(intNum)
labMouseDown = [Microsoft Access Help].labMouseDown(intNum) End Function Function MouseOnClick(CmdNumber As Integer)
access常用代码
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"内并写入外部文件中。
Ifrs.RecordCount=0Then;tAge=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)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.Caption 26、设置用户名为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,"提示")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 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.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。
access计算机代码归纳
第一套加载窗体fQuery重置窗体标题为“显示查询信息”Add1 Me.Caption = “显示查询信息”退出cQuit命令按钮改的文字颜色改为红色Add2 Me. 命令7.ForeColor = vbRed字体粗细改为加粗，加粗为700Add3 Me. 命令7.FontWeight = 700tStudent表中的全部记录显示Add4 BBB.Form.RecoedSource = “ select * from tStudent”第二套将Tda标签的标题设置为“YYYY年雇员信息”Add1 Me.Tda.Caption = Year(Date) & "年雇员信息"设置代码执行宏Add2 DoCmd.RunMacro "m1"第三套将标签显示内容设置为所选项目名加上"内容:"Add1 Me.Ldetail.Caption = Me.CItem.Value & "内容："显示全部记录Add2 fDetail.Form.RecordSource = "tStud"设置提示框Add3 MsgBox "查询项目或查询内容不能为空！！！", vbOKOnly, "注意"设置窗体标题为标签tTitle的标题Add4 Me.Caption = Me.tTitle.Caption第五套（同3套，少标题）Add1 Me.Ldetail.Caption = Me.cItem.Value & "内容：" Add2 Me.fDetail.Form.RecordSource = "tStud"Add3 MsgBox "查询项目和查询内容不能为空！！！", vbOKOnly, "注意"第六套单击修改按钮，保存按钮变为可用Add1 Me.CmdSave.Enabled = True焦点移到"CmdEdit"命令按钮Add2 Me.CmdEdit.SetFocus第八套设置窗体标题为“xxxx年信息输出”Add1 Me.Caption = Year(Date) & "年信息输出"预览方式输出报表rEmpAdd2 DoCmd.OpenReport "rEmp", acViewPreview第九套消息框提示关闭窗体Add If MsgBox("确认退出？", vbYesNo + vbQuestion, "提示") = vbYes ThentSub学号第56位判断专业控件来源=IIf(Mid([学号],5,2)="10","信息","管理")第十套实现“tPass”文本框内容以密码形式显示Add1 Me.tPass.InputMask = "password"用户名为cueb ，用户密码为1234Add2 If name = "cued" And pass = "1234" ThenAdd3 Me.tUser.SetFocusAdd4 DoCmd.Close 第十一套表tDept的控件来源=DLookUp("科室名称","tOffice","科室ID='" & [科室ID] & "'")tDoct的控件来源=DLookUp("姓名","tDoctor","医生ID = '" & [医生ID] & "'")将标签显示内容设置为所选项目名加上"内容:"Add1 Me.Ldetail.Caption = Me.CItem.Value & "内容："显示全部记录Add2 fDetail.Form.RecordSource = "tStud"设置提示框Add3 MsgBox "查询项目或查询内容不能为空！！！", vbOKOnly, "注意"设置窗体标题Add4 Me.Caption = Year(Date) & "年" & Month(Date) & "月" & Me.tTitle.Caption第十二套tPa的控件来源=IIf([tEmp]![党员否]=[ture],"党员","非党员")窗体对象改为查询对象”qEmp ”动态设置窗体记录源属性Add1 Me.Form.RecordSource = "qEmp"关闭窗口Add2 DoCmd.Close第十三套txtIf的控件来源=IIf(Sum([单价]*[数量])>30000,"达标","不达标")第十四套计算满足表达式1+2+3+..+n<=30000 在Program行中输入Dim s As IntegerDo While s <= 30000n = n + 1s = s + nLoopn = n – 1代码调用宏对象"mEmp" Add2 DoCmd.RunMacro "mEmp"设置窗体标题为标签"bTitle"的标题内容Add1 Me.Caption = Me.bTitle.Caption第十五套题干为对不起！为输入雇员姓名，请输入！Add1 Set rs = New ADODB.RecordsetAdd2 If Not rs.EOF ThenAdd3 Me.TxtDetail = ""第十六套tDept的控件来源=DLookUp("名称","tGroup","部门编号='" & [所属部门] & "'")第十七套窗体标题显示为**月**日####Me.Caption = Trim(Month(Date) & "月" & Day(Date) & "月") & Trim(Me.bTitle.Caption)第十八套窗体标题显示为**月**日####样例Me.Caption = Trim(Month(Date) & "月" & Day(Date) & "日") & Trim(Me.bTitle.Caption & "样例")第十九套使用DLookUp函数查询并将结果分别显示在标签上Add1 btitle2.Caption = "性别查询结果: " & COMBO1.Value & "的平均年龄为" & DLookup("平均年龄", "qEmp", "性别='" & COMBO1.Value & "'")设置组合框列表框行来源，用于列出不同的性别值供选择Add2 BO1.RowSourceType = "值列表"BO1.AddItem "男"BO1.AddItem "女"设置Label2初始标签值为“性别查询结果：”Add3 Me.btitle2.Caption = "性别查询结果："第二十套窗体标题显示为CD明细显示Me.Caption = Me.bTitle.Caption & "显示"CDID标签的文字颜色改为红色Me.CDID_标签.ForeColor = vbRed第二十一套文本框已输入的字符串反向显示设置循环Add1 For i = Len(s1) To 1 Step -1将结果显示在bTxt2中Add2 Me.bTxt2.Value = s2第二十二套窗体标题显示为**月####Me.Caption = Month(Date) & "月" & Me.bTitle.Caption第二十三套设置过滤属性，输出团员信息Add1 Me.RecordSource = "select * from tStudent where 政治面貌= '团员'"设置子对象的数据源Add2 Me.子对象.SourceObject = "fGrade"取消子窗体导航按钮Add3 Me.子对象.Form.NavigationButtons = FalseAdd4 DoCmd.Close第二十四套等级考试测试Me.bTitle.Caption =Me.tText.Value & Trim("等级考试测试")英文部分大写输出Me.Caption = UCase(Me.bTitle.Caption)第二十五套设置bTitle标签为红色文本显示Add1 Me.bTitle.ForeColor = vbRed'调用mdPnt，预览输出Add2 mdPnt acViewPreview'调用mdPnt，打印输出Add3 mdPnt acViewNormal第二十六套代码重置"bTitle"标签的标题为"员工最大年龄差为XXX" Add1 Me.bTitle.Caption = "员工最大年龄差为" & (DMax("年龄", "temp") - DMin("年龄", "temp"))消息框提示报表输出(外观样式见题干图例)Add2 If MsgBox("报表预览", vbYesNo + vbQuestion, "确认") = vbYes Then第二十七套重置窗体标题为"XXXX年度党员学生信息"Add1 Me.Caption = Year(Date) & "年度党员学生信息"设置窗体的记录源Add2 Me.RecordSource = "SELECT * FROM tStud where [党员否]=true"关闭当前窗体DoCmd.Close第二十八套非团员人数为XXXXAdd1 bTitle.Caption = "非团员人数为" & DCount("学号", "tstud", "团员否=FALSE")验证用户输入Add2 If Name = "csy" And pass = "1129" Then光标焦点移至要求文本框内Me.tUser.SetFocus第二十九套设置窗体标题为当前日期Add1 Me.Caption = Date设置"fTitle"标签的标题Add2 Me.fTitle.Caption = "读者借阅信息"预览方式打开报表并设置条件输出高级读者（职称为"教授"和"副教授"的读者）借阅信息Add3 DoCmd.OpenReport "rReader", acViewPreview, "qT", "职称in('教授','副教授')第三十套重置窗体标题为"系统登录" Add1 Me.Caption = "系统登录"验证用户输入Add2 If tUser = "cueb" And tPass = "1234" Then光标焦点移至要求文本框内Add3 Me.tUser.SetFocus 第三十二套报表标题****年度######Me.Caption = Trim(Year(Date) & "年度") & Trim(Me.bTitle.Caption)定义变量f为整型Dim f As Integer窗体标题自动显示为“计时器”Form.Caption = "计时器"设置铃声Beep在文本框中显示计时的秒数Me.txtList.Value = s第三十三套设置窗体标题为"**年度报表输出"Add1 Me.Caption= mid(Year(Date),3,2) & "年度报表输出"设置窗体"退出"命令按钮标题为粗体显示Add2 Me.bt2.FontBold = -1预览方式输出报表rEmpAdd3 DoCmd.OpenReport "rEmp", acViewPreview第三十四套题干为：没有这个职员Add1 If isnull (Trim(me.txtName))thenAdd2 strSQL = “ select * from tEmp where 姓名= ‘” & name & “’”Add3 If rs.EOF then。
常用VB操作ACCESS数据库代码
常用VB操作ACCESS数据库代码常用VB操作ACCESS数据库代码'VB引用项目如下:'Microsoft ADO Ext. 2.8 for DDL and Security'Microsoft ActiveX Data Objects 2.8 Library'COM+ Services Type Library'Microsoft DAO 3.6 Object LibrarySub CreateDatabase(mdbPath, mdbPassword)Dim cat As New ADOX.CatalogIf mdbPassword = "" Thencat.Create"Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source" & mdbPath & ";"Elsecat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Password=" & mdbPassword & ";Data Source=" & mdbPath & ";"'cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbPath & ";"End IfMsgBox "数据库" & mdbPath & "建立成功", vbOKOnly'Set wspDefault = DBEngine.Workspaces(0)'Set dbs = wspDefault.CreateDatabase("Newdb.mdb", _'dbLangGeneral & ";pwd=NewPassword", dbEncrypt)End SubSub CreateTable(mdbPath, mdbTableName, mdbSqlColumns, mdbPrimaryKey)'建立列的sql语句'mdbPath="c:\test.mdb"'mdbTableName="User"'mdbSqlColumns="ID,adInteger;UserName,adVarWChar,20; Password,adVarWChar,20"'mdbPrimaryKey="ID"Dim tbl As New TableDim cat As New ADOX.CatalogDim con As ADODB.Connectioncat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source=" & mdbPath & ";"Dim ArrayColumn As String = mdbTableName'添加数据表字段(字段格式:字段名字段类别，字段长度；最末字段没有分号)ArrayTotalColumn = Split(mdbSqlColumns, ";", -1, 1)For i = 0 To UBound(ArrayTotalColumn)ArraySingleColumn = Split(ArrayTotalColumn(i), ",", -1, 1)If UBound(ArraySingleColumn) = 1 Then'tbl.Columns.Append ArraySingleColumn(0), ArraySingleColumn(1)tbl.Columns.Append ArraySingleColumn(0), adIntegerElse'tbl.Columns.Append ArraySingleColumn(0), ArraySingleColumn(1), ArraySingleColumn(2)tbl.Columns.Append ArraySingleColumn(0), adVarWChar, CInt(ArraySingleColumn(2))End IfNext'设置数据表主键'tbl.Columns(mdbPrimaryKey).Properties("AutoIncrement") = Truecat.Tables.Append tbl'设置列的必填属性为“否”'tbl.Columns("Weight").Attributes = adColNullable'设置列的允许空字符串为“是”'tbl.Columns("FirstName").Properties("Jet OLEDB:Allow Zero Length") = TrueSet tbl = NothingSet cat = NothingMsgBox "数据表" & mdbPath & "-" & mdbTableName & "建立成功", vbOKOnlyEnd Sub'这个准备编写成一个类。
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”中的值。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1.单击命令按钮运行宏m1: DoCmd.RunMacro "m1"
2.标签Tda 标题设置为系统当前日期: Tda.Caption=Date
3.使“保存”按钮CmdSave变为可用：CmdSave.Enabled=True
4.将文本框tText的内容作为窗体中标签bTitle的标题显示：bTitle.Caption= tText.value
5.窗体加载时窗体标题属性为系统当前日期：Form.Caption=Date
6：将tStudent 表中的全部记录显示出来：
Select * From tStudent
7：消息框(返回的值是数字型，共有7个数字)：MsgBox "请重新输入口令！"
8：输入框（输入的值赋值给k，且k是字符串类型）：k=InputBox ("请输入大于0的整数值")
9.预览输出报表对象"rEmp"：
DoCmd.OpenReport "rEmp",acViewPreview
10：单击"刷新"按钮，窗体记录源改为查询对象"qEm"：Form.RecordSource="qEmp"
11.单击"退出"按钮，关闭窗体：DoCmd.Close
12：窗体"fEmp"的"加载"事件中设置标签"bTitle"以红色文本显示：bTitle.ForeColor=vbRed
13：将考生文件夹下的图片文件"test.bmp"设置为窗体"fEmp"的背景：Form.Picture=CurrentProject.path & "\test.bmp"
14：CDID文本框内内容显示颜色改为红色：CDID.ForeColor=vbRed
15：关闭窗体：DoCmd.Close
16：将文本框中输入的内容与文本串"等级考试测试"连接，并消除连接串的前导和尾随空白字符，用标签"bTitle"显示连接结果：bTitle.Caption=Trim(tText) & "等级考试测试"
17：光标置于用户名文本框(文本框名为tUser)中(表示文本框获得焦点)：Me!tUser.SetFocus
点退出按钮关闭窗体：DoCmd.Close
单击“保存”按钮，“修改”按钮CmdEdit不可用
CmdEdit.Enable=False。