[Resolvido]Ajuda instrução insert

Olá Pessoal,

Anteriormente um colega do fórum havia me ajudado com a instrução insert e ficou funcionando super bem para inserir os dados na tabela, mas como eu faria para antes de inserir os dados o sistema consultar se o código já existe para um pedido específico e ao invés de criar um novo registro ele apenas atualizasse o registro que existente "para um pedido específico" somando 1 unidade a quantidade existente?

O insert ficou asim

Private Sub Comando98_Click()

CurrentDb.Execute " INSERT INTO DetalhedoPedido(CodigoProduto, CodigoPedido, Quantidade)" & _
"VALUES(" & Me.TxtCodigoBarras & ",'" & Me.CodigoPedido & "','1')"

DetalhedoPedidosub.Form.Requery
Me.TxtCodigoBarras = ""
Me.TxtCodigoBarras.SetFocus

End Sub


Desde já agradesço

Cristiano

Bom dia
Nomeie os controlos de forma normalizada (CmdRegistPedido em vez de Comando98?)
Tenha Quantidade no tipo número em vez de texto

Código:

If DCount("*", "DetalhedoPedido", "CodigoProduto=" & Me.TxtCodigoBarras & " AND CodigoPedido='" & Me.CodigoPedido & "'") = 0 Then
    CurrentDb.Execute "INSERT INTO DetalhedoPedido(CodigoProduto, CodigoPedido, Quantidade) VALUES(" & Me.TxtCodigoBarras & ",'" & Me.CodigoPedido & "','1')"
Else
    CurrentDb.Execute "UPDATE DetalhedoPedido SET Quantidade=Quantidade+1 WHERE CodigoProduto=" & Me.TxtCodigoBarras & " AND CodigoPedido='" & Me.CodigoPedido & "'"
End If


Bom dia Alexandre,

Obrigado pela ajuda, mas está ocorrendo um erro "erro em tempo de execução '3464' Tipo de dados incompatível na expressão de critério"

Estou postando o BD para você dar uma olhada.

O formulário que contém o comando é o "FormularioVenda".

Bom dia,

Na sua linha DCount, você coloca um ' (aspas simples) no critério do código do produto e como seu campo é em formato NumeraçãoAutomática, ele realmente retornará esse erro.

Segue BD revisado.

Abraço,
Marcelo.

Bom dia Marcelo, muito obrigado, está funcionando super bem!

Muito obrigado ao Alexandre também pelo código.

Abraço!

Falta o "Resolvido"