[Resolvido]Formatação Condicional em Consulta

Boa Tarde !

Estou a tentar usar o exemplo de formatacao condidiconal numa consulta DO Mestre JPaulo.
No Exemplo estaformatando assim #.#00[Verde];(#-#.#00)[Vermelho];"Zero";"Vazio
" para formatar.

No meu caso estou tentando formatar da seguinte forma
Se > 80,00 Verde se nao Vermelho.

Alguma Ideia ?

http://maximoaccess.forumeiros.com/t2027-formatacao-condicional-numa-consulta

Obrigado !

Qual a versão do seu Access?

Poderia postar seu banco para vermos?

Se vai utilizar a consulta em um formulário ou relatório, melhor usar a formatação nestes objetos.

Qual é dessa consulta ?

Boa Noite !


Marcelo e Avelino Obrigado pela resposta.
Uso o Access 2007.
Na verdade a minha necessidade de formatar essa consulta é para que ela fosse importada para excel ja formatada uma vez que tentei exportar um Subformulário e exportar mas nao vai as formatação condicional que tenho no subform.


A Consulta não esta em nenhum formulário, mas é a mesma consulta que uso nesse SubFormulario que citei acima.

Resumindo a minha necessidade é importar os dados de um SubForm para Excel com as formatacao condicional feita no SUbfForm.

Segue um Exemplo.
https://dl.dropboxusercontent.com/u/19875180/Formatacao.accdb

Up

Alguma Sugestão !

Saudações !

Ola Rafael;

Nunca fiz tal acrobacia, mas uma sugestão minha seria, você criar um template em Excel que acompanharia o banco, e nesse template inserir a formatação condicional.

Boa Tarde !

Procurei por "Template Excel" Aqui no fórum e nao encontrei nenhum exemplo!

Caso tenha algum e possa disponibilizar agradeço!


Saudações !

Rafael;

O template é você que o tem de criar, já formatado com os campos da tabela ou consulta que você quer exportar do Access.

No Access depois existem codigos, de abrir esse tal de template, inserir a informação exportada e salvar.

Boa Tarde JPaulo!

Estou a usar o seu exemplo de exportar excel e me deparo com o seguinte erro, "Subscrito fora do intervalo" na linha de vermelhor


Private Sub SeuBotão_Click()
'By JPaulo ® Maximo Access
Dim rst As DAO.Recordset, strSQL As String, strLivro As String, xls As Object
Set xls = CreateObject("Excel.Application")
strLivro = CurrentProject.Path & "\Relatorio.xls"
xls.Workbooks.Open (strLivro)
xls.Visible = True
xls.Worksheets("Sheet1").Activate
strSQL = "SELECT * FROM Qry_Fechamento;"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
xls.ActiveSheet.Range("A1").Select
xls.ActiveCell.CopyFromRecordset rst
xls.ActiveWorkbook.Save
xls.Application.Quit
Set xls = Nothing
End Sub


Saudacoes !

Ola;

É esse nome da folha "Sheet1", que você tem na sua planilha ?

Nen acredito que errei isso (risos)

Deu certo e esta importando corretamente como esperava.
O problema que as colunas onde sao numero no excel aparece aquele erro de o campo é texto.

Tenho que tratar isso na consulta ? pois na consulta ja converto usando o Int(...


Saudacoes !

Boa Tarde !


Bom, Resolvi meu problema da importação (Criando o templante como sugerido pelo JPAulo) e dos campos textos(Convertendo para numero na própria consulta).

O problema é que meu template fica em rede e essa opção de importar ao final do condigo fechava o arquivo excel e então retida a seguinte linha para que ficasse aberto(xls.Application.Quit) ate poque o usuário irá precisar do arquivo excel.

Mas se ao permanecer aberto o usuário fizer alguma mudança no arquivo na verdade ele estará alterando meu template.
Como faco para que ao final da importação o usuário tenha acesso ao arquivo mas não necessariamente seja meu template.

Saudacoes !

Boa tarde,
Guarde-o com saveas para que fique como ficheiro independente do modelo utilizado

Ola Alexandre !

O que é saveas ?

A principio pensei em proteger as células da planilha para que não fosse alterada.


saudações !

Bom dia,
Private Sub SeuBotão_Click()
'By JPaulo ® Maximo Access
Dim rst As DAO.Recordset, strSQL As String, strLivro As String, xls As Object
Set xls = CreateObject("Excel.Application")
strLivro = CurrentProject.Path & "\Relatorio.xls"
xls.Workbooks.Open (strLivro)
xls.Visible = True
xls.Worksheets("Sheet1").Activate
strSQL = "SELECT * FROM Qry_Fechamento;"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
xls.ActiveSheet.Range("A1").Select
xls.ActiveCell.CopyFromRecordset rst
xls.ActiveWorkbook.SaveAs EnderecoDestino <----aqui
xls.Application.Quit
Set xls = Nothing
End Sub

Como sempre obrigado Alexandre.

O que estou fazendo errado ? Estou exportando duas consulta diference para abas diferentes.

Private Sub Btn_Exportar_Excel_Click()
'By JPaulo ® Maximo Access
Dim rst As DAO.Recordset, strSQL As String, strLivro As String, xls As Object
Set xls = CreateObject("Excel.Application")
strLivro = "E:\ImportarExcel\Relatorio.xls"
xls.Workbooks.Open (strLivro)
xls.Visible = True
xls.Worksheets("EMAND").Activate
strSQL = "SELECT * From Qry_Fechamento;"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
xls.ActiveSheet.Range("A3").Select
xls.ActiveCell.CopyFromRecordset rst
Set xls = Nothing


Set xls = CreateObject("Excel.Application")
strLivro = "E:\ImportarExcel\Relatorio.xls"
xls.Workbooks.Open (strLivro)
xls.Visible = True
xls.Worksheets("INDIC").Activate
strSQL = "SELECT * From Qry_Fechamento;"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
xls.ActiveSheet.Range("D5").Select
xls.ActiveCell.CopyFromRecordset rst
xls.ActiveWorkbook.SaveAs
xls.Application.Quit
Set xls = Nothing

End Sub


Nao da erro mas ao final da exportação aparece uma mensagem de que "o documento já existe deseja substitui-lo ?"

E o EnderecoDestino?

Alexandre!

Sem querer abusar da sua genuína paciência, é possível ao passar o endereço destino como a data do sistema exemplo

xls.ActiveWorkbook.SaveAs "C:\Relatorio.xls"

E o arquivo fosse salvo como Relatorio_Data_de_hoje.xls

Tentei fazer algo mais ou menos assim
xls.ActiveWorkbook.SaveAs "C:\Relatorio"& Now "&.xls"


Mas nao funfou

Se for
xls.ActiveWorkbook.SaveAs "C:\Relatorio" & Now() & ".xls"

Da esse seguinte erro !
debugando vi que o NOw apresente os caracteres / e : como elimino isso ?

Tente
xls.ActiveWorkbook.SaveAs "C:\Relatorio " & Format(Now(),"dd-mm-yyyy") & ".xls"

Fantástico Alexandre !

Como sempre aprendendo muito com você aqui no fórum.

Adicionei hhnnss para pegar a hora porque do jeito que você sugeriu se o usuário salvasse mais de uma vez no mesmo dia daria a mesma msg de que o arquivo já existe

então fiz da seguinte forma
xls.ActiveWorkbook.SaveAs "C:\Relatorio " & Format(Now(),"dd-mm-yyyy-hhnnss") & ".xls"


Muito Obrigado pela atenção

Resolvido !