7,713
社区成员
发帖
与我相关
我的任务
分享
Option Compare Database
在当前窗体创建一个空白窗体
Private Sub Command28_Click()
'
Dim Frm As Form
'创建窗体
Set Frm = CreateForm()
'保存新建的窗体,同时为其命名
DoCmd.Save , "F_新建的窗体"
'关闭新建的窗体
DoCmd.Close acForm, "F_新建的窗体"
'刷新数据库
RefreshDatabaseWindow
End Sub