access超管用的VBA一句话代码

超管用的VBA一句话代码发表时间：2008-10-249:36:31评论（13）浏览（4420）评论|加入收藏|复制摘要:一些常见又经常有人问到的问题，一两句代码而已，但有时就会让你挠耳抓腮……正文：有时候，一些看似很难的问题或应用，竟然用一句代码就可以搞定！下面是我举的一些例子，也希望大家参与讨论，把你平常所用的一句代码共享出来，我加以整理，放到这里大家共享。一句话代码：1、 组合框的循环选择在双击事件中加入，也可用在键盘按上下箭头事件中：Screen.ActiveControl.ListIndex=（Screen.ActiveControl.ListIndex+1）ModScreen.ActiveControl.ListCount2、 窗体单击及移动记录时选定记录（反黑显示）在成为当前事件中加入：DoCmd.RunCommandacCmdSelectRecord3、 组合框获得焦点后自动张开在获得焦点事件中加入：Combo0.Dropdown4、 文本框获得焦点后光标自动移动到文本的末尾在获得焦点事件（如有必要也在鼠标释放事件）中加入：Text0.SelStart=Len（Text0）5、 随机抽取指定数量记录的查询在查询语句中Rnd（［编号］）的编号为表中的自动编号字段名：SelectTOP10*FROM表1orDERBYRnd（［编号］）;6、 打印窗体中筛选显示的记录报表的记录源要与窗体的记录源相同，在窗体的打印按钮单击事件中：DoCmd.OpenReport”报表名"，acViewPreview,,Me.Filter7、同时去除窗体及所有子窗体的筛选及排序跟单击“记录”菜单中的“取消筛选用E序”作用相同：DoCmd.ShowAllRecords8、 数据更改后提醒是否保存在窗体的更新后事件中（Form_BeforeUpdate）：IfNot（Cancel=（MsgBox（‘数据已更改，是否保存？",vbOKCancel+vbQuestion）=vbCancel））ThenDoCmd.DoMenuItemacFormBar,acEditMenu,acUndo,,acMenuVer709、 选定一个选项或输入编码，在其他字段自动把与选项相关信息辅助录入（即一拖几，由编码自动输入名称等）在文本框或组合框的更新后事件中，用Dlookup函数查找相关信息并辅值给当前记录其他字段：供货商=DLookup（"公司名称”，”供货商资料”,”［供货商编号］='"&Me!［供货商编号］&"”'）10、 设置字段的默认值为当前表的最后一条记录的值（或序号、最大值加1:用Dmax代替Dlast）在窗体的成为当前事件中，用Dlast函数查找最后记录相关值并辅值给字段的默认值：成绩.DefaultValue=""'&DLast（"成绩”，Me.RecordSource）&""'11、 删除重复记录（字段）表中要有自动编号字段（ID），可建立删除查询或执行RunSql语句（其中［］填写对应的表名、重复字段名、关键字段名）：Delete*FROM［表］WhereDCount（"序段］”,”［表］”,"［字段］='"&［字段］&"'"）＞1AND［ID］＞DLookUp（"［ID］”,"表］”,"［字段］='"&［字段］&"'"）or［字段］IsNull;12、 班级成绩排名查询、生成名次或临时序号可根据年级、班级和不同科目替换查询中的相应字段名：Select*,［英语］+［数学］+［语文］AS总分,DCount（"*”,”成绩表”,”［年级］='"&［年级］&"'and（［英语］+［数学］+［语文］）＞"&［英语］+［数学］+［语文］）+1AS年级名次FROM成绩表orDERBY成绩表.年级,［英语］+［数学］+［语文］DESC;13、 防止公式文本框引起窗体抖动如果窗体中使用了计算公式作为文本框的数据源，这可能会导致窗体一打开或者移动鼠标等引起窗体刷新时，窗体不停的抖动，这可在窗体的加载事件或激活时间中加入：Me.Recalc14、查找与该控件匹配的记录(用组合框查找记录)如何使窗体转到组合框或文本框中输入的指定记录，用组