問(wèn)題:
如何編程打開其他數(shù)據(jù)庫(kù)中的窗體,使用完畢后退回?
我新建了一個(gè)數(shù)據(jù)庫(kù),里面只有一個(gè)Form,我想在Form上添加幾個(gè)按鈕,每個(gè)按鈕上對(duì)應(yīng)一個(gè)Click事件,事件的動(dòng)作就是打相應(yīng)的Access數(shù)據(jù)庫(kù),并執(zhí)行該數(shù)據(jù)庫(kù)中的Menu表單,關(guān)閉數(shù)據(jù)庫(kù)后又回到有按鈕的Form來(lái).
回答:
Function OpenOhterMDB()
Dim objApp As New Access.Application
objApp.OpenCurrentDatabase CurrentProject.Path & " ample.mdb"
objApp.DoCmd.OpenForm "newform"
End Function
如何編程打開其他數(shù)據(jù)庫(kù)中的窗體,使用完畢后退回?
我新建了一個(gè)數(shù)據(jù)庫(kù),里面只有一個(gè)Form,我想在Form上添加幾個(gè)按鈕,每個(gè)按鈕上對(duì)應(yīng)一個(gè)Click事件,事件的動(dòng)作就是打相應(yīng)的Access數(shù)據(jù)庫(kù),并執(zhí)行該數(shù)據(jù)庫(kù)中的Menu表單,關(guān)閉數(shù)據(jù)庫(kù)后又回到有按鈕的Form來(lái).
回答:
Function OpenOhterMDB()
Dim objApp As New Access.Application
objApp.OpenCurrentDatabase CurrentProject.Path & " ample.mdb"
objApp.DoCmd.OpenForm "newform"
End Function