安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

Access常用代码

2017-07-31 14:38:00
来自网络
转贴
1348

Access常用代码

 

1、   组合框的循环选择

        在双击事件中加入,也可用在键盘按上下箭头事件中:

         Screen.ActiveControl.ListIndex =

(Screen.ActiveControl.ListIndex + 1) Mod Screen.ActiveControl.ListCount

2、   窗体单击及移动记录时选定记录(反黑显示)

       在成为当前事件中加入:

        DoCmd.RunCommand acCmdSelectRecord

3、   组合框获得?#27807;?#21518;自动张开

      在获得?#27807;?#20107;件中加入:

        Combo0.Dropdown

4、   文本框获得?#27807;?#21518;光标自动移动到文本的末尾

      在获得?#27807;?#20107;件(如有必要也在鼠标?#22836;?#20107;件)中加入:

      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("数据已更?#27169;?#26159;否保存?", 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、       点击“保存”时显示“新增”、“修改?#20445;?#38544;藏“删除”命令按钮

Private Sub 保存_Click()  

    If MsgBox("你确认要保存用户资?#19979;穡?, 1 + 64, "确认保存") = vb

OK Then

Me.新增.Visible = True Me.修改.Visible = True

Me.删除.Visible = False

Me.新增.SetFocus

Me.保存.Visible = False

End If

End Sub

  

分享
? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:18
内存占用:7.75MB
PHP 执行时间:0.19
双色球大奖2000年
安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
那不勒斯皇后真假对比 疯狂赌徒2电子 魔兽世界字体 1月9日快船vs凯尔特人 国际米兰110周年球衣标志 嗨氏玩过什么主机游戏 MG北极秘宝 拜仁v柏林赫塔 纽伦堡大学2018qs排名 全民飞机大战黄金斗士冲54关