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)
这样就可以即时对通用数据库进行维护(新增 修改 删除)了
- Access通用平台使用步骤及问题详解
- 解决Access开发平台查询列表窗体只有一条记录时按删除或删除所有数据会出错
- Access开发平台几个常用函数说明-(自动编码,弹出日期,弹出计算器,用户函数)
- 开发平台树导航的字体能否修改-调大或缩小
- 解决子窗体或数据表窗体的列宽度无法保存重新打开又恢复原样了
- Access通用开发平台在系统启动时自动打开你指定的窗体
- Access平台窗体上添加复选框或其它控件不能使用
- Access平台数据库字度长度加长-字段升位问题
- Access通用开发平台标准版的免费激活操作步骤
- Access通用开发平台增加获取角色名称的自定义函数
- Access平台实现审核与反审核功能的演示及源码
- 通用开发平台流程图的拖拉设计展示1
- 平台窗体字段显示设置对应的是哪一个数据表
- 平台字段长度修改(改大了)后,但窗体还是无法录入更多内容
- Access平台如何使用选项卡式的界面(选项卡式文档)
- Access平台打包发布前能否清除用户登录信息
- 如何提高Access数据库平台的速度
- Access开发平台--关闭系统时提示:是否保存对窗体(窗体名)的设计的更改?解决方案
- Access平台在编辑窗体使用按钮打开基础数据并定位到指定分类
- Access开发平台--获取用户名
- 解决Access平台运行一段时间后会出现系统打开时会自动打开一个最后一次打开的窗体
- 修改Access通用平台创建的窗体
- Access通用平台在导航中执行宏
- 平台函数gf_GetOpenFileName的应用
- 解决通用平台打开提示“对象不支持该属性或者方法” 树控件不显示的方法
- 解决通用平台导航栏滚动条拖动到最右边导致页面无法显示的问题
- 平台手工创建的窗体在 “导航设置” 中以 “子窗体”加入后,原来窗体的引用修改方法
- 平台未关闭子窗体直接关闭整个系统提示是否保存对XXXX窗体设计的更改
- 通用平台开发案例
- 欣阳Access进销存管理系统
- 金工实训Access仓库管理系统
- 欣阳Access货代管理系统
- 连接SAP ERP-Access仓库跟踪管理系统
- 江苏中科重工仓库系统(机械代加工业)
- 功能强大的企业级进销存管理系统(平台开发 快捷高效)
- 天鸣Access物业管理系统(通用平台开发)
- 详细帮助及联系方式