[Resolvido]Lógica de agrupamento

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: caio.fabio91@gmail.com, pois não posso ter acesso à sites de armazenamento.

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.

Cláudio,

teria algum exemplo para mandar no meu e-mail?

Tenho um do amigo Sidney C Silva.

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

Funciona muito bem.

Por favor, poderia mandar o arquivo no e-mail caio.fabio91@gmail.com?

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

Enviado.

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?

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

Sadações

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!

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: https://support.office.com/pt-pt/article/S%C3%ADmbolos-e-palavras-reservadas-do-Access-ae9d9ada-3255-4b12-91a9-f855bdd9c5a2


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.

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.

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?

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

Obrigado, no aguardo!

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.

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.

Simplesmente GENIAL, muito obrigado.
Nota 10.

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