Instrução Sql Insert Into

[ToPronto N'Area]

Ola pessoal to fazendo um add new em um form, e quando eu fizer este add.new eu preciso fazer um insert into em uma outra tabela.

eu fiz o codigo

Set Atualiza = Workspaces(0).OpenDatabase(Banco)

Sql = "INSERT INTO PcAtualizado ( CodCategoria, Descricao )"

Sql = Sql & "SELECT Categorias.CodCategoria, Categorias.Categoria "

Sql = Sql & "WHERE Categorias.CodCategoria='" & PosCate & "'"

Sql = Sql & "FROM Categorias"

Atualiza.Execute Sql

O qual funcionou, porem quando vou fazer uma segunda inserção ele inseri o primeiro novamente!

Saca dai não da certo duplica os registro então eu fiz o codigo!

Dim PosCate As String

PosCate = Txt(0).Text

Set Atualiza = Workspaces(0).OpenDatabase(Banco)

Set Atualiza = Workspaces(0).OpenDatabase(Banco)

Sql = "INSERT INTO PcAtualizado ( CodCategoria, Descricao )"

Sql = Sql & "SELECT Categorias.CodCategoria, Categorias.Categoria "

Sql = Sql & "From Categorias WHERE (((Categorias.CodCategoria) = '" & PosCate & "'))"

Onde este PosCate é o Codigo que ele deve se orientar, porem na hora de executar ele não aceita o PosCate, só que se eu colocar no lugar do PosCate o codigo que deve ser referenciado a instrução da certo!

Se alguém puder me ajudar eu agradeço!

[ToPronto N'Area]

já está resolvido, descobri o que era!

Era que a pecinha entre o monitor e a cadeira, tava com sono e não conseguia ver o erro!

Mas estáí como ficou o codigo!

Desde já obrigado aos que passaram por aqui e leram o tópico!

Set Atualiza = Workspaces(0).OpenDatabase(Banco)

Sql = "INSERT INTO PcAtualizado ( CodCategoria, Descricao ) "

Sql = Sql & "SELECT Categorias.CodCategoria, Categorias.Categoria "

Sql = Sql & "From Categorias WHERE CodCategoria LIKE '" & PosCate & "'"

Atualiza.Execute Sql