学习工作访问
有时是必要的，以防止开放的形式，如果有记录显示，例如，做一个查询时，并没有登记并不需要，我们并不需要以开放的形式，因为我们没有数据显示。 所以我们要检查是否有记录显示，如果没有显示一条消息，阻碍开放的形式。 怎么样？
这很容易在事件的形式属性只是把下面的代码“，打开”：
= 0 Then如果Form.RecordsetClone.RecordCount
MSGBOX“没有找到记录。”，VbExclamation，“错误！”
DoCmd.Close acForm，“找到数据”
退出小组
结束如果
看一个例子下载： 防止开放
1 - 建立在结构和事件的顺序表'点击'属性的形式输入以下内容：me.keypreview = TRUE
这是怎么回事，使键盘事件中收到的第一种形式。
2 - 在窗体的属性，下面的事件“按钮，”把下面的代码：
私人小组Form_KeyDown（邀请码将作为整数，作为整数移位）
选择案例邀请码
案例vbKeyF2
DoCmd.OpenForm“Form1的”
案例vbKeyF3
DoCmd.OpenForm“Form2的”
案例vbKeyF4
DoCmd.OpenForm“formulario3”
案例vbKeyF5
作为双DIM计算器
计算器=壳牌（“CALC.EXE”，vbNormalFocus）
案例vbKeyF6
DoCmd.Close
CASE ELSE
最终选择
END SUB
这样做是什么以下几点：
- 按F2键打开Form1的
- 按F3键打开Form2的
- 按F4键打开formulário3
- 按F5键打开Windows计算器
- 关闭的形式，按F6键
除了功能键F1，F2代...等，我们可以同时使用其他任何按钮履行职能，但牢记，输入表单中的数据不宜使用，被用来编写领域中的数据的密钥，。
另一件事是，它只有在你把上面的代码的形式，其中工程。
下载： 钥匙 
这是一个菜单，让我们节省时间，行代码和一个更好的安排，在公开形式方面，因为这个菜单只需要一个开放的形式，。 此外，以减少开放形式的数量也减少了在菜单中打开每个表单的按钮。
这种类型的菜单，肯定已经存在了一段时间，已经被许多用户访问使用。
那么，这是菜单？
让我们创建一个组合框，包含了所有的形式，我们计划通过它打开菜单使用。 从组合框中选择一个选项当你的申请表将显示在窗体。 然后，我们开始菜单一步一步。
1 - 让我们创建一个表，我们将其中存储的名称，你想给每个形式和名称的形式，将打开。 在这个例子中，我创建表以下领域tblmenu：
字段类型
nomedomenu文本 - >名称将在菜单上看到的（组合框）
形成文字 - >名称的形式，将打开
后的例子介绍了数据：
NomedoMenu表
帐户Form1中
存款Form2的
运动formulario3
帐户盒formulario4
帐户的帐户formulario5
提取formulario6
2 - 然后，我们创建了一个从上表的查询：
tblmenu选择表，然后选择这两个领域中，我们选择了升序排序nomedomenu更容易找到菜单相当几次，当我们要打开的形式。 此查询，我叫'CsMenu“。
3 - 让我们创建“菜单”的形式，即在设计视图中选择新的形式。 然后我们创建一个组合框，并更改以下属性：
- 列数：2
- 列宽1厘米，0厘米;
- 原产地行：csmenu（这是在前段创建查询的名称）
4 - 在相同的形式，我们将创建一个未绑定的主窗体的窗体（在这个例子中，我叫menuquadro）。 正是这种形式，将打开形式，每年选择菜单（组合框）。
5 - 现在创建一个模块，它将使我们能够打开选定的菜单，在子窗体中的组合框。
我们创建一个模块（我称之为“abrirmenu）和粘贴下面的代码：
公共的功能AtivarMenu（Combmenu ComboBox中，subabrir子窗体）
作为字符串暗淡Abrirform
= abrirform Combmenu.Column（1）
subabrir.SourceObject = abrirform
subabrir.LinkChildFields =“”
subabrir.LinkMasterFields =“”
函数结束
要形式菜单上的组合框的属性和更新事件后创建的功能：ativarmenu =（[菜单]，[menuquadro]）'菜单'是组合框的名称和“menuquadro”后子窗体的名称。
和最后的菜单已准备就绪。 刚刚尝试和使用。 我希望你喜欢这个技巧。
下载： 菜单
下面的菜单上的图片。
自定义菜单
这个例子显示了如何提供国际收支的管理制度。
这个例子表明，这样做是创建和自动点击一个按钮，签订的销售合同通过数据的好处。 也就是说，我们介绍客户的名称，合同开始日期和总金额。 然后，只需点击“计算支付”，它会自动生成期数划分表示，他们每个人的价值，并计算每期（每月）日期。 这也是一个例子，演示了如何一次添加多个记录，因为当你按一下按钮时，它增加了一个记录每个利益。
下载： 插入多条记录
这是一个索尼娅读者打算为动物的数据库记录数据的应用领域的例子。 这是一个简单的数据库只是一个动物的照片输入数据的形式。
下载： 动物收容所
任何变化只是在这里评论。
有几种方式进入记录，最常见的是绑定到一个表的形式获得通过。 这样做的另一种方式是通过不相关的领域，即采用与独立无关的表字段的表单。 至
输入的数据，我们使用“记录集”，即由一个代码，在这个例子中是如下：
暗淡DB作为数据库
昏暗的RS作为Recordset如果MSGBOX（“你愿意写吗？”VbYesNoCancel，“选项”）= vbYes
“按下问是否保存记录，如果是这样的代码，直到年底继续
集DB = CurrentDb（）
设定RS = db.OpenRecordset（“资料”，dbOpenTable）
“打开表插入数据寄存器rs.AddNew
RS（“名称”）=！INome
RS（“地址”）=我！Imorada
RS（“年龄”）=我！Iidade
rs.Update'将数据发送到表
rs.Close'清除数据和关闭记录集
设置RS =没有
设置DB =没有Me.INome = NULL'清除表单中的字段
Me.Imorada = NULL
Me.Iidade = NULL
MSGBOX“记录保存”，vbInformation，“做”，“显示确认消息
Me.INome.SetFocus“将光标移动到第一场
其他：退出小组
结束如果
下载： 独立广场
这个例子显示了如何执行小时计算。 它是为那些需要知道多少时间，开始时间和结束时间之间经过。 使减法的开始时间结束时间是不够的，因为如果结束时间从一天移动到下一个帐户将不再正确，例如：
开始时间：23:00:00
结束时间：02:00:00
结束时间 - 开始时间= 02:00:00到23:00:00 -21:00:00
显然，这是不是这么简单的工作随着时间的推移，因为那样的话，而不是正确的结果将错误-21小时有三个小时。
要解决此期间，每天我们必须先检查，如果结束时间大于开始时间，以较大者为准，然后计算是：结束时间 - 开始时间。
如果你下然后，我们必须做的另一种方式计算，即：
开始时间：23:00:00
结束时间：02:00:00
总时间：23:59:59
命中：00:00:01
基本上我们做的是增加值的减法24:00:00给我们正确的三个小时。 这就是：
结束时间 - 开始时间+ +命中的总时数= 02:00:00至23:00:00 23:59:59 + 00:00:01 = 24:00:00 = 03 + -21:00:00 ：00:00
下载： 与时间积分
这个例子显示了如何通过一个弹出日历选择日期。 也就是说，作为一个模块，并能形成一个专责的日期，因为这是一个日历。 在这个例子中，我们可以选择通过单击日期字段旁边的按钮或点击鼠标右键，在日期字段的日期。 这种方式输入日期，是非常实用，因为它让我们看到了一个日历，并选择你想要的最佳日期。
下载： 弹出日历
通常，当我们运行窗体上的鼠标的中间按钮，改变访问日志。 在某些情况下，它可能是有用的，不会发生。
这个例子使用模块的形式加载的事件，以防止用户浏览通过使用滚动鼠标记录。 为了测试，我们可以使用鼠标滚轮（中键）不变更登记。
从这里下载： 鼠标滚轮
这个例子使用一个模块，它隐藏在Microsoft Access主窗口，离开只是形式的窗口可见。
要使用这个模块，在开幕活动的形式，我们必须使用以下命令：呼叫fsetAccessWindow（SW_HIDE）。
通过举例的方式来检查，做downloa： 操作窗口ACCES
