Форматирование файла экспорта из доступа к Excel с условным форматированием

Question

Требуется помощь при проверке формата. Итак, теперь у меня есть кнопка в форме доступа, которая при нажатии экспортирует результаты в новый пустой файл Excel. Сейчас я пытаюсь выполнить sh добавление некоторого кода, который проверяет, были ли поля 6-10 добавлены вместе <> в поле 5 во всем наборе данных WHOLE, а затем выполняет условное форматирование и выделяет те, которые не совпадают с желтыми.

Как только это будет сделано, тогда я хотел бы, чтобы появилось окно сообщения и сколько бы элементов, выделенных в файле Excel, появилось в окне сообщения. Например, есть (9) ячеек, которые не соответствуют друг другу и требуют внимания перед отправкой! "

Dim dbs As DAO.Database
Dim Excel_App As Excel.Application 'Creates Blank Excel File
Dim strTable As String ' Table in access
    Dim queryDelete As String 'SQL to delete records in local table
    Dim strAssigned As DAO.Recordset


    strTable = "Make_allUp" 'Access Table I am trying to copy
    Set Excel_App = CreateObject("Excel.Application")
        Set dbs = CurrentDb

Dim rs As DAO.Recordset
Set rs = dbs.OpenRecordset(strTable)

    Excel_App.Visible = True

Dim wkb As Excel.Workbook
Set wkb = Excel_App.Workbooks.Add

Dim rg As Excel.Range
Dim i As Long
' Add the headings
For i = 0 To rs.Fields.Count - 1
    wkb.Sheets(1).Cells(1, i + 1).Value = rs.Fields(i).Name
Next i

Set rg = wkb.Sheets(1).Cells(2, 1)
rg.CopyFromRecordset rs

' make pretty
rg.CurrentRegion.EntireColumn.AutoFit

If wkb.Sheets(1).Cells(5, 2) <> wkb.Sheets(1).Cells(6, 2) + wkb.Sheets(1).Cells(7, 2) + wkb.Sheets    (1).Cells(8, 2) + wkb.Sheets(1).Cells(9, 2) + wkb.Sheets(1).Cells(10, 2) Then
Format.Cells
****Okay above is what I am having troubles with. Just needing to somehow say if the vaule in field 6 + field 7 + field 8 + field 9 + field 10 <> field 5 Then
highlight those records yellow



Set rs = Nothing
Set wkb = Nothing
Set dbs = Nothing


End Sub

Answer 1

Как я знаю, Access не будет и не сможет форматировать информацию об экспорте. Можно написать код Excel VBA для форматирования ячеек в целевой таблице. Кроме того, можно написать код в Access VBA, написать код Excel VBA, отформатировать ячейки и экспортировать код в электронную таблицу. Кроме того, также можно открыть электронную таблицу, в которую была экспортирована информация, и отформатировать ячейки из Ms. Access с использованием кода Access VBA. Но, как я знаю, вы не можете получить доступ для форматирования информации до или во время самого процесса экспорта.