MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

2 participantes

    [Resolvido]Atualizar tabela com dados Importados do Excel sem duplicar.

    avatar
    Unicopias
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 6
    Registrado : 14/12/2012

    [Resolvido]Atualizar tabela com dados Importados do Excel sem duplicar. Empty Atualizar tabela com dados Importados do Excel sem duplicar.

    Mensagem  Unicopias 14/12/2012, 18:37

    Por favor, preciso de ajuda!

    Tenho uma tabela com várias informações dentre elas preço de compra e preço de venda. Eu exporto essa tabela para o Excel, vou fazer os cálculos para ter o preço de venda.
    Como faço para atualizar, importar, esses dados para o access sem duplicar?

    Anexos
    [Resolvido]Atualizar tabela com dados Importados do Excel sem duplicar. AttachmentLicitação1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (91 Kb) Baixado 11 vez(es)
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4817
    Registrado : 20/04/2011

    [Resolvido]Atualizar tabela com dados Importados do Excel sem duplicar. Empty Re: [Resolvido]Atualizar tabela com dados Importados do Excel sem duplicar.

    Mensagem  Silvio 15/12/2012, 12:55

    Olá, bom dia a ti !


    Seja bem vindo ao nosso fórum !

    Para que exportar para o Excel se você pode ter esse campo calculado no próprio Access ?

    Sem ver o teu projeto diria eu que, na tua tabela produto, você deva ter um campo chamado "custo" e outro "venda", para cada produto que a tua empresa oferece para teus clientes certo ? Cria um formulário com todos esse campos, depois insira uma caixa de texto desacoplada, renomeia ela para "margemlucro".

    Insira a seguinte fórmula dentro dessa caixa de texto chamada venda: =([custo]*[margemlucro]/100].

    Esse é um caminho. O outro seria esse que esta abaixo, lembrando a ti, que terás que adaptar o mesmo para o tem projeto.

    lembrando, terás que ter uma tabela temporária onde ficara os dados importados ( tbltemporaria), um arquivo em excel ( LivroPreco), criar uma pasta na raiz ( veja a sintaxe em FileName )


    Private Sub BT_IMPORTA_Click()
    'By Jpaulo maximoacess.maisforum.com.br
    'DoCmd.Hourglass True 'Ampulheta

    Dim strSQL As String, strSQL1 As String


    DoCmd.TransferSpreadsheet transfertype:=acImport, _
    tablename:="tblTemporaria", _
    FileName:="C:\Jantin\Importar\LivroPreco.xlsx", Hasfieldnames:=True, _
    Range:="", SpreadsheetType:=5
    ' alterar o livro preços para o nome correto quando for fazer a importacao das listas de preços,pode ser colocada tambem em uma pasta.
    ' na planilha do excel, tem que ter os mesmos campos que tem na tabela produtos, quando for fazer a importação.
    DoCmd.SetWarnings False
    strSQL = "UPDATE Produtos AS t, (SELECT * FROM tblTemporaria) AS h Set t.CustoPadrão = h.CustoPadrão WHERE h.Nomedoproduto=t.Nomedoproduto"
    strSQL1 = "DELETE * from tblTemporaria"
    DoCmd.RunSQL (strSQL)
    DoCmd.RunSQL (strSQL1)
    DoCmd.SetWarnings True

    'Call Grava_Excel("C:\LivroPreco.xlsx")
    'DoCmd.Hourglass False
    End Sub


    Bons estudo para ti...e bom fim de semana.

    Abraços.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Unicopias
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 6
    Registrado : 14/12/2012

    [Resolvido]Atualizar tabela com dados Importados do Excel sem duplicar. Empty Re: [Resolvido]Atualizar tabela com dados Importados do Excel sem duplicar.

    Mensagem  Unicopias 17/12/2012, 18:41

    Oi Silvio, tudo bem?
    Muito obrigada pela sua ajuda.
    Porém, como comentei anteriormente, sou nova no uso do access, e estou me batendo um pouco.

    Tentei fazer aquela ação no formulário, mas ele não calcula nada, aparece um erro de #Nome?.
    Desculpe incomodar, mas o que estou fazendo de errado?
    Segue o anexo atualizado.
    Anexos
    [Resolvido]Atualizar tabela com dados Importados do Excel sem duplicar. AttachmentLicitação1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (100 Kb) Baixado 16 vez(es)
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4817
    Registrado : 20/04/2011

    [Resolvido]Atualizar tabela com dados Importados do Excel sem duplicar. Empty Re: [Resolvido]Atualizar tabela com dados Importados do Excel sem duplicar.

    Mensagem  Silvio 17/12/2012, 19:31

    Boa tarde unicópias....


    Vamos aos fatos:

    a- em tabelas, não é uma boa pratica colocar os nomes dos campos com espaços e assentos:

    a1- Preço de compra unitario..errado ! Correto poderia ser: PCompraUnit
    a2- Número do empenho...errado ! Correto seria: NEmpenho.

    Ao dar um nome para uma tabela evite: Licitações1, troque por Licitacao

    Veja no anexo, que eu fiz algumas mudanças. Abra o mesmo em design e localize margem de lucro. Verás que tem um evento, veja abaixo o código.

    Private Sub Margem_de_Lucro_AfterUpdate()
    Me.PVendaUnit.Value = (PCompraUnit * MLucro) / 100 + PCompraUnit
    end sub


    Desse modo, terás sempre a margem de lucro já calculada para o preço de venda.

    Qualquer coisa, estamos por aqui.

    Abraços.






    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Unicopias
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 6
    Registrado : 14/12/2012

    [Resolvido]Atualizar tabela com dados Importados do Excel sem duplicar. Empty Re: [Resolvido]Atualizar tabela com dados Importados do Excel sem duplicar.

    Mensagem  Unicopias 17/12/2012, 19:52

    Silvio,
    Muitiiiissssimo obrigada!
    Estou me batendo um pouquinho mas já to conseguindo algumas coisinha!
    Valeu pela ajuda!
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4817
    Registrado : 20/04/2011

    [Resolvido]Atualizar tabela com dados Importados do Excel sem duplicar. Empty Re: [Resolvido]Atualizar tabela com dados Importados do Excel sem duplicar.

    Mensagem  Silvio 17/12/2012, 20:19

    Ok....


    Se precisar de algo, estamos por aqui.

    Se resolvido tua duvida, não esqueça de colocar o Resolvido para encerrar o tópico !

    Abraços.



    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Unicopias
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 6
    Registrado : 14/12/2012

    [Resolvido]Atualizar tabela com dados Importados do Excel sem duplicar. Empty Re: [Resolvido]Atualizar tabela com dados Importados do Excel sem duplicar.

    Mensagem  Unicopias 18/12/2012, 10:30

    Resolvido
    avatar
    Unicopias
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 6
    Registrado : 14/12/2012

    [Resolvido]Atualizar tabela com dados Importados do Excel sem duplicar. Empty Re: [Resolvido]Atualizar tabela com dados Importados do Excel sem duplicar.

    Mensagem  Unicopias 18/12/2012, 10:31

    Resolvido!

      Data/hora atual: 25/1/2022, 17:39