MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Inserir dado do Excel no Access

    Compartilhe

    MichaelBouix
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 25/09/2015

    Inserir dado do Excel no Access

    Mensagem  MichaelBouix em Ter 29 Set 2015, 15:27

    Gente eu tenho esse código funcionando aqui:

    Código:
    Private Sub Comando2150_Click()
    'DoCmd.Hourglass True 'Ampulheta

    Dim strSQL As String, strSQL1 As String


    DoCmd.TransferSpreadsheet transfertype:=acImport, _
    tablename:="tblFuncionários", _
    FileName:="C:\Users\michael.bouix\Desktop\Planilhas\Funcionários\BASE FUNCIONARIOS ATUALIZADA.xlsx", Hasfieldnames:=True, _
    Range:="", SpreadsheetType:=5
    DoCmd.SetWarnings False
    strSQL = "UPDATE Funcionários AS t, (SELECT * FROM tblFuncionários) AS h Set t.GESTOR = h.GESTOR,t.NOME = h.NOME,t.FUNÇÃO = h.FUNÇÃO,t.ENTRADA = h.ENTRADA,t.SAÍDA = h.SAÍDA,t.CARGO = h.CARGO,t.FÁBRICA = h.FÁBRICA,t.SETOR = h.SETOR,t.BP = h.BP,t.TURNO = h.TURNO,t.STATUS = h.STATUS,t.N_GUERRA = h.N_GUERRA WHERE h.ID = t.ID"
    strSQL1 = "DELETE * from tblFuncionários"
    DoCmd.RunSQL (strSQL)
    DoCmd.RunSQL (strSQL1)
    DoCmd.SetWarnings True

    'DoCmd.Hourglass False
    End Sub

    O que acontece , esse código ele atualiza os dados já existentes na minha tabela do access pelo "ID"
    Como eu faria para se caso o "ID" não for encontrado , inserir as informações na tabela?

    ATT Michael

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3195
    Registrado : 15/03/2013

    Re: Inserir dado do Excel no Access

    Mensagem  ahteixeira em Qua 30 Set 2015, 08:23

    Olá Michael, Veja se tópico abaixo ajuda:
    [Você precisa estar registrado e conectado para ver este link.]
    Abraço

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3195
    Registrado : 15/03/2013

    Re: Inserir dado do Excel no Access

    Mensagem  ahteixeira em Ter 21 Jun 2016, 08:34

    Olá Michael Pascal, como ficou a situação?
    Os utilizadors do fórum merecem e agradecem o retorno.
    Abraço

      Data/hora atual: Sab 03 Dez 2016, 04:31