Pessoal, bom dia.
Aprendi muita coisa lendo os tópicos desse fórum, gostaria de primeiramente agradecer ao pessoal que colabora e de forma inteligente, dedica parte de seu tempo a ajudar outras pessoas e vou a medida do tempo estar colaborando também.
Meu problema é que tenho que importar arquivo txt que vem de forma tabulada e com os campos distribuídos da seguinte forma:
(material/Atualização) ValorR$
Campo1 Campo2 Campo3
01.0024.0234.0
01/2008
Referência 27,8000
06/2001
Referência 14,8720
01.0030.0630.4
03/2012
Referência 3,2400
08/2005
Referência 4,1880
09/2004
Referência 3,3200
02/2004
Referência 3,4200
Criei uma nova tabela para receber os dados temporariamente só que pegando sempre o mês mais recente para cada atualização do código do material:
A tabela tem que ficar assim:
Campo1 Campo2 Campo3
01.0024.0234.0 01/2008 27,8000
01.0030.0630.4 03/2012 3,2400
Criei a função abaixo mais não está acertando porque tenho que identificar o formato do campo para que possa mover na tabela de origem. Por favor, já tentei durante horas e realmente não consigo terminar.
Function Preencher() As Boolean
Dim TMat, TMat1 As DAO.Recordset
Dim x
Set TMat = CurrentDb.OpenRecordset("Precoreferencial2")
Set TMat1 = CurrentDb.OpenRecordset("Precoreferencial3")
x = Format(TMat(0), "00\.0000\.0000\.0")
Do While Not TMat.EOF
If Not IsNull(TMat(0) = x) Then
TMat1.AddNew
TMat1(0) = TMat(0)
TMat.MoveNext
TMat1(1) = TMat(0)
TMat.MoveNext
TMat1(2) = TMat(2)
TMat1.Update
TMat.MoveNext
Else
TMat.MoveNext
End If
Loop
TMat.Close
TMat1.Close
Exit Function
End Function
Abraço a todos
Aprendi muita coisa lendo os tópicos desse fórum, gostaria de primeiramente agradecer ao pessoal que colabora e de forma inteligente, dedica parte de seu tempo a ajudar outras pessoas e vou a medida do tempo estar colaborando também.
Meu problema é que tenho que importar arquivo txt que vem de forma tabulada e com os campos distribuídos da seguinte forma:
(material/Atualização) ValorR$
Campo1 Campo2 Campo3
01.0024.0234.0
01/2008
Referência 27,8000
06/2001
Referência 14,8720
01.0030.0630.4
03/2012
Referência 3,2400
08/2005
Referência 4,1880
09/2004
Referência 3,3200
02/2004
Referência 3,4200
Criei uma nova tabela para receber os dados temporariamente só que pegando sempre o mês mais recente para cada atualização do código do material:
A tabela tem que ficar assim:
Campo1 Campo2 Campo3
01.0024.0234.0 01/2008 27,8000
01.0030.0630.4 03/2012 3,2400
Criei a função abaixo mais não está acertando porque tenho que identificar o formato do campo para que possa mover na tabela de origem. Por favor, já tentei durante horas e realmente não consigo terminar.
Function Preencher() As Boolean
Dim TMat, TMat1 As DAO.Recordset
Dim x
Set TMat = CurrentDb.OpenRecordset("Precoreferencial2")
Set TMat1 = CurrentDb.OpenRecordset("Precoreferencial3")
x = Format(TMat(0), "00\.0000\.0000\.0")
Do While Not TMat.EOF
If Not IsNull(TMat(0) = x) Then
TMat1.AddNew
TMat1(0) = TMat(0)
TMat.MoveNext
TMat1(1) = TMat(0)
TMat.MoveNext
TMat1(2) = TMat(2)
TMat1.Update
TMat.MoveNext
Else
TMat.MoveNext
End If
Loop
TMat.Close
TMat1.Close
Exit Function
End Function
Abraço a todos
Última edição por jbulhoes em 26/4/2014, 14:09, editado 2 vez(es)