[Resolvido]Tabela não atualiza com procedimento de evento Update

Olá amigos.

Estou com um problema para fazer atualização de uma tabela através de um formulário que usa uma expressão Update em SQL.

Preciso atualizar a tabela "tabCaixa" com os dados do formulário "frm_OrdemSevico" e com o procedimento de evento ao clicar do botão Salvar.

Após clicar no botão Salvar do Formulário "frm_OrdemServico", os dados da tabela "tabCaixa" deveriam ser atualizados conforme está no procedimento de evento, mas isto não está acontecendo.

O que acontece é que a 1ª linha não produz efeito e o resultado das outras linhas atualizam todos os registros da tabela, ficando todos iguais.

Eu tenho este procedimento funcionando em outro projeto, não sei onde está o erro, mas ele existe.

Talvez minha SQL esteja montada errada.

Anexo Bd e explico melhor nela.

Desde já, obrigado!

teste;

Código:

DoCmd.RunSQL ("UPDATE tabCaixa SET tabCaixa.ValorEntrada ='" & Me.ValorPago & "',tabCaixa.IdPlanoContas = 2,tabCaixa.IdCentroDeCustos = 2,tabCaixa.IdTipoCentroCustos = 1  WHERE tabCaixa.IdCaixa=" & Me.txtIdCaixa)

Jedder

Olá

1º - Consulta atualização somente irá atualizar registros já existente em uma tabela.
      Não é esse caso, já que na tabela tabCaixa, não existe tal registro, pois ainda será vendido.
2º - Como o formulário de ordem de serviço tem como fonte de registro a tabela tbl_Venda (orçamento ou OS)
     na tabela tabCaixa deveria ter o campo do id dessa tabela, ligando a venda com a OS.

Concluindo, precisa de uma consulta adição, para adicionar a nova OS na venda sendo efetivada(tabCaixa)

JPaulo: Enquanto digitava, você postou. mas como pode ver, update não irá funcionar, pois n tem o registro na tabela tabCaixa.

[ ]'s

Fico honrado por dois mestres me orientarem.

Noobezinho, parece que realmente vc tem razão, o procedimento do mestre JPaulo não fez alterações, ficou como antes.

Mas lhe pergunto e peço se não for abusar demais:

Por favor, vc não pode fazer este exemplo no meu Bd e me postar de volta, pois não sei como fazer tal procedimento.

Fico no aguardo, grato!

Código:

Private Sub cmd_Salvar_Registro_Click()
Dim intID As Variant
    Call preencheCaixa
        DoCmd.RunCommand acCmdSaveRecord
   
intID = Nz(DCount("*", "tabCaixa", "IdCaixa=" & Me.txtIdCaixa), 0)

If intID = 0 Then
    CurrentDb.Execute "INSERT INTO tabCaixa (IdCaixa,DiaLancamento,ValorEntrada,IdPlanoContas,IdCentroDeCustos,IdTipoCentroCustos) VALUES(" & Me.txtIdCaixa & ",#" & Format(Me.txtDataCaixa, "mm-dd-yyyy") & "#," & CDbl(Me.ValorPago) & ",2,2,1)"
Else
    CurrentDb.Execute "UPDATE tabCaixa SET tabCaixa.ValorEntrada =" & CDbl(Me.ValorPago) & ",tabCaixa.IdPlanoContas = 2,tabCaixa.IdCentroDeCustos = 2,tabCaixa.IdTipoCentroCustos = 1  WHERE tabCaixa.IdCaixa=" & Me.txtIdCaixa
End If
End Sub


Billy the Kid era rápido no gatilho

JPaulo é rápido no teclado


[ ]'s

Mestre JPaulo, perfeito!

Tiver que sair por 2 horas e só agora voltei e verifiquei a resposta.
Aliás, como o Noobezinho comentou, o mestre é rápido no teclado e acerta sempre na mosca.

Novamente, quero salientar a honra de ter meu problema resolvido por duas "feras" que admiro muito, e não estou jogando "confetes", é verdadeiro.

Problema resolvido , e depois estarei postando outro, .

Obrigado Noobezinho, JPaulo e a todos que se interessaram.

Abraços e Sucesso!!!

Fico feliz.

Obrigado pelo retrono o forum agradece.