Hi~

大家好久不见呀！

一直忙，但不知道在忙啥，好多事情都落下了，ERP的文章最近也没有时间更新，接下去我还在考虑弄个直播，不知道大家有没有什么想了解的，大家给我留言，直播的时候给大家讲解讲解。

当我们自己在开发系统的时候，打开Access后，默认显示的标题是这样的，我先新建了一个Access文件，如下图

那如果我们系统开发好了，给用户使用了，肯定不能这样显示了，正常来讲应该是显示系统名称的，那这个我们该怎么调整呢，今天我们就来教大家怎么调整应用程序的标题。

1、手工调整

我们来先讲一下手工怎么调整，这个比较简单，点击文件——>选项，找到当前数据库，在应用程序标题中输入你想要的系统名称就可以了，当然你也可以添加图标，如下图

2、代码调整

第二种方式就是用代码来调整，如果用代码调整，那方式相对来说也比较简单，可以将下面一段代码放到登录窗口的加载事件，当你打开系统时，应用程序的标题就会改变。

    On Error GoTo ErrorHandlerDim dbs As DAO.DatabaseDim prp As DAO.PropertyConst errPropertyNotFound = 3270Set dbs = CurrentDbdbs.Properties("AppTitle") = "Access开发"Application.RefreshTitleBarExitHere:Exit SubErrorHandler:Select Case ErrCase errPropertyNotFounddbs.Properties.Append dbs.CreateProperty("AppTitle", dbText, "Access开发")ResumeCase ElseMsgBox Err.Description, vbCritical, "错误 #" & ErrResume ExitHereEnd Select

运行后的效果：

好了，这两种方法，大家都去试一下吧！