Ms access 如何更改Access中特定字段中部分文本的颜色？

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

零件号 A/B/C

A/B/R

T/Y/V

承兑交单

我想把所有第三部分的颜色都改成红色。在这种情况下，C，R，V，I将被涂成红色。但我无法在Access 2007中更改部分文本字段的颜色。如果在“主页”选项卡下使用字体更改，则会更改整个表格的字体。我对微软很失望。有没有办法改变颜色会很棒：D你可以推荐VBA，窗体中的宏，查询，报表。。。

---

P/S：我使用Access 2007

好的，我认为唯一的方法是自动导出到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

---

如果可以使用Access报告，则可以向报告中添加文本框。在文本框中，可以有如下公式：

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

=”&[ColumnA]&“&[ColumnB]&”

有关更多详细信息，请参阅