🔥码云GVP开源项目 12k star Uniapp+ElementUI 功能强大 支持多语言、二开方便! 广告
Access通用开发平台,有一个非常好用的功能,就是通用基础数据,像性别 民族 分类等一些常用的下拉选择内容都可以使用这个通用基础数据窗体来集中管理,而且可以随时添加这些分类的具体项目。 使用Access通用平台创建窗体时,可以设置指定的字段的内容必须从基础数据的列表中选择,且会自动设置这个字段为组合框,组合框的内容会自动来自通用基础数据窗体中你指定的类别的内容列表。但如果要维护(新增或修改列表项目内容)内容,则需要进入到通用基础数据窗体中去维护  最近有网友希望实现在编辑窗体录入时,如果发现下拉框中没有需要的选项,想即时打开基础数据库窗体,并自动转向指定的分类,马上添加新的项目,如下所示,那如何实现呢: ![](http://www.office-cn.net/tony.php?m=file&f=read&t=png&fileID=337) [TOC] **解决办法**: 1.在编辑窗体这个下拉框的右边添加一个按钮,设置按钮的代码如下: ```     DoCmd.OpenForm "frmSysBasicData", , , , , acDialog, "tblInfo\_FPlace" ```     cboPlace.Requery '刷新组合框 列表的内容     其中 "tblInfo\_FPlace" 为指定的基础数据的分类,您根据需要改为你自己的分类。     cboPlace是组合框控件的名称,按需要改成您的组合框控件的名称    分类的名称可以在通用基础数据窗体中获得    ![](http://www.office-cn.net/tony.php?m=file&f=read&t=png&fileID=339) [TOC] 2\. 按Shift打开main.mdb      打开frmSysBasicData窗体,将窗体加载事件中的代码修改为如下内容: ~~~ Private Sub Form_Load() gf_BasicDataFormload Me If Nz(Me.OpenArgs) <> "" Then If Nz(Me.OpenArgs) = "SelectBasicData" Then On Error Resume Next Set mfrm = Screen.ActiveForm Set mctr = Screen.ActiveControl Me.cmdGenSql.Visible = True Else Me.lstClass.Value = Nz(Me.OpenArgs) Call gf_BasicDatalstClassAfterUpdate([Form]) End If End If End Sub ~~~ 然后再 保存关闭,再次运行就可以了 ![](http://www.office-cn.net/tony.php?m=file&f=read&t=png&fileID=340) 这样就可以即时对通用数据库进行维护(新增 修改 删除)了