MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4203
    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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4203
    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: Sex 28 Jul 2017, 11:44