Access通用開發(fā)平臺，有一個(gè)非常好用的功能，就是通用基礎(chǔ)數(shù)據(jù)，像性別 民族 分類等一些常用的下拉選擇內(nèi)容都可以使用這個(gè)通用基礎(chǔ)數(shù)據(jù)窗體來集中管理，而且可以隨時(shí)添加這些分類的具體項(xiàng)目。

使用Access通用平臺創(chuàng)建窗體時(shí)，可以設(shè)置指定的字段的內(nèi)容必須從基礎(chǔ)數(shù)據(jù)的列表中選擇，且會自動(dòng)設(shè)置這個(gè)字段為組合框，組合框的內(nèi)容會自動(dòng)來自通用基礎(chǔ)數(shù)據(jù)窗體中你指定的類別的內(nèi)容列表。但如果要維護(hù)（新增或修改列表項(xiàng)目內(nèi)容）內(nèi)容，則需要進(jìn)入到通用基礎(chǔ)數(shù)據(jù)窗體中去維護(hù) 

最近有網(wǎng)友希望實(shí)現(xiàn)在編輯窗體錄入時(shí)，如果發(fā)現(xiàn)下拉框中沒有需要的選項(xiàng)，想即時(shí)打開基礎(chǔ)數(shù)據(jù)庫窗體，并自動(dòng)轉(zhuǎn)向指定的分類，馬上添加新的項(xiàng)目，如下所示，那如何實(shí)現(xiàn)呢：

解決辦法很簡單：

1.在編輯窗體這個(gè)下拉框的右邊添加一個(gè)按鈕，設(shè)置按鈕的代碼如下：

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

    cboPlace.Requery '刷新組合框 列表的內(nèi)容

    其中 "tblInfo_FPlace" 為指定的基礎(chǔ)數(shù)據(jù)的分類，您根據(jù)需要改為你自己的分類。

    cboPlace是組合框控件的名稱，按需要改成您的組合框控件的名稱

   分類的名稱可以在通用基礎(chǔ)數(shù)據(jù)窗體中獲得

2. 按Shift打開main.mdb 

    打開frmSysBasicData窗體，將窗體加載事件中的代碼修改為如下內(nèi)容：

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

然后再 保存關(guān)閉，再次運(yùn)行就可以了

這樣就可以即時(shí)對通用數(shù)據(jù)庫進(jìn)行維護(hù)（新增 修改 刪除）了