当前位置: 首页 > 建站技术 > 数据库 > Access > 正文

  • 标签
  • 源码
  • 特效
  • Access实现组合框联动详细教程

    前言:

    今天突然想要一个新的功能,就是当第一个下拉组合框改为人事部时第二个下拉组合框就要出现人事部的相关明细可供选择,在excel中测试时是可以实现的但在Access中不知道该如何实现,后经群友帮忙找到了这个示例,说的非常详细,在此上传以供朋友们参考。 

    正文:

    一个组合框的变化,引起另一个组合框的变化,这就是所谓的组合框联动,在生活中不难发现组合框联动的例子,比如某一个地方,不同的省份有不同的城市。如:广东下有中山,广州,深圳,湖南下有长沙,株洲等。下面讲述一下具体的制作过程:

    1. 先建立表,这里不详细说明;

    2. 创建一个"乡镇村屯窗体", 新建一个就行了,如下图:

    Access实现组合框联动详细教程


    3、在窗体中加入三个组合框,如下图:
    Access实现组合框联动详细教程


    4. 打开"乡"组合框的属性表, 更改名称, 例如我将它改名为"乡名";

    行来源类型设置为:表/查询

    点击行来源右边的"..."按钮, 目的设置行来源。

    Access实现组合框联动详细教程


    5. 加入地址表, 双击乡字段, 这样乡的行来源就设置完毕了;
    Access实现组合框联动详细教程


    6. 按上面提到的方法设置村组合框的行来源, 在这里要添加二个字段, 一个是村, 另一个是乡, 在准则中写入条件:froms!窗体名!控件名

    写入条件的目的是以乡组合框的值进行筛选, 这是关键!!

    Access实现组合框联动详细教程


    7. 以上面同样的方法设置屯组合框的行来源, 在这再增加屯字段, 在村字段的准则中再增加准则, 如下图:
    Access实现组合框联动详细教程


    到止, 三个组合框的设置已经完毕, 但组合框还不可以联动的, 必须在各控件的更新事件写入刷新代码才能联动, 代码在下面讲述。

    8. 在乡组合框属性中, 点击更新后右边的"..."按钮, 写入事件过程;

    Access实现组合框联动详细教程



    其更新后事件的代码如下:

    Private Sub 乡名_AfterUpdate() '更新后事件

    Me.村名.Requery '刷新村组合框的列表数据

    Me.村名 = "" '清空村组合框,防止数据错乱

    Me.屯名 = "" '清空屯组合框,防止数据错乱

    End Sub

    9. 以同样方法打开村组合框更新后事件过程, 写入如下代码:

    #p#分页标题#e#Private Sub 村名_AfterUpdate()

    Me.屯名.Requery '刷新屯组合框的列表数据

    Me.屯名 = "" '清空屯组合框,防止数据错乱

    End Sub

    OK, 现在各组合框可以联动了, 回到窗体视图就可以看到效果。

    以下再说一下组合框中常用的三个技巧:

    技巧一:单纯上面的设置, 细心的坛友会发现, 组合框展开的列表中为什么会有很多的重复数据? 如下图:

    Access实现组合框联动详细教程



    可不可以显示唯一数据呢? 答案是:可以的, 方法如下:

    打开行来源设置界面, 如下图, 在空白处右击, 打开一个设置窗体。

    Access实现组合框联动详细教程


    将唯一值的默认值否改为是, 如下图, 然后关闭。
    Access实现组合框联动详细教程

    再回到窗体视图, 看看是不是全部的数据变成唯一值了?
    Access实现组合框联动详细教程


    技巧二:可不可以当控件获得焦点时自动打开列表呢? 这样可以实现纯键盘操作, 不用点击箭头, 答案也是可以的。

    打开控件的属性, 在"获得焦点"的事件过程中写入代码, 代码如下:

    Private Sub 乡名_GotFocus() '获得焦点事件

    Me.乡名.Dropdown '展开列表数据

    End Sub

    OK 再回到窗体视图, 是不是获得焦点的控件会自动打开列表? 再按一下键盘的向下键, 是否可以用键盘选择数据?

    技巧三: 当组合框输入数据时, 在打开的列表中可否高亮显示对应的数据? 答案同样可以。

    打开控件的属性, 将"自动展开"设置为:是, 这样在组合框输入数据时, 对应最接近的数据就会高亮显示, 不信的话你自己试下就知道了。

    Access实现组合框联动详细教程


    以上就是做法,请多练习,这样才能记得住,学得会。

    关注创业、电商、站长,扫描方便乐网站微信二维码,定期抽大奖。

    【版权与免责声明】如发现内容存在版权问题,烦请提供相关信息发邮件至2723741405@qq.com,我们将及时沟通与处理。本站内容除非来源注明方便乐,否则均为网友转载,涉及言论、版权与本站无关。

    本文永久链接:http://www.fangbianle.com/news/show-255642.html

  • 营销
  • 创业
  • 电商
  • 微商
  • AppsFlyer携手百度搜索推广oCPC持续赋能移动营销
    选择新网络推广的优势
    优秀的营销策划人,需要做对三件事
    移动营销:得让消费者自己寻找东西
    网络推广为什么越来越难做?
    最适合中国的10种营销策略
    后流量时代 陌陌的移动营销新方式
    2018年有这些免费的网络推广方法