Ir para conteúdo
Fórum Script Brasil
  • 0

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


José Ricardo Barreiros

Pergunta

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.

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 0

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 por Alberto Mota
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...