In đậm một phần thuộc tính `Phụ đề` của nhãn trong VBA (Microsoft Access)

Question

Làm cách nào để in đậm một từ nhất định trong chú thích của nhãn Microsoft Access?

Nếu nó giúp, bản thân văn bản được lưu trữ trong bảng Microsoft Access.

Ví dụ bên dưới. Tôi có một hình thức Microsoft Access với một nhãn, trong trường hợp Form_Load() tôi thiết lập thuộc tính caption của nhãn này để giá trị trả về trong một truy vấn DLookup như vậy:

Private Sub Form_Load() 

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

End Sub 

văn bản của tôi là như sau:

The quick brown fox jumps over the lazy dog ​​

tôi muốn để làm vững tâm từ Lazy. Điều này có thể không? Nếu vậy, làm thế nào để làm điều này?

Cảm ơn

Answer 1

Bạn không đề cập đến các phiên bản của Access, trong năm 2007 (AFAIK) và 2010, bạn có thể tạo một textbox và thiết lập các định dạng văn bản trên tab dữ liệu sang Rich Text. Sau đó, bạn có thể đặt Nguồn điều khiển thành:

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

Thay đổi một vài thuộc tính khác, như Đã khóa và đã bật và bạn sẽ có hộp văn bản trông và hoạt động như một nhãn.

Answer 2

Bạn muốn điều này xấu đến mức nào? Bởi vì tôi có một câu trả lời thực sự điên rồ, nhưng nó có thể hoạt động.

Thay nhãn của bạn bằng Kiểm soát trình duyệt web, tạo tệp html tạm thời, sau đó trỏ Trình duyệt web đến đó. Bạn sẽ cần phải thêm một trường vào bảng bên dưới (hoặc ít nhất là tôi đã làm) bởi vì điều khiển đã bị ràng buộc hoặc bạn không thể thay đổi ControlSource - tôi nghĩ vậy.

Tôi đặt điều khiển Trình duyệt web trên biểu mẫu, tắt thanh cuộn và thường cố làm cho nó trông giống như một nhãn. Tôi đã không thành công hoàn toàn với điều đó, nhưng có lẽ bạn giỏi hơn tôi.

Tôi đã thêm trường Văn bản vào bảng của tôi có tên là "FakeLabel". Nguồn điều khiển Trình duyệt Web nên trỏ đến trường đó.

Đối với mục đích của thử nghiệm, tôi đặt một CommandButton về hình thức với mã này

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 

Đây là những gì nó trông giống như sau khi tôi bấm nút. Nếu bạn có thể loại bỏ phần đệm trên đó, nó có thể trông giống như một nhãn.