ACCESS arredondando o valor double na hora do INSERT. Alguém ajuda?

Boa noite

tenho um campo Número Grande no meu Access e preciso executar um SQL para inserir os registros importados.  O Access está arredondando na hora da inclusão.
Já concatenei na hora de montar o SQL e já utilizei o CreateQueryDef e passei por parâmetro... sempre o mesmo resultado.  

Método 1
                       strSQL = "INSERT INTO ANT ( Latitude, Longitude ) " _
                           & " VALUES ( " & coordenadas(1) & " ,"  & coordenadas(2) & " ) "
                           
                       DoCmd.RunSQL strSQL

Método 2
                       strSQL = "INSERT INTO ANT ( Latitude, Longitude ) " _
                           & " VALUES ( ?, ?) "
                           

                       Set qdf = db.CreateQueryDef("", strSQL)
                       qdf.Parameters(0) = CDbl(coordenadas(1))
                       qdf.Parameters(1) = CDbl(coordenadas(2))
   
                       qdf.Execute dbFailOnError

Seja qual for a forma, sempre perde as decimais.

Alguém dá um help... sou novo no VBA ACCESS

Olá Augusto,

Seja bem-vindo ao fórum.

Os dados de coordenadas são tipos de dados espaciais, contemplados em outros banco de dados (SQL Server, MySQL e etc.), e mesmo que voce defina como Numérico e tamanho como Decimal, provavelmente não vai atender suas necessidades:




No exemplo abaixo, a latitude da Muralha da China é 40.431940, mas o ZERO a direita é ignorado:



Neste caso, o Access não vai armazenar o PONTO, mas a VIRGULA.

Imagino que esses dados não serão utilizado para cálculos, e minha sugestão é alterar o tipo de campo para Texto mesmo, e ficariam desta forma:




Segue instrução para gravar os dados como Texto na tabela:

Código:



    strSQL = "INSERT INTO ANT "
    strSQL = strSQL & " ( "
    strSQL = strSQL & " Latitude, "
    strSQL = strSQL & " Longitude "
    strSQL = strSQL & " ) "
    strSQL = strSQL & " VALUES "
    strSQL = strSQL & " ( "
    strSQL = strSQL & " '" & Trim(coordenadas(1)) & "',"
    strSQL = strSQL & " '" & Trim(coordenadas(2)) & "' "
    strSQL = strSQL & " ) "
                              
    CurrentDb.Execute strSQL



Se possivel, compartilhe uma cópia do seu bd para análise também.

É isso.

Espero ter ajudado.

Att,

Alexandre Fim