Pedido de ajuda sobre access

[pereira-290]

Olá,

Não. O que pretendia era converter uma tabela da horizontal para a vertical.

Já consegui e coloco aqui a programação que utilizei para no caso de alguem precisar poder utilizar.

BD_EntidadeQuantidadesArtigos (campos:Entidade, Caneta, Lapis, ..., Artigo)

Entidade - Caneta - Lapis - ... -Artigo
Escritorio 10 5 Caneta
Escritorio 10 5 Lapis
Economato 5 8 Caneta
Economato 5 8 Lapis

BD_Valores (Campos: Entidade, Artigo, Quantidade)

Entidade - Artigo - Quantidade
Escritorio Caneta 10
Escritorio Lapis 5
Economato Caneta 5
Economato Lapis 8


Private Sub Converter_Click()
On Error GoTo Err_Converter_Click
Dim MyBD As Database
Dim BD_Ler As Recordset
Dim BD_Esc As Recordset
Dim BD_Ler_Fd As Field
Dim wvar As String

Set MyBD = CurrentDb()
Set BD_Ler = MyBD.OpenRecordset("BD_EntidadeQuantidadesArtigos", DB_OPEN_TABLE)
Set BD_Esc = MyBD.OpenRecordset("BD_Valores", DB_OPEN_TABLE)

BD_Ler.MoveFirst
Do While Not BD_Ler.EOF

BD_Esc.AddNew
BD_Esc!Entidade.Value = BD_Ler!Entidade
BD_Esc!Artigo.Value = BD_Ler!Artigo

wvar = BD_Ler!Artigo

BD_Esc!Quantidade.Value = BD_Ler.Fields(wvar)

BD_Esc.Update

BD_Ler.MoveNext

Loop

BD_Ler.Close
BD_Esc.Close
Exit_Converter_Click:
Exit Sub
Err_Converter_Click:
MsgBox Err.Description
Resume Exit_Converter_Click
End Sub

Obrigado
Paulo