[Resolvido]Formatar para numero

Boas

Tenho 10 Consultas e ao correr esse código num modulo do access ele copia as 10 consultas para um excel!

Até aqui tudo em ordem, mas ao copiar para o excel as colunas que tem números ( são 4) são coladas em modo de texto. Os campos que tem numero ficam com aquela marca de um ponto de interrogação, que ao clicar nele é-me perguntado se quero modificar para numero.

Existe maneira de juntar a este código uma forma que ele copia os valores das consultas para o excel mas nas 4 colunas que tem numeros ele cola em modo de numero!

Tem como fazer isso?

Codigo:

Option Compare Database

Sub Comando0_Click()
On Error GoTo Err_Comando0_Click
'Declarei as variáveis strConsulta e strNomePlanilha
Dim strConsulta, strNomePLanilha

'Na variável strConsulta eu informei o nome exato da minha consulta
strConsulta = "Semana1"

'Na varivável strNomePlanilha eu informei o local e o nome do arquivo a ser gerado.
strNomePLanilha = "C:\Documents and Settings\.xlsx"

'Aqui foi montado a expressao que faz exportar a cunsulta em um arquivo de excel.
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePLanilha

Exit_Comando0_Click:
Exit Sub


Err_Comando0_Click:
MsgBox Err.Description
Resume Exit_Comando0_Click


End Sub

Obrigado

Por que não deixa as células pré formatadas na planilha?

Não dá. Porque ele escreve por cima e escreve com a formatação da base de dados!

Por um acaso esses campos número na tabela estão com formato número? De repente sejam tipo texto. Se for, tente alterar para número.

é assim o access vai buscar os dados a um txt!
Dentro do access tenho varias consultas como ja disse!

Resumindo todos os dados no access estão em formato texto! devido ao txt

Formate o campo texto direto na consulta antes de exportar;

Campo: CLng([SeuCampo])

É a unica forma, de momento.

Escrevo esse codigo no module?

Campo: CLng([Campo1])

fica assim?

Nada disso;

Na sua consulta, tem as colunas com:

Campo1 | Campo2 | Campo3

Você coloca assim por exemplo no 2º Campo;

Campo1 | Campo:CLng([Campo2]) | Campo3

Mudo o nome da coluna?
Isso não da!

Como não dá.

Em mais de 25 anos de Access sempre deu.....

Isto é uma Consulta Selecção.

Abro a Consulta na vista de folha de dados aparece la os campos que quero que sejam mostrados!

Esta a dizer fazer botão direito do rato na coluna e mudar o nome da mesma?

Rapaz vamos devagar.

Você abre a consulta em modo ESTRUTURA

No campo que você diz, tem o nome dele lá, igual ao que está na tabela, então você substitui esse nome pela fomatação;

O Nome com os dois pontos é o nome que irá aparecer, mas já formatado Campo2:CLng([Campo2]

Então fica o seguinte:

Campo: Campo1:CLong([Campo1])
Tabela: Dados

Né?!

Se fizar assim o nome "Dados" da tabela desaparece e da-me este erro:

REferencia circular provocada pelo alias Campo1 na lista Select das Definições de Consulta

Se eu escolher a tabela e clicar executar da-me este erro:

) suplementar na expressão de consulta Dados.[Clong([Campo1])]

o que fazo? lol

Vamos simplificar a coisa.

Com a consulta aberta em modo ESTRUTURA

Qual é o nome verdadeiro do campo que você gostaria que fosse exportado em numerico e é texto ?

Campo1

Então onde está Campo1, você vai substituir por este;

Campo1:CLng([Campo1]

Aparece a seguinte mensagem:




http://www.4shared.com/photo/KVQRjNPP/untitled.html

Tal e qual como a mensagem lhe diz, falta um colchete...

Campo1:CLng([Campo1])

J Paulo

Se fizer isso aparece a seguinte mensagem:

REferencia circular provocada pelo alias Campo1 na lista Select das Definições de Consulta

Mude para :

xpto:CLng([Campo1])

E faça o teste.

Funcionou beleza. A conclusão que cego é que não posso por o mesmo nome que ponho entre ()! Senão dá erro!

JPaulo como posso por este código a ser executado ao meio dia de cada dia? È possível?

Ainda bem que deu.

Nas propriedades de um formulario, vá na guia Eventos, Linha Intervalo do Cronometro (Time Interval) e digite 1000

Na linha Cronometro (On Time) entre nos 3 pontinhos do lado direito, e no VBA cole isto e altere;

Private Sub Form_Timer()
If Time() = #12:00:00 PM# Then
'Seu codigo aqui
Else
Exit Sub
End If
End Sub

Para isso funcionar, o banco tem de estar aberto e pode até colocar esse form oculto.

Onde encontro o formulário no access!

Ou como fazo um?

Penso que você deveria estudar uns tutoriais Access.

Este tópico fica Resolvido.

Qualquer coisa abra um novo, na sala correta.

Ok.

Obrigado pela ajuda J Paulo;)

Volto abrir este tópico pois aqui a dias precisei de converter uns registos que estavam em txt para numero!

Até qaui tudo bem!
Num dos campos preciso que seja formatado para numero mas com uma casa decimal! Como devo alterar o código?

Este código converte para formato numero mas sem casas decimais!

xpto:CLng([Campo1])

att

xpto:CDbl([Campo1])

Funcionou beleza

Obrigado Ricardo