点击下载

代   码:

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

图   示: