Access通用开发平台FAQ手册介绍
1 Access通用平台使用步骤及问题详解
2 解决Access开发平台查询列表窗体只有一条记录时按删除或删除所有数据会出错
3 Access开发平台几个常用函数说明-(自动编码,弹出日期,弹出计算器,用户函数)
4 开发平台树导航的字体能否修改-调大或缩小
5 解决子窗体或数据表窗体的列宽度无法保存重新打开又恢复原样了
6 Access通用开发平台在系统启动时自动打开你指定的窗体
7 Access平台窗体上添加复选框或其它控件不能使用
8 Access平台数据库字度长度加长-字段升位问题
9 Access通用开发平台标准版的免费激活操作步骤
10 Access通用开发平台增加获取角色名称的自定义函数
11 Access平台实现审核与反审核功能的演示及源码
12 通用开发平台流程图的拖拉设计展示1
13 平台窗体字段显示设置对应的是哪一个数据表
14 平台字段长度修改(改大了)后,但窗体还是无法录入更多内容
15 Access平台如何使用选项卡式的界面(选项卡式文档)
16 Access平台打包发布前能否清除用户登录信息
17 如何提高Access数据库平台的速度
18 Access开发平台--关闭系统时提示:是否保存对窗体(窗体名)的设计的更改?解决方案
19 Access平台在编辑窗体使用按钮打开基础数据并定位到指定分类
20 Access开发平台--获取用户名
21 解决Access平台运行一段时间后会出现系统打开时会自动打开一个最后一次打开的窗体
22 修改Access通用平台创建的窗体
23 Access通用平台在导航中执行宏
24  平台函数gf_GetOpenFileName的应用
25 解决通用平台打开提示“对象不支持该属性或者方法” 树控件不显示的方法
26 解决通用平台导航栏滚动条拖动到最右边导致页面无法显示的问题
27 平台手工创建的窗体在 “导航设置” 中以 “子窗体”加入后,原来窗体的引用修改方法

Access平台在编辑窗体使用按钮打开基础数据并定位到指定分类

2017-10-09 17:00:19
zstmtony
583
最后编辑:zstmtony 于 2018-06-05 22:50:14

Access通用开发平台,有一个非常好用的功能,就是通用基础数据,像性别 民族 分类等一些常用的下拉选择内容都可以使用这个通用基础数据窗体来集中管理,而且可以随时添加这些分类的具体项目。

使用Access通用平台创建窗体时,可以设置指定的字段的内容必须从基础数据的列表中选择,且会自动设置这个字段为组合框,组合框的内容会自动来自通用基础数据窗体中你指定的类别的内容列表。但如果要维护(新增或修改列表项目内容)内容,则需要进入到通用基础数据窗体中去维护 

最近有网友希望实现在编辑窗体录入时,如果发现下拉框中没有需要的选项,想即时打开基础数据库窗体,并自动转向指定的分类,马上添加新的项目,如下所示,那如何实现呢:



解决办法很简单:

1.在编辑窗体这个下拉框的右边添加一个按钮,设置按钮的代码如下:

    DoCmd.OpenForm "frmSysBasicData", , , , , acDialog, "tblInfo_FPlace"

    cboPlace.Requery '刷新组合框 列表的内容

    其中 "tblInfo_FPlace" 为指定的基础数据的分类,您根据需要改为你自己的分类。

    cboPlace是组合框控件的名称,按需要改成您的组合框控件的名称

   分类的名称可以在通用基础数据窗体中获得

   


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



然后再 保存关闭,再次运行就可以了


这样就可以即时对通用数据库进行维护(新增 修改 删除)了