[Resolvido]Consulta adição com parêmentro insuficiente.

Amigos, estou tentando execultar a consulta abaixo, mas está dando o erro 3061 e diz que os parâmentros são insuficientes, era esperado 1.

Não consigo ver onde estou errando...
Alguma sugestão?


CurrentDb.Execute "INSERT INTO tbExclusivo ( ValorExclusivo ) SELECT [Formulários]![frmPedidos]![SfrmDetalhePedido].[Formulário]![IdProdutoId] AS Origem;"

Não entendi bem a origem, mas não resolveria algo assim?

CurrentDb.Execute "INSERT INTO tbExclusivo(ValorExclusivo) VALUES('" & Forms!frmPedidos!SfrmDetalhePedido.Forms!IdProdutoId & "')"

Outra coisa, está fazendo isso via vba, não? E, no caso, esse campo de origem está em outro local que não o próprio formulário aonde está a linha do código?

criquio, funcionou, apenas tive que fazer uma pequena alteração para sanar um erro que ocorreu(o objeto não aceita propriedade ou o método), retirando as referencias dos formulários e me referi diretamente ao campo que pego para adicionar.

Acho que esse erro ocorreu porque a consulta é feita diretamente do subformulário, e não do formulário pai. Estou certo?

Sobre a origem: era um campo virtual que eu tinha criado na consulta SQL do access (apenas copiei de lá e tranferi para o VBA...)

O código ficou assim:

CurrentDb.Execute "INSERT INTO tbExclusivo(ValorExclusivo) VALUES('" & Me.IdProdutoId & "')"

Muito obrigado amigão!

Ótimo. Foi exatamente isso que eu quis saber quando perguntei se o campo estava em outro formulário, pois, sendo no próprio, bastaria passa o nome do campos conforme fizestes.
Sucesso.