[Resolvido]Problemas com Insert Into + Update

Olá Amigos.
Boa noite a todos.

Tenho comigo alguns exemplos que funcionam perfeitamente.
Estou tendando adaptá-los ao meu sistema mas não consigo.
Acredito que para o pessoal aqui do forum isto é uma coisa boba. Mas não sou programador e estou a dois dias quebrando a cabeça!!!

Estou usando:
CurrentDb.Execute "INSERT INTO tbSub (Nome) SELECT * From Cst2"
CurrentDb.Execute "UPDATE tbSub SET IDSub=" & Me.ID.Value & " WHERE IDSub=0"
Me.tbSub_subformulário.Requery
Posto também um BD de exemplo.

Alguém sabe me dizer o que estou fazendo errado?

Obrigado

Já tentou colocar o SELECT em um Recordset e passar o campo da tabela utilizando ele?

Código:

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Cst2 WHERE CampoTal=" & Me.TalCampo & "")

CurrentDb.Execute "INSERT INTO tbSub(NomeCampo) VALUES('" & rs!NomeCampo & "')"

...

rs.Close
Set rs = Nothing

Olá Criquio.
Como vai o amigo?

Apaixonei-me pelo Access e tornou-se um Hoby.
Mas sou péssimo nos fundamentos básicos.
Gostaria muito de poder fazer um curso. Mas com 50 anos, casado, três filhos, trabalhando... fica difícil arrumar um tempinho. Mas vamos lá.
Não consegui... Ficou assim e da erro:

Private Sub Comando6_Click()
Dim rs As RecordsetSet
rs = CurrentDb.OpenRecordset("SELECT * FROM Cst1 WHERE IDSub=" & Me.Filtro & "")
CurrentDb.Execute "INSERT INTO tbSub(Nome) VALUES('" & rs!Nome & "')"
CurrentDb.Execute "UPDATE tbSub SET IDSub=" & Me.ID.Value & " WHERE IDSub=0"
Me.tbSub_subformulário.Requery
rs.CloseSet
rs = Nothing
End Sub

Grato pela atenção

Bom, em primeiro lugar, mude o Set de lugar. Coloque ele antes de rs = CurrentDb.OpenRecordset...:

Private Sub Comando6_Click()
Dim rs As RecordsetSet
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Cst1 WHERE IDSub=" & Me.Filtro & "")
CurrentDb.Execute "INSERT INTO tbSub(Nome) VALUES('" & rs!Nome & "')"
CurrentDb.Execute "UPDATE tbSub SET IDSub=" & Me.ID.Value & " WHERE IDSub=0"
Me.tbSub_subformulário.Requery
rs.Close
rs = Nothing
End Sub

E esse IDSub=0? É assim mesmo? O ID é 0?

Desculpe-me Criquio por não ter dado continuidade na seqüência. Houve um imprevisto e tive que parar. Agora são 3h30min e estou digitando num tablete. Não tenho como testar o código. Em breve faço as alterações e te retorno.

Quanto a sua pergunta sobre o IDSub=0 , não sei responder ao certo, mas acho que sim.
São dados inseridos num sub formulário através de uma consulta e o ID (IDSub) fica com valor 0 e depois é feito o UPDATE do ID do formulário.

Obrigado

Até mais.

Bom dia, Luíz

Não entendi a mecânica do que pretende.
Parece-me que vai buscar dados à tbSub para a consulta e, depois, quer acrescentar os registos da consulta à tbSub. É isso? Parece-me redundante.

Obrigado por sua atenção, Alexandre.

Você tem razão! Parece ser redundante. Mas no BD original se faz necessário.

Estou postando um novo DB de exemplo. Num Forms há 2 botões que executam o mesmo código. Um dos botões funciona e outro da erro. Qual a diferença entre eles? - Um deles busca uma consulta que há um filtro diretamente na consulta e no outro o filtro vem de um campo no forms. (Este segundo não funciona). Da erro:

"Erro em tempo de execução 3061. Parâmetros insuficientes. Eram esperados 1."

Alexandre, conheço muito pouco de Access. Mas uma coisa sei: Parece-me que no Access nada é impossível, logo, estou fazendo algo errado.

Obrigado

Bom dia, Luíz

Os botões não executam o mesmo código. Um deles executa a consulta Cst e o outro a consulta Cst1.
Relativamente ao botão que executa a consulta Cst1 dar erro na execução, poderá ser porque se trata de caixa de texto desacoplada. No entanto, é desaconselhável o enredo de código. Em vez de ter uma consulta acréscimo e, depois, executar uma consulta de actualização, deve executar código que faça o pretendido numa só etapa.

Desculpe-me Alexandre.
Me expressei mal. Realmente os botões não executam o mesmo código. Executam códigos semelhantes.

Quanto a caixa de texto desacoplada, deve ser isto. Quanto ao BD de exemplo, a parte que funciona, foi passado pelo mestre JPaulo.

Agora fiquei perdido.
Não sei que caminho seguir.

Mais uma vez, muito obrigado por sua atenção.

Abraços.

Bom dia Grande Luiz;

Delete a 2ª consulta e passe toda a instrução para VBA, e já funfa;


CurrentDb.Execute "INSERT INTO tbSub (Dia, Nome) SELECT tbSub.Dia, tbSub.Nome FROM tbSub WHERE tbSub.Nome='" & [Forms]![tb]![NN] & "'"

JPaulo.
Realmente você é o Cara!
Parabéns pela sua competência e eficiência.
E acima de tudo,obrigado por sua paciência.
O código funcionou perfeitamente.
Muito Obrigado

Meus agradecimentos também ao Criquio e Alexandre Neves pela atenção.

Valeu JPaulo.

Opss!
Faltou o resolvido.

Isso é que preciso, é que fique resolvido e o usuário contente por mais uma batalha ganha.

Obrigado pelo retorno, o fórum agradece.

Olá JPaulo.
Será que você poderia me ajudar nesse tópico abaixo:

http://maximoaccess.forumeiros.com/t18618-formulario-login-grava-acesso-de-usuario-entrada-e-saida-problemas#138021

Obrigado.