8

如何在 Microsoft Access 标签的标题中加粗某个单词？

如果有帮助，文本本身将存储在 Microsoft Access 表中。

下面是一个例子。我有一个带有标签的 Microsoft Access 表单，Form_Load()如果我将此标签的标题属性设置为 DLookup 查询中返回的值，如下所示：

Private Sub Form_Load()

    Me.Label0.Caption = DLookup("Field1", "Table1", "[ID] = 1")

End Sub

我的文字如下：

敏捷的棕色狐狸跳过了懒狗

我想让Lazy这个词更加大胆。这可能吗？如果是这样，我该怎么做？

谢谢

4

2 回答 2

10

您没有提及 Access 的版本，对于 2007 (AFAIK) 和 2010，您可以创建一个文本框并将数据选项卡上的文本格式设置为富文本。然后，您可以将控制源设置为：

="The quick <b>brown</b> fox"

更改更多属性，例如 Locked 和 Enabled，您将拥有一个外观和行为类似于标签的文本框。

于 2012-08-10T19:57:18.890 回答
3

你想要这个有多糟糕？因为我有一个非常疯狂的答案，但它可能会奏效。

将您的标签替换为 Web 浏览器控件，创建一个临时 html 文件，然后将 Web 浏览器指向该文件。您需要在基础表中添加一个字段（或者至少我这样做了），因为必须绑定控件，否则您无法更改 ControlSource - 我认为。

我在表单上放置了一个 Web 浏览器控件，关闭了滚动条，并且通常尝试让它看起来像一个标签。我没有完全成功，但也许你比我更擅长。

我在表中添加了一个名为“FakeLabel”的文本字段。Web 浏览器控件源应指向该字段。

出于测试目的，我使用此代码在表单上放置了一个命令按钮

Private Sub Command113_Click()

    Dim sFile As String
    Dim lFile As String

    sFile = Environ("TEMP") & "\fakelabel.html"
    lFile = FreeFile

    Open sFile For Output As lFile

    Write #lFile, "The <strong>quick</strong> brown fox jumped over the <em>lazy</em> dog"

    Close lFile

    Me.Recordset.Edit
    Me.Recordset.Fields("FakeLabel").Value = sFile
    Me.Recordset.Update

    Me.WebBrowser112.Requery

End Sub

这是我单击按钮后的样子。如果您可以摆脱顶部填充，它看起来真的像一个标签。

使用 Web 控件作为标签的访问表单

于 2012-08-10T18:04:13.843 回答