Msgbox err.description 显示错误信息 Me![组合框].setfocus 窗体的子对象获取光标 Me![组合框].requery 刷新窗体子对象 Docmd.runsql stemp 查询stemp的值 Docmd.openform “窗体”, acnormal,,,,acwindownormal Docmd.close 关闭窗体 AHOAHGO：表明语句行，供跳转使用 Dim RS as ADODB.recordset 定义数据集变量 Set RS=New ADODB,recordset 为数据集变量分配空间 Stemp=”Select * From 表格” 打开数据表（P161） RS.Open Stemp,Currentproject.connection,adopenkeyset,adlockoptimistic RS.Addnew 增加新记录 RS.Update 刷新数据集 SET RS=nothing 清空数据集 RS.Movefirst 指针到第一记录 RS.Delete 删除记录 RS.Movefirst指针移到下一记录 RS.Recordcount 统计记录数 Docmd.Domenuitem Dolookup(“字段值”, “表”)从表中读取字段值 Forms![窗体]![文本框]=Me![文本框] 把当前窗体值赋给某个窗体 Isnull(Me![文本框])=True 判断是否为空 Docmd.openreport “报表”, acviewpreview, , , acwindownormal 打开报表 本文来源：https://www.wddqw.com/doc/6b947ead6529647d272852c3.html