Вопрос:
В Access у меня есть таблица, которая содержит такое поле:
номер части
А/В/С
А/В/Р
Т /Y/V,
Ц/А/Я
Я хочу изменить цвет всей третьей части на красный. Поэтому в этом случае C, R, V, я буду окрашен в красный цвет. Но я не могу изменить цвет части текстового поля в Access 2007. Если я использую Font Change на вкладке “Главная”, это изменит шрифт всей таблицы. Я так разочарован Microsoft. Есть ли способ изменить цвет, было бы здорово: D Вы можете порекомендовать VBA, макрос в форме, запросе, отчете… P/S: я использую Access 2007
Лучший ответ:
ok Я думаю, что единственный способ – автоматически экспортировать в 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
End Sub
Магия здесь
xlActiveSheet.Cells(iRows + 1, flag + 1).Characters(InStr(rec1![FS Number], «*»)).Font.ColorIndex = 3 Ответ №1
если вы можете использовать отчет Access, вы можете добавить TextBox в отчет. В текстовом поле вы можете иметь формулу:
=»<font color=»»blue»»>» & [ColumnA] & «</font> <u>» & [ColumnB] & «</u>»
См. Access Rich-Text: какое подмножество HTML поддерживается? Больше подробностей.
