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]Lógica de agrupamento

    Compartilhe

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    [Resolvido]Lógica de agrupamento

    Mensagem  Caio em Ter 13 Set 2016, 3:46 pm

    Bom pessoal,

    Estou com um "problema".

    Estou desenvolvendo um sistema de solicitação de EPI's, porém ainda não consegui pensar em uma lógica para essa solicitação ficar mais ágil.

    Atualmente uso o Excel para isso, porém é muito trabalho. Os colaboradores ficam nas linhas da coluna A e a lista de EPI's ficam nas colunas ao lado ( B, C, D, E...) e vou colocando a quantidade na célula entre o colaborador e o EPI.

    Segue em anexo, oque estou desenvolvendo:



    OBS: lembrando que se for enviar-me quaisquer exemplo, favor enviar no e-mail: [Você precisa estar registrado e conectado para ver este link.], pois não posso ter acesso à sites de armazenamento.
    Anexos
    Controle de EPIs.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (55 Kb) Baixado 4 vez(es)

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1327
    Registrado : 17/03/2011

    Re: [Resolvido]Lógica de agrupamento

    Mensagem  Cláudio Machado em Ter 13 Set 2016, 4:14 pm

    Bom dia.
    Não entendi sua dúvida?

    Mas já pensou em algo tipo controle de estoque?

    Acho que seria mais viável pra você, pois além de controla a quantidade de saída e entrada, também emitiria relatórios relacionados as movimentações, tipo:
    Local, Colaborador, Tipo de Produto, etc.

    Saudações.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Lógica de agrupamento

    Mensagem  Caio em Ter 13 Set 2016, 4:18 pm

    Cláudio,

    teria algum exemplo para mandar no meu e-mail?

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1327
    Registrado : 17/03/2011

    Re: [Resolvido]Lógica de agrupamento

    Mensagem  Cláudio Machado em Ter 13 Set 2016, 4:34 pm

    Tenho um do amigo Sidney C Silva.

    Veja se serve pra você é só adaptar ao que precisa.

    Funciona muito bem.
    Anexos
    Sistema Controle de Estoque.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (330 Kb) Baixado 10 vez(es)


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Lógica de agrupamento

    Mensagem  Caio em Ter 13 Set 2016, 4:38 pm

    Por favor, poderia mandar o arquivo no e-mail [Você precisa estar registrado e conectado para ver este link.]?

    Obs: Arquivo anexado, não o link de download.

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1327
    Registrado : 17/03/2011

    Re: [Resolvido]Lógica de agrupamento

    Mensagem  Cláudio Machado em Ter 13 Set 2016, 5:14 pm

    Enviado.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Lógica de agrupamento

    Mensagem  Caio em Ter 13 Set 2016, 10:34 pm

    Infelizmente esse sistema não atende a minha necessidade.

    Gostaria de uma lógica que me permitisse:

    Selecionar vários colaboradores, e vários EPI's. Porém os mesmos devem estar amarrados com um número de solicitação, pra na hora da impressão do relatório buscar pelo sequencial da Solicitação.

    Entendeu?

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1327
    Registrado : 17/03/2011

    Re: [Resolvido]Lógica de agrupamento

    Mensagem  Cláudio Machado em Qua 14 Set 2016, 8:27 pm

    Boa tarde.
    Veja se é isso. Ou mais ou menos a sua idéia.

    Sadações
    Anexos
    Controle de EPIs_ALT.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (56 Kb) Baixado 4 vez(es)


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Lógica de agrupamento

    Mensagem  Caio em Qua 14 Set 2016, 8:47 pm

    A ideia era mais ou menos essa sim, porém está dando um erro ao selecionar mais de 2 EPI's, e especificamente o EPI " Anel prendedor borracha "retentor" M.S.A® 218286 " não estou conseguindo enviar.

    E teria como enviar um registro a cada vez que clicar no "enviar", porém com o mesmo número de solicitação?
    Porque quando for solicitado são pedidos vários EPI's para vários colaboradores.

    Desde já, muito obrigado!

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1327
    Registrado : 17/03/2011

    Re: [Resolvido]Lógica de agrupamento

    Mensagem  Cláudio Machado em Qua 14 Set 2016, 9:56 pm

    Repare que modifiquei também um campo na sua tabela que estava escrito Nome, esta palavra é reservada ao ACCESS e não pode ser usada, daria vários conflitos que você talvez nem saberia porquê, evite nomes reservados ao access tais como:

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


    A questão do erro só acontece não por selecionar mais de dois EPI´s, mas sim pelo motivo da descrição do seu EPI estar com aspas.
    Em tão fiz um código para remover as aspas antes de inserir o produto na tabela.

    Vamos as alterações.

    Acrescente um campo Autonumeração (NumeraçãoAutomática) na sua tabela: tab_solicitacoes

    Em seguida:

    Substitua o código do botão enviar por este:

    Código:

    Dim var_Material
    var_Material = Replace(Material, Chr(34), "")
        CurrentDb.Execute "INSERT INTO [tab_solicitacoes] (Solicitacao, Soliciante, CentroCusto, Setor, RE, NomeColaborador, Material) Values (""" & NumeroSolicitação & """,""" & Solicitante & """,""" & CentroCusto & """,""" & Setor & """,""" & idCliente & """,""" & cli_Nome & """,""" & var_Material & """)"


    Teste e retorne.

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Lógica de agrupamento

    Mensagem  Caio em Qua 14 Set 2016, 11:02 pm

    Perfeito,

    Só preciso de mais uma coisa:

    Ao clicar na lista de EPI's aparecer um form pequeno para colocar a quantidade, e inserir na caixa de texto assim:

    EPI TALS.... (9), EPI TALS...(3)

    A quantidade teria que ir junto ao registro selecionado e com os parênteses.

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Lógica de agrupamento

    Mensagem  Caio em Qui 15 Set 2016, 2:26 pm

    Adaptei algumas coisas para inserir a quantidade...


    Private Sub epis_Click()
    DoCmd.OpenForm "fml_quantidade", , , , acFormAdd
    Call BoundData
    End Sub




    Sub BoundData()

       Dim frm As Form, ctl As Control
       Dim varItm As Variant

       Set frm = Forms!fml_solicitante
       Set ctl = frm!epis
       
    Me.Material = Null

       For Each varItm In ctl.ItemsSelected 'eis o salvador da Pátria. Mais informações coloque o cursor no meio da palavra ItemsSelected e aperte F1.
       
       If IsNull(Me.Material) Or Me.Material.Value = "" Then
            Me.Material = ctl.ItemData(varItm) & Me.txt_quantidade
           
          Else
         
            Me.Material = Me.Material & ", " & ctl.ItemData(varItm) & Me.txt_quantidade
          End If
                   
       Next varItm
       
    End Sub


    Está acontecendo assim:

    Ao clicar na listbox, abre o form quantidade, o valor digitado na caixa de texto dele aparece na caixa de texto do formulário Solicitante.

    Porém em vez de mudar o registro que estou inserindo, ele altera todos os outros já inseridos.

    Teria alguma ideia de como solucionar esse problema?

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1327
    Registrado : 17/03/2011

    Re: [Resolvido]Lógica de agrupamento

    Mensagem  Cláudio Machado em Qui 15 Set 2016, 4:28 pm

    O ideal seria uma InputBox, mas vou analisar o seu código pra ver o que dá pra fazer.



    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Lógica de agrupamento

    Mensagem  Caio em Qui 15 Set 2016, 4:31 pm

    Obrigado, no aguardo!

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1327
    Registrado : 17/03/2011

    Re: [Resolvido]Lógica de agrupamento

    Mensagem  Cláudio Machado em Qui 15 Set 2016, 4:40 pm

    Modifique sua lista EPI na opção Seleção Multipla para estendida;
    Insira o código abaixo no evento ao clicar da sua lista EPI e remova o todo o código dela.

    Código:

    Dim Var_Quant As Variant

    Var_Quant = InputBox("Digite a Quantidade do Produto.", "Quantidade")


    If StrPtr(Var_Quant) = 0 Then
        DoCmd.CancelEvent
    Else
    If Not IsNumeric(Var_Quant) And Var_Quant <> "" Then
    MsgBox "Não é permitido Letras ou outro caráctere, tente novamente...", vbCritical, "Atenção"
    Else

    Me.Material.Value = Me.Material.Value & Me.epis.Column(0) & " (" & Var_Quant & "), " & ""
    Me.Material.Requery
    End If
    End If

    Aguardo retorno.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1327
    Registrado : 17/03/2011

    Re: [Resolvido]Lógica de agrupamento

    Mensagem  Cláudio Machado em Qui 15 Set 2016, 4:44 pm

    Acrescentei alguns parâmetros para não dar erro se clicar em cancelar ou digitar outro carácter que não seja número.

    Copie novamente o código acima.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Lógica de agrupamento

    Mensagem  Caio em Qui 15 Set 2016, 5:27 pm

    Simplesmente GENIAL, muito obrigado.
    Nota 10.

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1327
    Registrado : 17/03/2011

    Re: [Resolvido]Lógica de agrupamento

    Mensagem  Cláudio Machado em Qui 15 Set 2016, 11:14 pm

    Por nada.
    O Fórum agradece o retorno.
    Só faltou o Joinha.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.

      Data/hora atual: Qui 08 Dez 2016, 1:02 am