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

    [Resolvido]Unir 2 tabelas de vendas

    Compartilhe

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 252
    Registrado : 05/03/2017

    [Resolvido]Unir 2 tabelas de vendas

    Mensagem  fazerbem em Ter Maio 29, 2018 3:50 pm

    Boa noite, meu sistema de gerenciamento foi todo baseado em excel e vba. Porem mantive um bd montado numa planilha de nome vendas.
    Montei agora um sistema todo baseado em apenas Acess. Neste possuo uma Tabela de nome "tblVendas".

    Na planilha em excel na plan: Vendas Feitas, possuo la 1334 recibos de vendas , sendo 1 venda por linha. ( Empresa-Id Venda- COD Cliente- Cliente-Total da conpra - Forma de Pagamento- Cod Produto- Produto- valor- QNT- Total- etc.

    Eu preciso Mandar isso para o ACess, ate aqui tudo certo, porem minha Tabela em acess eu fiz os campos de "Forma de Pagamento","ClienteID", "Vendedor" com Assistente de Pesquisa.
    Quando eu mandar o BD antigo pra dentro desta Tabela em acess, , devido a mesma ter campos que foram feitos pelo assistente de pesquisa, os nomes dos clientes , Vendedor e Forma de Pagamento serao apagados, pois se referem a um número.

    Mediante a isso explicado, como farei para nao perder todo meu BD antigo ? Se fossem poucas vendas eu digitaria tudo, mas sao muitas vendas .

    Grato Andre

    PS: Fiz um Form chamado VendasFeitas com a fonte de registro usando a tabela VendasFeitas ja convertida em acess, fiz uma Macro abaixo que eu usaria para puxar apenas o item escolhido, mas nao estou conseguindo copiar o referido registro pra adentro da tblVendas, a macro copia somente o primeiro registro e o restante permanece em branco na TblVendas.

    Se algum puder ajudar eu agradeço.


    Código:
    Private Sub Comando1_Click()

    Dim bc As Database

    'Nessa Parte vc pode declarar com qualquer nome, geralmente eu uso o proprio nome da tabela que quero inserir as informaçãos, ou abrevio ela, tanto faz.

    Dim Tab2 As Recordset

    'Inicializa os Valores das Variaveis

    Set bc = CurrentDb()
    Set Tab2 = bc.OpenRecordset("tblVenda")

    'Cria Um novo Registro
    Tab2.Edit

    'No Novo Registro Insere Os Dados que vc Deseja

    Tab2!ClienteID = Me.txtCliente
    Tab2!formapag = Me.txtFormaPag
    Tab2!vendedor = Me.txtVendedor


    'Atualiza Tabela
    Tab2.Update

        DoCmd.GoToRecord , , acNext 'Vai para o próximo registro

    End Sub

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 252
    Registrado : 05/03/2017

    Re: [Resolvido]Unir 2 tabelas de vendas

    Mensagem  fazerbem em Ter Maio 29, 2018 3:56 pm

    outra duvida, enquanto nao acho a solucao a este problema , caso eu venha abastecendo esta nova tabela, achando a solucao aqui no forum, como farei para jogar as vendas antigas antes dessa novas ?
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: [Resolvido]Unir 2 tabelas de vendas

    Mensagem  FabioPaes em Qua Maio 30, 2018 8:16 am

    Amigo, terá que utilizar programação VBa para Importar esses Dados... Veja na Sala de repositórios que possuem vários Exemplo. Eu mesmo ja devo ter postado uns 3 Exemplo diferentes sobre como importar dados do Excel.
    Terá que Le a Planilha do Excel e desmembrar os dados nas suas tabelas...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 252
    Registrado : 05/03/2017

    Re: [Resolvido]Unir 2 tabelas de vendas

    Mensagem  fazerbem em Qua Maio 30, 2018 8:53 am

    vou testar e reponderei, grato
    Andre

    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 252
    Registrado : 05/03/2017

    Re: [Resolvido]Unir 2 tabelas de vendas

    Mensagem  fazerbem em Qua Maio 30, 2018 1:18 pm

    Consegui aqui fazer de outra forma, na tabela em excel antes de importar ao Acess associei o nome ao codigo do cliente, parceiro e Vendedor, dai deu certo.

    Grato

    Andre

      Data/hora atual: Sex Out 19, 2018 5:48 am