[Resolvido]Erro na função Insert Into

Olá Feras de plantão, bom dia.

Na instrução abaixo estou encontrando problemas na sua execução, explico:

Possuo um formulário vinculado a uma tabela (tblCaixa) e nesse formulário denominado frmAssunto possui além do campo CÓD do tipo autonumeração com chave primária um subformulário contínuo vinculado a outra tabela com os campos Assunto, Código, FCorrente, FIntermediária e Destinação (todos do tipo Texto).
Sobre o registro deste subformulário criei um botão de comando que executará o código abaixo:

Private Sub Comando15_Click()
CurrentDb.Execute "INSERT INTO tbl100(Assunto,Código,FCorrente,FIntermediária,Destinação) VALUES  ('" & Nz(Me.Assunto.Value, 0) & "', '" & Nz(Me.Código.Value, 0) & "', '" & Nz(Me.FCorrente.Value, 0) & "', '" & Nz(Me.FIntermediária.Value, 0) & "', '" & Nz(Me.Destinação.Value, 0) & "') Where ([tbl100]![CÓD] =,  Forms![frmAssunto]![CÓD]) & "");"
If MsgBox("Estes dados serão à lista abaixo, você confirma?    ", vbYesNo, "Confirmar os dados") = vbYes Then
Else
DoCmd.CancelEvent
End If
End Sub

Recebo uma mensagem de erro "Ponto e vírgula faltando ao final da instrução SQL" quando executo, onde está o erro?

Abraços, WSenna

Ola WSenna;

Teste por favor;

Código:

CurrentDb.Execute "INSERT INTO tbl100(Assunto,Código,FCorrente,FIntermediária,Destinação) " _
& "VALUES  ('" & Nz(Me.Assunto.Value, 0) & "', '" & Nz(Me.Código.Value, 0) & "', '" & Nz(Me.FCorrente.Value, 0) & "'" _
& ", '" & Nz(Me.FIntermediária.Value, 0) & "', '" & Nz(Me.Destinação.Value, 0) & "')" _
& " Where [tbl100]![CÓD] =" & Forms![frmAssunto]![CÓD] & ")"

O erro estava aqui (a vermelho) e também não necessita de ponto e virgula no final:

Where ([tbl100]![CÓD] =,  Forms![frmAssunto]![CÓD]) & "");"

Grande Mestre, boa tarde.

Amigão, continua dando a mesma mensagem de falta um ponto e vírgula ao final da instrução SQL.

Abraços, WSenna

Olá Grande Avelino, boa tarde.

Segue imagem da caixa de mensagem;


[img][/img]


Abraços, WSenna

Pelo que se pode observar a primeira parte da instrução está correta, apenas o que vem depois do Where é que está pegando.
Cabe ressaltar que esta instrução se encontra num comando sobre o registro do subformulário contínuo frmAssuntoSub, e que este subformulário não tem vínculos com o formulário frmAssunto.

Abraços, WSenna

Uma questão: se está inserindo um NOVO registro, não faz sentido usar a cláusula WHERE.

Caro Avelino, de certo modo sim.

Imagine que eu tenho um formulário denominado frm100 vinculado à tabela tblCaixa que possui um campo Cód autonumeração com chave primária e um campo Caixa do tipo número.

Neste formulário possuo um subformulário frm100Sub vinculado à tbl100 que se relaciona com a tabela tblCaixa com tipo de relacionamento Um:Muitos pelo campo Cód. Neste subformulário possuo entre outros campos os campos Assunto, Código, FCorrente, FIntermediária e Destinação todos do tipo texto.
Atualmente o campo Assunto é uma Combox pesquisa na tabela Temporalidade os campos Assunto, Código, FCorrente, FIntermediária e Destinação. Quando executada esta combox preenche os demais campos automaticamente.

[img][/img]

Acontece que o Patrão me pediu que eu criasse uma forma de num outro formulário que demonstrasse toda a tabela Temporalidade com pesquisa avançada e quando selecionado o assunto procurado com dois cliques preenchesse o subformulário daquele formulário lá de cima ou seja o frm100Sub.

A razão do Cód é porque cada registro do frm100 possui uma Unidade administrativa então não posso inserir assuntos de uma unidade em outra, percebeu?

É confuso eu sei, mas...

Lembra que no finado ExpertAccess eu sempre afirmava que em se tratando de Access + VBA tudo se pode? Então...

Abraços, WSenna

Boa tarde, Mestre WSenna
Teste
"INSERT INTO tbl100(Assunto,Código,FCorrente,FIntermediária,Destinação) VALUES ('" & Nz(Me.Assunto.Value, 0) & "', '" & Nz(Me.Código.Value, 0) & "', '" & Nz(Me.FCorrente.Value, 0) & "', '" & Nz(Me.FIntermediária.Value, 0) & "', '" & Nz(Me.Destinação.Value, 0) & "') Where CÓD= Forms![frmAssunto]![CÓD];"

Amigo Avelino,
A minha mensagem já estava a caminho
Abraços,

Compreendo, mas talvez não prejudique

Amigos, infelizmente nenhuma das soluções Funfou como diz o JPaulo.

Penso que criei um monstro sem querer.

Há de se lembrar que a tbl100 não aceitará registros sem que haja um correspondente na tblCaixa, por isso a necessidade do Cód.
Tabmbém é bom que se diga que o frm100 está aberto sob o frmAssunto.


WSenna

Vá por partes
- teste com valores, em vez das variáveis
- após funcionar, substitua os valores por variáveis
assim, pode verificar se o problema está na sintaxe ou nos valores

Caros Amigos, segue abaixo um modelo:

Espero que compreendam melhor meu monstrinho criado.
Lembrem-se que no subformulário frm100Sub troquei o campo Assunto que era uma combox por um campo texto.

Abraços, WSenna

Grande Avelino, boa noite.

Estamos no caminho mais do que certo, Vivaaaaaaa!!!!!!
O único problema agora é que o novo registro no frm100Sub fica posicionado no primeiro registro e o operador perde a funcionalidade do Ctrl Apóstrofe para repetir o campo do registro anterior.
Observe que alterei o posicionamento dos campos do subformulário frm100Sub para dar mais lógica no aspecto e mesmo porque o evento Após Atualizar do campo Ano modifica os campos FCorrente e FIntermediária de acordo com os valores prestabelecidos na tabela Assunto.
Se conseguirmos colocar o campo Pasta em órdem crescente a coisa vai FUNFAR legal.
Note ainda que coloquei um código no evento Ao Fechar do formulário frmAssunto para que atualize o frm100.

Abraços, WSenna

PS. O Monstrinho está sendo domesticado.

Senhores, consegui.

Claro, com ajuda de todos, mas o problema acima do posicionamento do registro resolvi inserindo mais um campo na tabela frm100 "Index" do tipo numeração automática com chave primária e depois criei uma consulta dessa tabela onde coloquei o campo Index como Crescente. Isso forçou o código do Mestre Avelino a posicionar o resultado no último registro.

Assim dou por resolvido mais essa peleja e o Monstrinho virou um cachorrinho bem domesticado.

Fico imensamente grato a todos que colaboraram.

Grande abraço, WSenna