一句话代码:
1、组合框的循环选择 在双击事件中加入,也可用在键盘按上下箭头事件中: Screen.ActiveControl.ListIndex = (Screen.ActiveControl.ListIndex + 1) Mod Screen.ActiveControl.ListCount 2、窗体单击及移动记录时选定记录(反黑显示) 在成为当前事件中加入: DoCmd.RunCommand acCmdSelectRecord 3、组合框获得焦点后自动张开 在获得焦点事件中加入: Combo0.Dropdown 4、文本框获得焦点后光标自动移动到文本的末尾 在获得焦点事件(如有必要也在鼠标释放事件)中加入: Text0.SelStart = Len(Text0) 5、随机抽取指定数量记录的查询 在查询语句中Rnd([编号]) 的编号为表中的自动编号字段名: Select TOP 10 * FROM 表1 orDER BY Rnd([编号]); 6、打印窗体中筛选显示的记录 报表的记录源药与窗体的相同,在窗体的打印按钮单击事件中: DoCmd.OpenReport "报表名", acViewPreview, , Me.Filter 7、去除窗体及子窗体的筛选及排序 跟“记录”菜单中的“取消筛选/排序”作用相同: DoCmd.ShowAllRecords 8、数据更改后提醒是否保存 在窗体的更新后事件中(Form_BeforeUpdate): If Not (Cancel = (MsgBox("数据已更改,是否保存?", vbOKCancel + vbQuestion) = vbCancel)) Then DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70 9、选定一个选项,自动把与选项相关信息辅助录入(即一拖几) 在选项的更改事件中,用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、防止公式文本框引起窗体抖动 如果窗体中使用了计算公式作为文本框的数据源,这可能会导致窗体一打开或者移动鼠标等引起窗体刷新时,窗体不停的抖动,这可在窗体的加载事件中加入: Me.Recalc 14、查找与该控件匹配的记录 如何使窗体转到组合框或文本框中输入的指定记录,用组合框的向导中可以自动生成语句,也可在控件的更新后事件中使用下面一句语句: Me.Recordset.FindFirst "[ID] = " & Str(Nz(Me![Combo1], 0)) |
|