[Resolvido]Função Transpor

Boa tarde, eu sou novato no VB e Access e hoje estou com uma solicitação e espero que você possam me ajudar.

Material              storagebin
19805191a F-C18-04
19805191a F-B18-01
19805258a F-C18-04
19805258a F-B18-01
19805266a F-B18-01
19805266a F-C18-04

o que eu preciso

Material                 storagebin *
19805191a             F-C18-04|F-B18-01
19805258a             F-C18-04|F-B18-01
19805266a             F-B18-01|F-C18-04

*Material agrupado e concatenar a coluna Storagebin e colocar um delimitador "|" para cada registro novo de storabegin.

Aguardo seus comentários,

Adriano R

Boa tarde,
É melhor se disponibilizar dados trabalháveis.

Olá Type,
Já tentou implementar por meio de subformulário?
Vc cria uma tabela para cadastrar o Material e uma para cadastrar o Storagebin;
Então implementa um formulário com base na tabela Material e vincula um subformulário baseado na tabela Storagebin.
Desse modo, você terá o cadastro de um material e uma sequência de vários storagebin cadastrados para aquele material.
Veja se ajuda.

Caro Roderick,

O access no meu caso não será de input de informações, ou seja, os dados já estão no meu sistema SAP em tabelas. O que eu preciso é pegar esses dados e fazer um transpor igual do excel, onde, colunas viram linhas agrupando por material e concatenar o storagebin.

Obrigado a sua ideia seria otimo se eu fosse fazer as entrada via Access.

Aguardo outras sugestões.

Adriano

Boa noite,
veja

Alexandre Neves,

Muito obrigado pela ajuda, porém estou com um problema quando o storagebin ultrapassa os 255 chars, veja o erro anexo:

Você por gentileza poderia me ajudar mais uma vez,

Obrigado,

Adriano

Mestre Alexandre, o código está quase perfeito, a carga de dados não foi suficiente para contemplar todos cenários...qdo utilizei o código em produção eu deparei com um pequeno problema, o campo storagebin está limitado em 255 chars. Você pode me ajudar, por favor? Ver exemplo anexo

Boa noite,
Reparei que já alterou o tipo de dados para Memo e, assim, deve funcionar como pretende. mesmo assim, não funciona?

Alexandre,

Sim, eu realmente alterei o formato do campo para memo, mas eu acho que estava rodando o banco de dados errado por isso não funcionava.
Agora funcionou perfeitamente :cheers , muito obrigado pela ajuda.
Só mais uma pergunta, é possível nesse código contar a quantidade de storagebin por material?

veja exemplo abaixo:

Material            Storagebin                ContarDeStoragebin
003F1232 A-B10-02|B-B05-03 2
003F1240 B-D10-01                            1
003L8330 A-D04-03|B-D11-04 2
003N0107 A-D08-05                            1
003N0108 B-A01-01                            1

Adriano RJ

Bom dia,
Então, não conseguiu?
Crie campo na tabela e utilize este código
Sub TranspoeCodigo()
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' '
' código criado por Alexandre Neves, do Fórum MaximoAccess '
' '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim RstDados As DAO.Recordset, RstAgrupados As DAO.Recordset, strCodigo As String, Contar As Integer

CurrentDb.Execute "DELETE * FROM CodigosAgrupados;"
Set RstAgrupados = CurrentDb.OpenRecordset("SELECT * FROM CodigosAgrupados;")
Set RstDados = CurrentDb.OpenRecordset("SELECT Material, Storagebin FROM Codigos ORDER BY Material, Storagebin;")
Do While Not RstDados.EOF
If RstDados(0) = strCodigo Then
RstAgrupados.MoveLast
RstAgrupados.Edit
RstAgrupados("Storagebin") = RstAgrupados("Storagebin") & "|" & RstDados("Storagebin")
RstAgrupados("ContarDeStoragebin") = RstAgrupados("ContarDeStoragebin") + 1
RstAgrupados.Update
Else
strCodigo = RstDados(0)
RstAgrupados.AddNew
RstAgrupados("Material") = RstDados("Material")
RstAgrupados("Storagebin") = RstDados("Storagebin")
RstAgrupados("ContarDeStoragebin") = 1
RstAgrupados.Update
End If
RstDados.MoveNext
Loop
Set RstDados = Nothing
Set RstAgrupados = Nothing
End Sub

Bom dia Alexandre Neves,

Agora está perfeito, muito Obrigado pela ajuda. bounce bounce cheers

Adriano RJ (typebr)