[Resolvido]Alteracao de preço x log

ola pessoal

tenho essa consulta

SELECT tblProdutos.CodPro, tblFornecedor.Fornecedor, tblProdutos.Grupo, tblProdutos.Descricao, tblProdutos.PrecoCusto, tblProdutos.PrecoVenda, tblProdutos.Estoque, tblProdutos.EstoqueMinimo
FROM tblProdutos INNER JOIN tblFornecedor ON tblProdutos.CodFor = tblFornecedor.CodFor
ORDER BY tblProdutos.Descricao;

ela eu uso um formulario , com nome de qryprodutos e tenho formulario principal com nome frmconsultaprodutos

coloquei no form principal uma caixa de texto nao aclopada com nome de porcentagem
minha ideia seria criar um botao para fazer as alteraçoes dos preços de venda , antes de alterar gravar
um log txt com a codigo , descricao , grupo , preço custo , preço venda antigos

quando colocar a porcentagem na caixa de txt e clicar bt

muito obrigado a todos

Poderia usar um exemplo do forum de exportar dados da tabela em txt e depois utilizar de uma consulta alteracao, que altera as linhas da tabela...
Teria no Form um campo texto com o novo valor da porcentagem e um botao que ao clicar, exporta o txt e Executa a consulta alteracao..

(Codigo de exportacao disponivel em um exemplo no Portao SVC)
Private Sub btnExportar_Click()
'fonte:
'http://answers.microsoft.com/pt-br/office/forum/officeversion_other-office_other/como-exportar-dados-do-access-como-txt/715ecc5f-4300-4011-9674-7d8102982d78
'Se desejar, cole esse link acima no navegador, para acompanhar a origem desta solução.
'Inicio++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Dim DB As DAO.Database
Dim RSP As DAO.Recordset
Dim strSQL As String
Dim Sai As String
Set DB = CurrentDb

strSQL = "SELECT tblExemplo.AAA, tblExemplo.BBB, tblExemplo.CCC, tblExemplo.DDD, tblExemplo.EEE from tblExemplo"
Set RSP = DB.OpenRecordset(strSQL)
strSQL = Application.CurrentProject.Path
Open strSQL & "\Teste.txt" For Output As #1

Print #1, Sai
With RSP
.MoveFirst
Do While Not .EOF
Sai = Space(5) & (RSP!AAA) & Space(5) & (RSP!BBB) & Space(5) & (RSP!CCC) & Space(5) & (RSP!DDD) & Space(5) & (RSP!EEE)
CtaItens = CtaItens + 1
Print #1, Sai
.MoveNext
Loop
End With
MsgBox "Exportado com Sucesso, verifique junto ao banco...", vbInformation, "Exemplo Access"
Set DB = Nothing
Set RSP = Nothing
Close #1
DoCmd.SetWarnings False
DoCmd.OpenQuery "SuaConsultaAlteracao"
DoCmd.SetWarnings True
Exit Sub

End Sub

E apos isso criar uma consulta alteracao para todas as linha ou para linhas especificas, utilizando como filtro a ID do produto...
Em caso de apenas 1 produto.. em criterio da Consulta no campo desejado:
Como [Forms]![NomeDo SeuForm].[NomeDoCampoNoForm]

Saudaçoes