[Resolvido]Erro transformar Consulta SQL em VBA

Tenho uma consulta atualização que é executada a partir de um botão para atualizar uma tabela com base em um critério em um formulário, sendo que funciona perfeitamente, mas gostaria de transformá-la em VBA, mas meu código em VBA está com erro de parâmetro, veja abaixo:



Em Consulta SQL
UPDATE GerarProtocoloCabAdm INNER JOIN GerarProtocoloItemadm ON GerarProtocoloCabAdm.NUMERADOR = GerarProtocoloItemadm.NUMERADOR SET GerarProtocoloItemadm.CNPJITEM = [Formulários]![GerarProtocoloCabadm]![CNPJ], GerarProtocoloItemadm.CPFITEM = [Formulários]![GerarProtocoloCabadm]![CPF]
WHERE (((GerarProtocoloCabAdm.NUMERADOR)=[Formulários]![GerarProtocoloCabadm]![NUMERADOR]));



Transformando para VBA
CurrentDb.Execute "UPDATE GerarProtocoloCabAdm INNER JOIN GerarProtocoloItemadm ON GerarProtocoloCabAdm.NUMERADOR = GerarProtocoloItemadm.NUMERADOR SET GerarProtocoloItemadm.CNPJITEM = [Formulários]![GerarProtocoloCabadm]![CNPJ], GerarProtocoloItemadm.CPFITEM = [Formulários]![GerarProtocoloCabadm]![CPF] WHERE (((GerarProtocoloCabAdm.NUMERADOR)=[Formulários]![GerarProtocoloCabadm]![NUMERADOR]));"

Olá!

Altere para:

Código:



CurrentDb.Execute "UPDATE GerarProtocoloCabAdm INNER JOIN GerarProtocoloItemadm ON GerarProtocoloCabAdm.NUMERADOR = GerarProtocoloItemadm.NUMERADOR SET GerarProtocoloItemadm.CNPJITEM =" & [Formulários]![GerarProtocoloCabadm]![CNPJ] & ", GerarProtocoloItemadm.CPFITEM =" & [Formulários]![GerarProtocoloCabadm]![CPF] & " WHERE GerarProtocoloCabAdm.NUMERADOR=" & [Formulários]![GerarProtocoloCabadm]![NUMERADOR] & ""



Se os campos do cpf e cnpj forem texto altere para aspa simples.

Falow,

Alterei, o campo CPF e CNPJ é texto, mas não está funcionando:
CurrentDb.Execute "UPDATE GerarProtocoloCabAdm INNER JOIN GerarProtocoloItemadm ON GerarProtocoloCabAdm.NUMERADOR = GerarProtocoloItemadm.NUMERADOR SET GerarProtocoloItemadm.CNPJITEM ='" & [Formulários]![GerarProtocoloCabadm]![CNPJ] & ", GerarProtocoloItemadm.CPFITEM ='" & [Formulários]![GerarProtocoloCabadm]![CPF] & " WHERE GerarProtocoloCabAdm.NUMERADOR=" & [Formulários]![GerarProtocoloCabadm]![NUMERADOR] & ""

CurrentDb.Execute "UPDATE GerarProtocoloCabAdm INNER JOIN GerarProtocoloItemadm ON GerarProtocoloCabAdm.NUMERADOR = GerarProtocoloItemadm.NUMERADOR SET GerarProtocoloItemadm.CNPJITEM ='" & [Formulários]![GerarProtocoloCabadm]![CNPJ] & ", GerarProtocoloItemadm.CPFITEM ='" & [Formulários]![GerarProtocoloCabadm]![CPF] & "' WHERE GerarProtocoloCabAdm.NUMERADOR='" & [Formulários]![GerarProtocoloCabadm]![NUMERADOR] & "'"

Você esqueceu de colocar as aspas no final.

Se ocorrer o erro postar a mensagem.

resolvido, obrigado.

Legal!

O fórum agradece pelo retorno

Até a próxima,