ACCESS的主窗体标题加字

好学

我以前在本论坛上看到过有人能用代码在ACCESS的主窗体上的标题中间增加说明,但现在找不到了,请问有高手知道如何实现吗?

咱家是猫

请附图说明具体是哪个位置？

好学

我指的是图片中的红圈位置,谢谢版主指点!

njy6000

这个是本身就有的功能--[工具]--[启动]自己设置.

好学

在启动设置我当然知道啦,我是说如何用代码来控制使用时变化,明白吗?

todaynew

好学 发表于 2011-1-24 11:21
在启动设置我当然知道啦,我是说如何用代码来控制使用时变化,明白吗?

AppTitle 属性
使用 AppTitle 属性可以指定应用程序数据库标题栏显示的文字。例如，可以使用 AppTitle 属性指定“库存控制”数据库应用程序的标题栏显示字符串“库存控制”。

设置
AppTitle 属性是一个字符串表达式，它包含标题栏中显示的文字。

设置该属性最简单的方法是使用“启动”对话框中的“应用程序的标题”选项。单击“工具”菜单上的“启动”，即会显示“启动”对话框。也可以使用宏或 Visual Basic 设置该属性。

若要使用宏或 Visual Basic 设置 AppTitle 属性，首先必须已经在“启动”对话框中设置过该属性，或者使用以下方式创建该属性：

在 Microsoft Access 数据库 (.mdb) 中，可以通过使用 CreateProperty 方法添加该属性，并将其追加到 Database 对象的 Properties 集合中。
在 Microsoft Access 项目 (.adp) 中，可以通过使用 Add 方法将该属性添加到 CurrentProject 对象的 AccessObjectProperties 集合中。
若要立即看到所做的更改，还必须使用 RefreshTitleBar 方法。

说明
如果未设置该属性，则标题栏中将显示字符串“Microsoft Access”。

在代码中对该属性进行设置（只要代码中包含 RefreshTitleBar 方法）或者关闭“启动”对话框后，该属性设置会立即生效。

好学

谢谢todaynew 版主的指点!

xie62

在窗体加载时
Me.Caption = "曙光通信站技术资料—— 今天是：" + Format(Now(), "yyyy年m月d日 (aaaa) ")