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]Repetir Linhas da Tabela no Relatório

    Compartilhe

    ipfagund
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 12/08/2010

    [Resolvido]Repetir Linhas da Tabela no Relatório

    Mensagem  ipfagund em 5/3/2017, 15:25

    Boa tarde a todos! Tenho um BD que faz a impressão de etiquetas da loja. Isso é feito através de uma única tabela, que é alimentada quando as mercadorias chegam. Nela, consta o código, o preço de compra, de venda e a qtd. Aí que está o problema. Quando faço a impressão das etiquetas, ela precisaria imprimir aquele mesmo item (linha) a quantidade de vezes indicada no campo "QTD".  E não achei maneira de resolver isso.
    Anexos
    Etiquetas.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (157 Kb) Baixado 9 vez(es)


    Última edição por ipfagund em 6/3/2017, 23:46, editado 2 vez(es)
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Repetir Linhas da Tabela no Relatório

    Mensagem  FabioPaes em 5/3/2017, 15:56

    Amigo, Existem alguns exemplos sobre sua duvida aqui no Fórum!

    Realize uma Pesquisa aqui no Fórum ( [Você precisa estar registrado e conectado para ver este link.] )
    ou Pesquise direto no Google: ( google.com.br/?#q=Etiqueta;Maximoaccess.com )



    .................................................................................
    _____________________________________________________________________
    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!

    ipfagund
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 12/08/2010

    Re: [Resolvido]Repetir Linhas da Tabela no Relatório

    Mensagem  ipfagund em 5/3/2017, 16:00

    Ja pesquisei inumeros exemplos, mas nenhum que atenda do jeito que eu pedi. O mais próximo que encontrei foi esse que vou colocar link abaixo, mas não se trata do mesmo problema, consequentemente a solução nao é a mesma...

    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Repetir Linhas da Tabela no Relatório

    Mensagem  FabioPaes em 5/3/2017, 16:31

    Amigo, você deu uma olhada nos exemplos que temos?
    Pois lembro bem de um que imprimir X vezes a etiqueta do produto y...

    Acredito esta na sala de repositórios. Basta ajustar a sua necessidade!


    .................................................................................
    _____________________________________________________________________
    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!

    ipfagund
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 12/08/2010

    Re: [Resolvido]Repetir Linhas da Tabela no Relatório

    Mensagem  ipfagund em 5/3/2017, 23:27

    Amigo, baixei mais de 10 exemplos e não consegui adaptar nenhum...
    Alguma ajuda?
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Repetir Linhas da Tabela no Relatório

    Mensagem  FabioPaes em 6/3/2017, 00:33

    Pois veja, 10min de pesquisa no link sugerido!

    Alterei para imprimir de acordo com o Estoque do produto!
    dropbox.com/s/st3itiv1lc7k50z/Etiquetas%20com%203Of9.rar

    Abra o Formulário, e clique na Impressora!


    Observe que:

    A Função esta no VB do próprio Relatório;
    Veja que a função é chamada no evento ao Abrir do Relatório, e la eu informo onde está a quantidade a ser impressa, que nesse exemplo é no campo estoque do Formulário.


    .................................................................................
    _____________________________________________________________________
    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!

    ipfagund
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 12/08/2010

    Re: [Resolvido]Repetir Linhas da Tabela no Relatório

    Mensagem  ipfagund em 6/3/2017, 04:18

    Agradeço a ajuda mas não era esse meu problema. Conforme eu já havia dito anteriormente, os exemplos do repositório abordavam sempre através de formulário. Precisava de algo mais dinâmico e rápido. Consegui resolver de outra forma, baseando o report da etiqueta numa tabela temporária, criada por uma função.
    Resolvido!

    Dim Conta As Integer
    DoCmd.SetWarnings False

    Dim Data_Print As Date
    Data_Print = InputBox("Qual Data de Compra deseja imprimir?", "Loja Calla")

    Sql_Limpa_Tbl = ""
    Sql_Limpa_Tbl = Sql_Limpa_Tbl & "DELETE Tbl_Etiquetas.* "
    Sql_Limpa_Tbl = Sql_Limpa_Tbl & "FROM Tbl_Etiquetas"
    DoCmd.RunSQL (Sql_Limpa_Tbl)

    Sql_Agrupa_Qtd = ""
    Sql_Agrupa_Qtd = Sql_Agrupa_Qtd & "SELECT Tbl_Master.Qtd "
    Sql_Agrupa_Qtd = Sql_Agrupa_Qtd & "FROM Tbl_Master "
    Sql_Agrupa_Qtd = Sql_Agrupa_Qtd & "WHERE (((Tbl_Master.Data_Compra) = #" & Format(Data_Print, "mm/dd/yy") & "#)) "
    Sql_Agrupa_Qtd = Sql_Agrupa_Qtd & "GROUP BY Tbl_Master.Qtd"

    Set Rs_Agrupa_Qtd = CurrentDb.OpenRecordset(Sql_Agrupa_Qtd)

    Conta = 1
    While Rs_Agrupa_Qtd.EOF = False

       While Conta <= Rs_Agrupa_Qtd!Qtd
           Sql_Insert = ""
           Sql_Insert = Sql_Insert & "INSERT INTO Tbl_Etiquetas ( Código, Descrição, Tamanho, Qtd, Valor_Venda, Data_Compra, Loja ) "
           Sql_Insert = Sql_Insert & "SELECT Tbl_Master.Código, Tbl_Master.Descrição, Tbl_Master.Tamanho, Tbl_Master.Qtd, Tbl_Master.Valor_Venda, Tbl_Master.Data_Compra, Tbl_Master.Loja "
           Sql_Insert = Sql_Insert & "FROM Tbl_Master "
           Sql_Insert = Sql_Insert & "WHERE (((Tbl_Master.Qtd)=" & Rs_Agrupa_Qtd!Qtd & ") AND ((Tbl_Master.Data_Compra)=#" & Format(Data_Print, "mm/dd/yy") & "#))"
           DoCmd.RunSQL (Sql_Insert)
           
           Conta = Conta + 1

       Wend

    Rs_Agrupa_Qtd.MoveNext
    Conta = 1
    Wend

    DoCmd.SetWarnings True
    DoCmd.OpenReport "Rpt_Etiquetas", acViewPreview
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Repetir Linhas da Tabela no Relatório

    Mensagem  FabioPaes em 6/3/2017, 12:34

    Se a duvida foi solucionada, por favor marque o tópico como resolvido:

    [Você precisa estar registrado e conectado para ver este link.]



    .................................................................................
    _____________________________________________________________________
    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!

    alozs
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 07/02/2018

    Re: [Resolvido]Repetir Linhas da Tabela no Relatório

    Mensagem  alozs em 21/8/2018, 04:33

    Olá pessoal, por favor me ajudem, segui a demonstração passo a passo porem o meu não vai, não sei oque está acontecendo que não imprime mais de 1 via de acordo com estoque, será que alguém pode me auxiliar e descobrir onde estou errando!

      Data/hora atual: 21/9/2018, 03:54