Atualizar tabela do access com dados doe xcel

Olá a todos,
A questão é a seguinte:
Exporto os dados de uma tabela access para excel, onde os mesmos são alterados pelo pessoal de campo.
Quando retornam, preciso atualizar os dados da tabela com base na planilha do excel alterada.
Fiz a importação para uma tabela temporária no access, mas não consigo fazer a atualização.
Por favor, qual o caminho mais rápido para esta ação?É possivel fazer isso com instrução sql, sem fazer a importação temporária?

Desde já agradeço

MLima

Boas
Num formulária cria um botão de comando e cola o seguinte:
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * From Sua Tabela" ' Sua Tabela:é o nome da tabela da sua base de dados
Dim strPathFile As String, strFile As String, strPath As String
Dim strTable As String
Dim blnHasFieldNames As Boolean
blnHasFieldNames = True
strPath = CurrentProject.path & "\"
strTable = "SuaTabela" ' Sua Tabela:é o nome da tabela da sua base de dados
strFile = dir(strPath & "*.xls")
Do While Len(strFile) > 0
strPathFile = strPath & strFile
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
strTable, strPathFile, blnHasFieldNames
strFile = dir()
Loop
MsgBox "Importação concluída.", vbInformation, ""
Pina

Olá Pina,
Obrigado por sua resposta.
Na verdade já faço a importação da tabela via vba.
A questão é, depois de importada atualizar os dados da tabela original.
Talvez com uma instrução sql, ao invés de importar poderia atualizar minha tabela automaticamente.

Grande abraço, e no aguardo.

Boas
Quando exporta para a sua tabela já tem dados nela?
Quer apagar os dados que já tem na sua tabela antes de exportar?
Pina

Boas,
Exporto com dados, pois apenas um campo será modificado pelo pessoal de operações.
É este campo que preciso atualizar na tabela, sem perder o restante do registro.


Abraço.

Boas
O melhor é expôr um exemplo da sua base de dados e do excel que exporta para se ver
Pina

Boas
Exportar é para o excel?
Importar é para o Access?
Pina

Olá,
Exatamente.
Exporto para Excel e Importo para o Access(2010)


Grato.

Boas
Exportar está tudo bem?
Importar é só um campo para uma tabela?
Pina

Olá,
Pina, exportar está tudo ok.
Importar tambem está ok.
Então depois de importado, tenho a tabela original e a tabela temporaria importada.
Preciso atualizar os dados da tabela original com base nos dados da tabela temporaria.

Estou tentando enviar um arquivo .rar, mas não estou conseguindo. Acho que tem que ser .zip.
Vou providenciar e posta em alguns minutos.

Abraços e obrigado pela paciencia e atenção.

MLima

Boas
pode enviar em 2003?
vou enviar um exemplo
Pina

Ok. Vou preparar e envio em minutos.

Aguardo o exemplo.

Abraços,
Mlima

Pina,
Segue os arquivos.
A planilha consegui salvar com xlx mas o banco não deu opção de salvar como 2003.

MLima

Boas

Boas,
Pina,
Em seu exemplo, há uma consulta "acrescentar", o que de fato acrescentara um novo registro na tabela principal, com base na temporaria.

Na verdade, não posso acrescentar registros a tabela. Apenas inserir dados nos registros já existentes.

Exemplo:

Tabela Principal:


Cliente / Produto / Pago?
João Alface não

Tabela temporaria
Cliente / Produto / Pago?
João Alface sim


Neste exemplo, preciso fazer com que na tabela principal, o campo PAGO? exiba "sim", pois na tabela temporaria foi alterado para "sim".


Voce baixou meu arquivo?

Grato
MLima

Veio em 2010?
pode enviar em 2003?
Pina

Olá,
Não tenho o 2003 instalado e o 2010 não dá opção de salvar como .mdb


Grato,
MLima

Boas
vou ter que desligar o computador para ver em 2013 depois digo alguma coisa
Pina

Ok Pina.
No aguardo.


Grato,
MLima

Boas
Na sua consulta penso que os dados não estão bem
Veja agora se corre não tenho o 2010
Pina

Olá Pina,
Ainda não foi desta vez...

1º - Ao executar a consulta foi solicitado alguns parametros da tabela DetalheDoPedido, pois a mesma não constava do grid.
2º - Quando a inseri no grid, retornou "Tipos incompativeis"
3º - Não havia mencionado antes: É preciso ter como criterio, a igualdade dos campos "CodigoDetalhedoPedido",
das duas tabelas, para que um não pague pelo que o outro comeu, rsrsrsrs...

Grato,

MLima

Olá,
Ainda procurando uma solução para este tópico, tentei o seguinte, mas retornou um erro:
"Erro de sintaxe (Operador faltando) na expressão de consulta '1WHERE E TAL E TAL.....'

Private Sub Comando9_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim dbs As DAO.Database
Dim rst As DAO.Recordset, rst1 As DAO.Recordset
Dim cdetalhe As Integer, intForma As Integer
Dim strSql As String

Set dbs = CurrentDb()
'Set rst = dbs.OpenRecordset("DetalheDoPedido")
Set rst1 = dbs.OpenRecordset("InsertPagamentos")

With rst1
Do While Not .EOF

Agradeço muito a quem puder ajudar

Abraços,
MLima

'Variaveis para critério
cdetalhe = !iCodigoDetalheDoPedido
intForma = !iForma

strSql = "UPDATE DetalheDoPedido SET DetalheDoPedido.Pago = -1, DetalheDoPedido.Forma =" & intForma & "WHERE(DetalheDoPedido.CodigoDetalheDoPedido) = " & cdetalhe
DoCmd.RunSQL strSql, True

.MoveNext
Loop
End With

rst1.Close

End Sub