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]aprendendo a trabalhar com a função loop

    avatar
    fortulino
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 07/07/2012

    [Resolvido]aprendendo a trabalhar com a função loop Empty [Resolvido]aprendendo a trabalhar com a função loop

    Mensagem  fortulino 8/1/2015, 10:54

    oi..
    tenho uma tabela com a descrição tabref com os seguintes campos..

    data ref codigo qtd
    08/01/2015 1250 ml350 3
    08/01/2015 1450 xl840 1
    08/01/2015 1230 tt240 2

    tenho uma tabela temporaria para gerar etiquetas....
    como montar uma função em loop´para gerar a tebela temporaria nesta maneira...

    data ref codigo qtd
    08/01/2015 1250 ml350 1
    08/01/2015 1250 ml350 1
    08/01/2015 1250 ml350 1
    08/01/2015 1450 xl840 1
    08/01/2015 1230 tt240 1
    08/01/2015 1230 tt240 1

    agradeço desde já a colaboração de todos...
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]aprendendo a trabalhar com a função loop Empty Re: [Resolvido]aprendendo a trabalhar com a função loop

    Mensagem  Alvaro Teixeira 8/1/2015, 11:04

    Olá, para ser mais fácil para ajudar, será melhor postar uma base de dados com as duas tabelas e com os dados exemplificados da tabela para decompor.
    Abraço
    avatar
    fortulino
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 07/07/2012

    [Resolvido]aprendendo a trabalhar com a função loop Empty Re: [Resolvido]aprendendo a trabalhar com a função loop

    Mensagem  fortulino 8/1/2015, 11:25

    mas a tabela denominada tabref é que comtem as especificações ... como data ref codigo qtd.. com seus registro
    de quantidade somados, a outra tabela é temporaria é vazia... ela é preenchida quando fizer a função loop porem com os dados unitarios,
    para poder gerar as etiquetas em formulario continuo..att.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]aprendendo a trabalhar com a função loop Empty Re: [Resolvido]aprendendo a trabalhar com a função loop

    Mensagem  Alvaro Teixeira 8/1/2015, 11:30

    Os dados na tabela tabref estão assim:

    data ref codigo qtd
    08/01/2015 1250 ml350 3
    08/01/2015 1450 xl840 1
    08/01/2015 1230 tt240 2
    avatar
    fortulino
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 07/07/2012

    [Resolvido]aprendendo a trabalhar com a função loop Empty Re: [Resolvido]aprendendo a trabalhar com a função loop

    Mensagem  fortulino 8/1/2015, 12:00


    a tabela tem estes dados.. com as qtd somadas.. na temporaria teria q aparecer elas unitarias..entendeu..


    data                   ref            codigo              qtd

    08/01/2015        1250            ml350               3
    08/01/2015        1450            xl840                1
    08/01/2015        1230            tt240                2
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]aprendendo a trabalhar com a função loop Empty Re: [Resolvido]aprendendo a trabalhar com a função loop

    Mensagem  Alvaro Teixeira 8/1/2015, 16:56

    Olá, experimente o código abaixo.

    Código:
    Dim db As Database, RS As Recordset
    Dim strSQL As String, X As Integer
       
    Set db = CurrentDb
    strSQL = "SELECT * From tabref"
    Set RS = db.OpenRecordset(strSQL)

          DoCmd.RunSQL "Delete * from tabtmp"  ' Limpar

          With RS
              Do While Not .EOF
                For X = 1 To RS.Fields(3) 'campo quantidade
                    DoCmd.RunSQL "INSERT INTO tabtmp (data, ref, codigo, qtd) SELECT #" & RS.Fields(0) & "#, " & RS.Fields(1) & ", '" & RS.Fields(2) & "', 1"
                Next
                .MoveNext
              Loop
          End With
       
    RS.Close
    db.Close

    Não se esqueça de ter a tabela tabtmp já criada com os mesmos campos.
    Neste caso faz uma leitura à tabela tabref, em que vai correr todos os registos, verifica a quantidade e usei o FOR com uma consulta adicionar.
    Bons estudos
    Abraço
    avatar
    fortulino
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 07/07/2012

    [Resolvido]aprendendo a trabalhar com a função loop Empty Re: [Resolvido]aprendendo a trabalhar com a função loop

    Mensagem  fortulino 9/1/2015, 16:23

    oi deu este erro...
    esta na imagem em anexo

    att
    avatar
    fortulino
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 07/07/2012

    [Resolvido]aprendendo a trabalhar com a função loop Empty Re: [Resolvido]aprendendo a trabalhar com a função loop

    Mensagem  fortulino 9/1/2015, 16:47

    blz.. consegui achar o erro...
    deu certo.

    muito obrigado..


    att

    Conteúdo patrocinado


    [Resolvido]aprendendo a trabalhar com a função loop Empty Re: [Resolvido]aprendendo a trabalhar com a função loop

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 03:18