8

How do I bold a certain word in the caption of a Microsoft Access label?

If it helps, the text itself is stored in a Microsoft Access table.

An example is below. I have a Microsoft Access form with a label, in the Form_Load() event I set the caption property of this label to the value returned in a DLookup query like so:

Private Sub Form_Load()

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

End Sub

My text is as follows:

The quick brown fox jumps over the lazy dog

I want to embolden the word Lazy. Is this possible? If so, how do I do this?

Thanks

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 に答える