MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

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

    Compartilhe

    fortulino
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  fortulino em Qui 08 Jan 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...

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Qui 08 Jan 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

    fortulino
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  fortulino em Qui 08 Jan 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.

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Qui 08 Jan 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

    fortulino
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  fortulino em Qui 08 Jan 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

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Qui 08 Jan 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

    fortulino
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  fortulino em Sex 09 Jan 2015, 16:23

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

    att
    Anexos
    erro.jpg
    Você não tem permissão para fazer download dos arquivos anexados.
    (46 Kb) Baixado 14 vez(es)

    fortulino
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  fortulino em Sex 09 Jan 2015, 16:47

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

    muito obrigado..


    att

      Data/hora atual: Sab 03 Dez 2016, 04:34