Preciso criar um campo que não seja decimal

Boa tarde,

será que alguem pode me ajudar? tenho de criar um campo em uma tabela existente, mas que o resultado não seja decimal

CurrentDb.Execute ("ALTER TABLE DENGON ADD COLUMN DIG Single;")

mas a saida é decimal, não consigo ver o que fiz de errado, segue um pedaço da instrução do botão

MsgBox "Importando seu banco Este procedimento levará alguns instantes... Por favor aguarde !!!!!!!", vbInformation, "Importando DENGON"

CurrentDb.Execute ("ALTER TABLE DENGON ADD COLUMN DIG Single;")
CurrentDb.Execute ("ALTER TABLE DENGON ADD COLUMN ENC Single;")
CurrentDb.Execute ("ALTER TABLE DENGON ADD COLUMN INV Single;")

CurrentDb.Execute "UPDATE DENGON SET DIG = [DT_DIGITA]-[DT_NOTIFIC];"


CurrentDb.Execute "UPDATE DENGON SET ENC = [DT_ENCERRA]-[DT_NOTIFIC];"
CurrentDb.Execute "UPDATE DENGON SET ENC = 999999 WHERE ENC <= -1;"

CurrentDb.Execute "UPDATE DENGON SET INV = [DT_INVEST]-[DT_NOTIFIC];"
CurrentDb.Execute "UPDATE DENGON SET INV = 999999 WHERE INV <= -1;"

Olá monicastro,

Tente assim em suas sintaxes SQL:
CurrentDb.Execute "UPDATE DENGON SET DIG = CInt([DT_DIGITA]-[DT_NOTIFIC]);"

Fiz um botão que importa um arquivo dbf, cria 3 campos e joga o resultado de um determinado cálculo de datas neles, fiz uma função para que ele caso negativo o numero negativo vire 999999 mas não consigo fazer com que o resultado fique SEM as casas decimais.
o que eu fiz foi :



CurrentDb.Execute ("ALTER TABLE DENGON ADD COLUMN DIG Integer;")
CurrentDb.Execute ("ALTER TABLE DENGON ADD COLUMN ENC Currency;")
CurrentDb.Execute ("ALTER TABLE DENGON ADD COLUMN INV Long;")

CurrentDb.Execute "UPDATE DENGON SET DIG = Fix[DT_DIGITA]-[DT_NOTIFIC]);"


CurrentDb.Execute "UPDATE DENGON SET ENC = Fix[DT_ENCERRA]-[DT_NOTIFIC];"
CurrentDb.Execute "UPDATE DENGON SET ENC = 999999 WHERE ENC <= -1;"

CurrentDb.Execute "UPDATE DENGON SET INV = Fix[DT_INVEST]-[DT_NOTIFIC];"
CurrentDb.Execute "UPDATE DENGON SET INV = 999999 WHERE INV <= -1;"

Tentei também como você falou, CurrentDb.Execute "UPDATE DENGON SET DIG = CInt([DT_DIGITA]-[DT_NOTIFIC]);"

Mas quando abro o dbf em excel só para ver porque não dava certo quando eu usava o dbf e ví que independente do que eu faça tenho nesses 3 campos 5 casas decimais.
Alguma outra sugestão??

Olá Monica,

Acredito que o problema esteja no formato do arquivo. Tente convertê-lo para um formato apropriado para importação, como arquivo do tipo (.txt) antes de trabalhar o seu código no Access.