如何在Access的特定字段中更改部分文本的顏色？

Question

在Access中，我有一個包含如下字段的表：

零件號

A / B / C

A / B / R

噸/ / V

d / A / I

我想將所有第三部分的顏色更改為紅色。 因此，在這種情況下，C，R，V，I將被塗成紅色。 但是我無法在Access 2007中更改部分文本字段的顏色。如果在“主頁”選項卡下使用“字體更改”，它將更改整個表格的字體。 我對微軟感到非常失望。 有沒有什么方法可以改變顏色呢？：D您可以推薦VBA，Form中的Macro，Query，Report ... P / S：我使用Access 2007

Answer 1

如果可以使用Access報告，則可以將TextBox添加到報告中。 在文本框中，您可以具有如下公式：

="<font color=""blue"">" & [ColumnA] & "</font> <u>" & [ColumnB] & "</u>"

請參閱訪問RTF文本：支持HTML的哪些子集？ 更多細節。

Answer 2

好的，我認為唯一的方法是自動導出到Excel。 最后我可以做到這一點

Private Sub CommandExport_Click()
Dim db As Database
Dim rec1 As Recordset
Dim xlFile As Object
Dim xlWorkBook As Object
Dim xlActiveWkb As Object
Dim xlActiveSheet As Object
Dim iCols, iRows, flag As Integer

Set db = CurrentDb
Set xlFile = CreateObject("Excel.Application")
Set xlWorkBook = xlFile.Workbooks.Add
Set xlActiveWkb = xlFile.Application.ActiveWorkBook

xlFile.Visible = True
xlActiveWkb.Sheets.Add
xlActiveWkb.Worksheets(1).Name = "My_Report"

Set xlActiveSheet = xlActiveWkb.Worksheets("My_Report")
Set rec1 = db.OpenRecordset("Report")

For iCols = 0 To rec1.Fields.Count - 1
    xlActiveSheet.Cells(1, iCols + 1).Value = rec1.Fields(iCols).Name
    If rec1.Fields(iCols).Name = "FS Number" Then
        flag = iCols
    End If
Next

xlActiveSheet.Range(xlActiveSheet.Cells(1, 1), xlActiveSheet.Cells(1, rec1.Fields.Count)).Font.Bold = True
xlActiveSheet.Range(xlActiveSheet.Cells(1, 1), xlActiveSheet.Cells(1, rec1.Fields.Count)).Interior.ColorIndex = 15
xlActiveSheet.Cells(2, 1).CopyFromRecordset rec1
xlActiveSheet.Columns("A:AD").EntireColumn.AutoFit

iRows = 1
rec1.MoveFirst
While Not rec1.EOF
    xlActiveSheet.Cells(iRows + 1, flag + 1).Characters(InStr(rec1![FS Number], "*")).Font.ColorIndex = 3
    iRows = iRows + 1
    rec1.MoveNext
Wend

Set xlSheet = Nothing
Set xlWorkBook = Nothing
Set xlActiveWkb = Nothing
rec1.Close
db.Close
Set rec1 = Nothing
Set db = Nothing

結束子

魔術在這里

xlActiveSheet.Cells(iRows + 1, flag + 1).Characters(InStr(rec1![FS Number], "*")).Font.ColorIndex = 3