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

    [Resolvido]Repetir Linhas da Tabela no Relatório

    avatar
    ipfagund
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Repetir Linhas da Tabela no Relatório Empty [Resolvido]Repetir Linhas da Tabela no Relatório

    Mensagem  ipfagund Dom 05 Mar 2017, 10:25 am

    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 Seg 06 Mar 2017, 6:46 pm, editado 2 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FabioPaes Dom 05 Mar 2017, 10:56 am

    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 : Respeito às Regras 100%

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

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

    Mensagem  ipfagund Dom 05 Mar 2017, 11:00 am

    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 : Respeito às Regras 100%

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

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

    Mensagem  FabioPaes Dom 05 Mar 2017, 11:31 am

    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 : Respeito às Regras 100%

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

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

    Mensagem  ipfagund Dom 05 Mar 2017, 6:27 pm

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

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FabioPaes Dom 05 Mar 2017, 7:33 pm

    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 : Respeito às Regras 100%

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

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

    Mensagem  ipfagund Dom 05 Mar 2017, 11:18 pm

    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 : Respeito às Regras 100%

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

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

    Mensagem  FabioPaes Seg 06 Mar 2017, 7:34 am

    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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 290
    Registrado : 06/02/2018

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

    Mensagem  alozs Seg 20 Ago 2018, 11:33 pm

    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: Qui 22 Abr 2021, 6:40 pm