Atualizar o valor numa tabela através de um formulário

[José Ricardo Barreiros]

Boa noite a todos.

Seguinte, estou criando um access que controla cotações (tabela de cotações e de produtos).

Eu gostaria de ao receber as cotações dos fornecedores:

1o - atualizar os valores na cotação - Aqui é fácil, é só digitar os valores recebidos.

2o - Atualizar os valores recebidos/digitados na tabela de produtos, mantendo assim os valores atualizados. Tentei através de uma consulta de atualização, mas só atualiza um item da cotação e são vários iten em cada cotação.

3o - Transformar a cotação em um pedido - Ainda não fiz, mas acredito que seja através de uma consulta de acréscimo em outra tabela (Pedidos).

Agradeço a atenção.

[Alberto Mota]

Utilizo VBa para a sua 3ª necessidade.

O código abaixo faz um filtro. O usuário repete o pedido

para não ter que digitar 2 vezes.

O processo de uma cotação ser transformada em Pedido é o mesmo.

Abaixo gera o cabeçalho do Pedido

Dim db As Database

Dim rsAtivo As Recordset

Dim rsProventosCalc As Recordset

Set db = CurrentDb()

Set rsAtivo = db.OpenRecordset("SELECT * FROM TblVendaSaidaNovo WHERE lngNumContrato=" & Me.Combinação0)

Set rsProventosCalc = db.OpenRecordset("TblVendaSaidaNovo")

Do Until rsAtivo.EOF

rsProventosCalc.AddNew

rsProventosCalc("NumeroPedidoNovo") = Me.TxtNumeroPedido

rsProventosCalc("FornecedorPedido") = rsAtivo("FornecedorPedido")

rsProventosCalc("ClientePedido2") = rsAtivo("ClientePedido2")

rsProventosCalc("DataEmissão") = Now()

rsProventosCalc("Condições2") = rsAtivo("Condições2")

rsProventosCalc("Transportadora") = rsAtivo("Transportadora")

rsProventosCalc("Cobrança") = rsAtivo("Cobrança")

rsProventosCalc("ClientePedido2") = rsAtivo("ClientePedido2")

rsProventosCalc("Perc") = rsAtivo("Perc")

rsProventosCalc("Faturado") = rsAtivo("Faturado")

rsProventosCalc("Bonificação1") = rsAtivo("Bonificação1")

rsProventosCalc("Bonificação2") = rsAtivo("Bonificação2")

rsProventosCalc("Bonificação3") = rsAtivo("Bonificação3")

rsProventosCalc("Bonificação4") = rsAtivo("Bonificação4")

rsProventosCalc("Bonificação5") = rsAtivo("Bonificação5")

rsProventosCalc("Situação") = rsAtivo("Situação")

rsProventosCalc("Obs") = rsAtivo("Obs")

rsProventosCalc.Update

rsAtivo.MoveNext

Loop

rsAtivo.Close

rsProventosCalc.Close

Me.Requery

'========================================================================

MsgBox "Cabeçalho do Pedido adicionado com sucesso!", 64, "Aviso"

'DoCmd.Close

'DoCmd.OpenForm "FrmAdicionaPedidoA"

End Sub

E esse agora gera os itens

Private Sub Comando6_Click()

Dim detalhes As Recordset

Dim detalhesbase As Recordset

Set db = CurrentDb()

Set detalhesbase = db.OpenRecordset("SELECT * FROM TblDetalhevendaNovo WHERE CódigoPedido = " & Me.Combinação0)

Set detalhes = db.OpenRecordset("TblDetalhevendaNovo")

Do Until detalhesbase.EOF

detalhes.AddNew

detalhes("CódigoPedido") = Me.Texto3

detalhes("CódProd") = detalhesbase("CódProd")

detalhes("VlDetNovo") = detalhesbase("VlDetNovo")

detalhes("QtdeDoPedido") = detalhesbase("QtdeDoPedido")

detalhes("DescontoVenda") = detalhesbase("DescontoVenda")

detalhes.Update

detalhesbase.MoveNext

Loop

'=============================================

detalhesbase.Close

detalhes.Close

MsgBox "Itens do Pedido adicionado com sucesso!", 64, "Aviso"

End Sub

Editado Junho 22, 2010 por Alberto Mota