[Resolvido]Campo Criado em Consulta x Gravar na Tabela através do VBA

Boa tarde

Pessoal,

Tenho uma consulta de uma determinada tabela que possui um campo que contém uma data (o campo contém data mas seu tipo de dados é texto) e ele está gravado da seguinte forma:
Data_Evento - 31032012 (dd/mm/aaaa)

Fiz uma consulta onde criei um campo chamado Data_Lancamento (diretamente na consulta - não existe na tabela) que ficou assim:

Data_Lancamento: Meio([tb_lancamentos.Data_Evento];1;2) & "/" & Meio([tb_lancamentos.Data_Evento];3;2) & "/" & Meio([tb_lancamentos.Data_Evento];5;4)

O resultado da consulta retorna exatamente o que preciso, ou seja, a data com a máscara, da forma correta que fica 31/03/2012.

Minha dúvida é, existe alguma forma de gravar o valor do campo Data_Lancamento (que não existe na tabela, foi criado na consulta) em um determinado campo (tipo data realmente) na tabela de lançamentos ou preciso criar uma tabela temporária para isto.....

Obrigado,

Att. Vinicius

Boas vinicius.. se consegue isto na consulta, não há necessidade de gravar na tabela posto que a consulta é nada mais que uma representação gráfica da tabela e podes utiliza-la na origem do registro de forms ou relatorios.

Porem se caso desejar mesmo podes utilizar uma instrução Update para gravar na tabela em um registro pre-existente

Para transformar uma String em uma variável do tipo data, utilize o CDate.

Cumprimentos.

Bom dia Piloto,

Obrigado, vou fazer os devidos testes e retorno a este.......

Att. Vinicius

Bom dia,

Tentei usar o Cdate mas o retorno na consulta para o campo que estou tentando converter é #Erro. Tentei usá-lo da seguinte forma: ConvData: CData(Data_Evento) e o valor deste campo neste momento, sem convertê-lo é 03012012.

Tem alguma dica de onde posso estar errando?

Att. Vinicius

Tente:

Dim ConvData as Date
ConvData: CData(Me.Data_Evento)

Cumprimentos.

Piloto,

Muito obrigado,

Resolvido.

O Fórum agradece o Retorno.