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

    avatar
    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 Empty [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
    [Resolvido]Repetir Linhas da Tabela no Relatório AttachmentEtiquetas.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (157 Kb) Baixado 10 vez(es)


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

    Respeito às Regras 100%

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

    [Resolvido]Repetir Linhas da Tabela no Relatório Empty 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 ( Como Pesquisar )
    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!
    avatar
    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 Empty 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...

    https://www.maximoaccess.com/t2011-resolvidoimprimir-varias-vezes-o-mesmo-registro
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Repetir Linhas da Tabela no Relatório Empty 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!
    avatar
    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 Empty 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?
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Repetir Linhas da Tabela no Relatório Empty 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!
    avatar
    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 Empty 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
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Veja como Fazer



    .................................................................................
    _____________________________________________________________________
    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
    alozs
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Repetir Linhas da Tabela no Relatório Empty 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: 8/8/2020, 12:07