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]Gerar etiquetas para o produto e os sub produtos que o compoem

    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1049
    Registrado : 11/11/2009

    [Resolvido]Gerar etiquetas para o produto e os sub produtos que o compoem Empty [Resolvido]Gerar etiquetas para o produto e os sub produtos que o compoem

    Mensagem  scandinavo 8/4/2018, 13:39

    Tentei adaptar um gerador de etiquetas para o meu caso mas não deu certo.

    A situação é a seguinte
    tenho uma formula de ração e os ingredientes que a compõem a quantidade de etiquetas geradas esta certa mas
    ao gerar as etiquetas para cada ingrediente da formula repete o nome da ração.
    Tentei varias mudanças no layout mas não consegui resolver.

    Coloquei o exemplo com os dois geradores de etiqueta. original e o adaptado

    Se alguém tiver uma outra solução eu agradeço.


    Ou seja teria que mostrar o nome da caixa e o nomes dos produtos dentro da caixa.


    Obrigado

    Anexos
    [Resolvido]Gerar etiquetas para o produto e os sub produtos que o compoem AttachmentEtiquetas_II.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (54 Kb) Baixado 33 vez(es)
    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1049
    Registrado : 11/11/2009

    [Resolvido]Gerar etiquetas para o produto e os sub produtos que o compoem Empty Re: [Resolvido]Gerar etiquetas para o produto e os sub produtos que o compoem

    Mensagem  scandinavo 11/4/2018, 23:15

    Por mim mesmo.......
    avatar
    fcamara
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 143
    Registrado : 07/01/2016

    [Resolvido]Gerar etiquetas para o produto e os sub produtos que o compoem Empty Re: [Resolvido]Gerar etiquetas para o produto e os sub produtos que o compoem

    Mensagem  fcamara 14/10/2022, 14:35

    Bom dia

    O amigo poderia dizer qual foi a solução.
    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1049
    Registrado : 11/11/2009

    [Resolvido]Gerar etiquetas para o produto e os sub produtos que o compoem Empty Re: [Resolvido]Gerar etiquetas para o produto e os sub produtos que o compoem

    Mensagem  scandinavo 17/10/2022, 02:00

    Ola

    Preciso rever o projeto e te disponibilizo.

    fcamara gosta desta mensagem

    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1049
    Registrado : 11/11/2009

    [Resolvido]Gerar etiquetas para o produto e os sub produtos que o compoem Empty Re: [Resolvido]Gerar etiquetas para o produto e os sub produtos que o compoem

    Mensagem  scandinavo 17/10/2022, 22:27

    Veja ai


    https://www.dropbox.com/s/rh1w7pnukesnhbe/Etiqueta%20Formula%20e%20Produtos.accdb?dl=0



    o codigo esta comentado, caso tenha duvida mande mensagem
    avatar
    fcamara
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 143
    Registrado : 07/01/2016

    [Resolvido]Gerar etiquetas para o produto e os sub produtos que o compoem Empty Re: [Resolvido]Gerar etiquetas para o produto e os sub produtos que o compoem

    Mensagem  fcamara 18/10/2022, 11:43

    Bom dia
    vlw muito obrigado
    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1049
    Registrado : 11/11/2009

    [Resolvido]Gerar etiquetas para o produto e os sub produtos que o compoem Empty Re: [Resolvido]Gerar etiquetas para o produto e os sub produtos que o compoem

    Mensagem  scandinavo 18/10/2022, 14:08

    Para nao utilizar a consulta acrescimo e deixar a execução mais rapida
    substitua o codigo por este. e utilizar a caixa de listagem é opcional, pode vizualizar o relatorio diretamnte com as etiquetas criadas.

    'para o sistema funcionar imprimir o numero de copias e sair com o nome da formula e os produtos que a compoem
    'cada formula tem quer unica por isto a cada loop adiciono o numero ao ao nome
    'salvando em uma tabela temporaria

    'confere o campos preenchido
    If IsNull(Me.cmbFormula) Or IsNull(Me.txtNumeroCopias) Or Me.txtNumeroCopias = 0 Then
    MsgBox "O campo formula ou o numero de copias esta vaziu ou Zero", vbCritical, "Atenção"
    Exit Sub
    End If

    If Me.ListaProdutos.ListCount = 0 Then

    Set db = CurrentDb
    Set rs = db.OpenRecordset("tmpFormulacao")
    Set rst = db.OpenRecordset("tmpProdFormula")

    For I = 1 To Me.txtNumeroCopias Step 0
    rs.AddNew
    rs("NomeFormula") = I & "-" & Me.cmbFormula ' adciono o numero do loop ao nome da formula
    rs.Update
    '''''''''''''''''''
    'pego os produtos de acordo com a formula
    Set rsp = db.OpenRecordset("SELECT * FROM tblProdFormula WHERE IDFormula = '" & Me.cmbFormula & "'")
    Do While Not rsp.EOF 'Repetirei Até que não haja mais produtos da formula
    rst.AddNew
    rst!NomeForm = I & "-" & Me.cmbFormula
    rst!Produt = rsp!IdProduto
    rst!Q = rsp!QTD
    rst.Update
    rsp.MoveNext 'Movo para proximo produto...
    Loop
    ''''''''''''''''''''''''''''''''''''''''''''''
    I = I + 1 'aumenta o contador
    Next I ' novo loop

    'MsgBox "Criado com sucesso !", vbInformation, "Parabens"
    Me.ListaProdutos.Requery

    Else
    'pergunta se que apagar as formulas criadas
    If MsgBox("Lista de formulas já esta preenchida......" & _
    Chr(13) & Chr(13) & _
    "Serão excluidas para uma nova criação," & _
    Chr(13) & Chr(13) & _
    "Clicar novamente em CRIAR.", vbYesNo, "Aviso") = vbYes Then

    Set db = CurrentDb()

    db.Execute "DELETE * FROM tmpFormulacao"
    Set db = Nothing
    Me.ListaProdutos.Requery
    Else
    'se desistir cancela o evento
    DoCmd.CancelEvent
    End If
    End If

    fcamara gosta desta mensagem

    avatar
    fcamara
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 143
    Registrado : 07/01/2016

    [Resolvido]Gerar etiquetas para o produto e os sub produtos que o compoem Empty Re: [Resolvido]Gerar etiquetas para o produto e os sub produtos que o compoem

    Mensagem  fcamara 18/10/2022, 14:12

    Show muito obrigado mesmo

    Conteúdo patrocinado


    [Resolvido]Gerar etiquetas para o produto e os sub produtos que o compoem Empty Re: [Resolvido]Gerar etiquetas para o produto e os sub produtos que o compoem

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 00:06