点击下载
代 码:
Private Sub 确定_Click() CurrentDb.Properties("AppTitle") = Me![标题] CurrentDb.Properties("StartupForm") = Me![显示窗体] Application.RefreshTitleBar '更新标题列 MsgBox "应用成功!" End Sub
图 示: