淘宝浏览单app软件:超管用的VBA一句话代码
来源:百度文库 编辑:中财网 时间:2024/05/05 06:08:36
一句话代码:
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))
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))
VBA EC代码的问题
我的VBA模拟器超慢
VBA代码是什么????????
元素大战vba代码
谁有火影忍者大集结1的VBA的代码??
谁知道 机器人大战A(vba) 的金手指代码 急需!!!!!
谁知道 蓝宝石(vba) 的金手指代码 急需!!!!!
Excel VBA代码移植到其他计算机的问题
求助:超难的一句话,怎么翻译?
圣火徽章外传VBA代码
最终幻想战略版VBA代码
怎样把EC代码改成VBA代码
谁有GBA超写真麻雀同窗会的VBA金手指?
512的内存 塞扬D超CPU管用吗?
vba做的界面框,按钮,如何与写好的代码链到一块?
请哪位大哥帮我把下列的EC代码转成VBA的谢谢了啊!
一句话.接后句,超简单
哪里有让VBA代码界面支持鼠标滚轮的补丁?
GBA牧场物语女生版金手指VBA代码(一定要能用的呀)分数我给高!
求VBA的光明之魂金手指!!不要EC代码!!!
请教一个超酷的空间代码!
GBA(龙珠GT)vba代码系咩?
求VBA口袋妖怪银版金手指所有代码
Excel中如何封装VBA 代码