MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Trabalhando Dados de Tabela Access

    avatar
    Belobo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 12/07/2014

    [Resolvido]Trabalhando Dados de Tabela Access Empty [Resolvido]Trabalhando Dados de Tabela Access

    Mensagem  Belobo em 24/7/2020, 08:27

    Amigos bom dia
    Venho trabalhando uma serie de Replicações que inicialmente parecem iguais. O método pode ser igual , mas o resultado final não tem nada a ver com assuntos já abordados por mim anteriormente.
    Tenho uma tabela base chamada " Prod "
    Gostaria de fazer uma replicação de dados conforme na imagem colocada abaixo
    A ideia é transforma uma linha de produto em 5 linhas deste mesmo produto só que adicionando o tamanho da peca
    Veja a imagem para entender melhor e poderem me ajudar numa solução
    So fazendo um resumo a linha inicial trás a qtde do produto total
    Meu desejo é abrir a grade conforme exemplo na imagem
    Aguardo um retorno de algum expert do fórum
    no exemplo o total é de 7 pecas
    a ideia é abrir por P com 1 peca ,  M com 2 pecas,  G com 2 pecas,  GG com 1 peca e  XGG com 1 peca.
    Anexos
    [Resolvido]Trabalhando Dados de Tabela Access AttachmentForum.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (87 Kb) Baixado 8 vez(es)
    Finformática
    Finformática
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 591
    Registrado : 23/03/2010

    [Resolvido]Trabalhando Dados de Tabela Access Empty Re: [Resolvido]Trabalhando Dados de Tabela Access

    Mensagem  Finformática em 24/7/2020, 15:32

    A quantidade será sempre 7?

    avatar
    Belobo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 12/07/2014

    [Resolvido]Trabalhando Dados de Tabela Access Empty Re: [Resolvido]Trabalhando Dados de Tabela Access

    Mensagem  Belobo em 24/7/2020, 15:52

    Nesse exemplo sim
    Mas gostaria se for possível ter algo maleável para outros tipos de grades de produto

    Por exemplo grade de calça vai do 34 até 54 daí se puder ter flexibilidade pra alterar será muito bom .
    Se puder aqui agradeço
    Finformática
    Finformática
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 591
    Registrado : 23/03/2010

    [Resolvido]Trabalhando Dados de Tabela Access Empty Re: [Resolvido]Trabalhando Dados de Tabela Access

    Mensagem  Finformática em 24/7/2020, 16:12

    Caro Amigo,

    Explique melhor a mensagem anterior.
    Você está criando um botão para cada opção dessas?

    Então crie mais um botão e cole o código abaixo:

    MsgBox "Vamos apagar conteúdo da tabela TbEstoqueSeparado e atualizar..."

    Application.DoCmd.SetWarnings False
    Application.DoCmd.RunSQL "DELETE * FROM TbEstoqueSeparado"
    Application.DoCmd.SetWarnings True

    MsgBox "Conteúdo apagado com sucesso..."

    MsgBox "Vamos atualizar tabela..."

    Dim db As Database
    Dim rs1 As DAO.Recordset
    Dim rs2 As DAO.Recordset
    Set db = CurrentDb()
    Dim ContQtd As Integer
    Dim i As Integer
    Set rs1 = db.OpenRecordset("SELECT * FROM [TbEstoque]")
    Set rs2 = db.OpenRecordset("SELECT * FROM [TbEstoqueSeparado]")

    rs1.MoveFirst

    Do While Not rs1.EOF


    '----------------------- 1 P ----------------------------------
    rs2.AddNew
    rs2![Grupo] = rs1![Grupo]
    rs2![Desc] = rs1![Desc] & " - P"
    rs2![qcom] = 1
    rs2![Familia] = rs1![Familia]
    rs2![Cor] = rs1![Cor]
    rs2![NomeCor] = rs1![NomeCor]
    rs2![Tamanho] = rs1![Tamanho]
    rs2![RefFornecedor] = rs1![RefFornecedor]
    rs2![RefFornecedorCor] = rs1![RefFornecedorCor]
    rs2![Genero] = rs1![Genero]
    rs2![VuCom] = rs1![VuCom]
    rs2![PV] = rs1![PV]
    rs2![Cean] = rs1![Cean]
    rs2![Ncm] = rs1![Ncm]
    rs2![Utrib] = rs1![Utrib]
    rs2.Update
    rs2.Requery

    '----------------------- 1 GG ----------------------------------

    rs2.AddNew
    rs2![Grupo] = rs1![Grupo]
    rs2![Desc] = rs1![Desc] & " - GG"
    rs2![qcom] = 1
    rs2![Familia] = rs1![Familia]
    rs2![Cor] = rs1![Cor]
    rs2![NomeCor] = rs1![NomeCor]
    rs2![Tamanho] = rs1![Tamanho]
    rs2![RefFornecedor] = rs1![RefFornecedor]
    rs2![RefFornecedorCor] = rs1![RefFornecedorCor]
    rs2![Genero] = rs1![Genero]
    rs2![VuCom] = rs1![VuCom]
    rs2![PV] = rs1![PV]
    rs2![Cean] = rs1![Cean]
    rs2![Ncm] = rs1![Ncm]
    rs2![Utrib] = rs1![Utrib]
    rs2.Update
    rs2.Requery

    '----------------------- 1 XGG ----------------------------------

    rs2.AddNew
    rs2![Grupo] = rs1![Grupo]
    rs2![Desc] = rs1![Desc] & " - XGG"
    rs2![qcom] = 1
    rs2![Familia] = rs1![Familia]
    rs2![Cor] = rs1![Cor]
    rs2![NomeCor] = rs1![NomeCor]
    rs2![Tamanho] = rs1![Tamanho]
    rs2![RefFornecedor] = rs1![RefFornecedor]
    rs2![RefFornecedorCor] = rs1![RefFornecedorCor]
    rs2![Genero] = rs1![Genero]
    rs2![VuCom] = rs1![VuCom]
    rs2![PV] = rs1![PV]
    rs2![Cean] = rs1![Cean]
    rs2![Ncm] = rs1![Ncm]
    rs2![Utrib] = rs1![Utrib]
    rs2.Update
    rs2.Requery

    '----------------------- 2 G ----------------------------------

    rs2.AddNew
    rs2![Grupo] = rs1![Grupo]
    rs2![Desc] = rs1![Desc] & " - G"
    rs2![qcom] = 2
    rs2![Familia] = rs1![Familia]
    rs2![Cor] = rs1![Cor]
    rs2![NomeCor] = rs1![NomeCor]
    rs2![Tamanho] = rs1![Tamanho]
    rs2![RefFornecedor] = rs1![RefFornecedor]
    rs2![RefFornecedorCor] = rs1![RefFornecedorCor]
    rs2![Genero] = rs1![Genero]
    rs2![VuCom] = rs1![VuCom]
    rs2![PV] = rs1![PV]
    rs2![Cean] = rs1![Cean]
    rs2![Ncm] = rs1![Ncm]
    rs2![Utrib] = rs1![Utrib]
    rs2.Update
    rs2.Requery

    '----------------------- 2 M ----------------------------------

    rs2.AddNew
    rs2![Grupo] = rs1![Grupo]
    rs2![Desc] = rs1![Desc] & " - M"
    rs2![qcom] = 2
    rs2![Familia] = rs1![Familia]
    rs2![Cor] = rs1![Cor]
    rs2![NomeCor] = rs1![NomeCor]
    rs2![Tamanho] = rs1![Tamanho]
    rs2![RefFornecedor] = rs1![RefFornecedor]
    rs2![RefFornecedorCor] = rs1![RefFornecedorCor]
    rs2![Genero] = rs1![Genero]
    rs2![VuCom] = rs1![VuCom]
    rs2![PV] = rs1![PV]
    rs2![Cean] = rs1![Cean]
    rs2![Ncm] = rs1![Ncm]
    rs2![Utrib] = rs1![Utrib]

    rs2.Update
    rs2.Requery
    rs1.MoveNext
    Loop

    rs1.Close
    Set rs1 = Nothing
    rs2.Close
    Set rs2 = Nothing
    db.Close
    Set db = Nothing
    MsgBox "Tabela atualizada com registros separados com sucesso..."


    Veja se resolve esse problema atual.

    Abraços




    avatar
    Belobo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 12/07/2014

    [Resolvido]Trabalhando Dados de Tabela Access Empty Re: [Resolvido]Trabalhando Dados de Tabela Access

    Mensagem  Belobo em 24/7/2020, 18:36

    Maravilha
    Pelo que olhei rapidamente
    Vai resolver
    Agradeço sua habitual atenção
    Eu não sendo programador estou aprendendo muito contigo
    Pelo que vi seguindo esse ensino posso alterar pra qualquer tipo de qtde e tamanhos
    Mas vou testar e te responder em breve !!
    Finformática
    Finformática
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 591
    Registrado : 23/03/2010

    [Resolvido]Trabalhando Dados de Tabela Access Empty Re: [Resolvido]Trabalhando Dados de Tabela Access

    Mensagem  Finformática em 7/8/2020, 11:18

    Caro Amigo,

    Se já concluído seu problema coloque o tópico como resolvido.

    Abraços

    avatar
    Belobo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 12/07/2014

    [Resolvido]Trabalhando Dados de Tabela Access Empty Re: [Resolvido]Trabalhando Dados de Tabela Access

    Mensagem  Belobo em 7/8/2020, 13:28

    Bom dia amigo
    Na verdade vou encerrar o assunto hoje mesmo
    Terminei os testes e ficou muito bom
    Obrigado mesmo !!!!!

      Data/hora atual: 15/8/2020, 05:27