大神支招:如何设计access行政区划菜单

作者:课课家教育更新于： 2016-09-07 13:40:01

　　今天,小编将会教大家如何利用Access窗体制作行政区划菜单级联,本文只是一个简单的实例，主要是为了打破你对Access的陌生感，其实有很多功能我们都没有涉及到，比如打印报表、生成网页数据库以及使用VBA编程实现更多更复杂的功能等.下面我们就一起来学习一下吧!

　　首先我们先来了解一下什么级联,就是当我们上网填写一些表单,填写行政区划信息时，比如你填写北京市，会自定列出北京市的各个区。这就是级联功能啦,这个功能用access数据库的窗体非常容易的实现哦。下面我们来看一下:

　　这个功能的也是非常有好处的,当我们通过制作这个数据录入窗体，用户就不会录错行政区划信息，保证数据录入的质量。

　　在我们使用access窗体制作行政区划菜单级联，即选择省后，自动列出相应的市、选择市后列出相应的县，针对这一个功能,现在我们把问题进一步深入。

　　首先我们先来了解这个功能的原理就是我们在数据录入过程中，常需要对数据进行编码，也就是生成数据库的主键（ID），行政区划信息常常和其他编码信息结合来作为数据库的主键，因此，行政区划代码信息显得尤为重要。下面，我们一起来学习一下如何在制作用户选择县后，自动生成行政区划代码的功能。

　　大家先看一下完成后的效果图:

　　用户选择前

　　用户选择后

　　接下来我们一起来看一下详细的制作教程：

　　第一步,我们在做好的行政区划窗体上，单击右键选择设计，进入窗体设计视图，点击文本框控件，在窗体里新建一个文本框，将其名称命名为“国标码”，并对其属性进行设置，将边框样式属性设为“透明”。

　　第二步,对属性进行设置

　　之后选择“县”控件，在这个控件的AfterUpdate（）事件后，编写如下代码：

　　PrivateSubcboCounty_AfterUpdate()

　　DimnewidAsVariant

　　newid=DLookup("[countyid]","县","[county]="&"Forms!q!cboCounty")

　　Text13.Value=newid

　　EndSub

　　在这里,小编需要为大家讲解一下什么是dlookup函数，DLookup函数用于从指定记录集（一个域）获取特定字段的值，dlookup函数有三个参数，第一个参数为要查询显示字段，第二个参数为查询的表，第三个参数为查询字段。

　　今天的教程就学习到这里,通过本例大家对于利用access窗体制作行政区划菜单级联这个功能是不是了解更多了呢,能够给大家带来有用的知识是课课家最大的心愿,希望本例对大家有所帮助!