[Resolvido]DoCmd.RunSQL "INSERT INTO tblParecer VALUES ('" & TextoParecer & "')" não roda

Prezados;

Fiz pesquisa no MaximoAccess, obtive alguns exemplos (estudei, adaptei), mas não consegui resolver.

Mais uma vez recorro aos que podem ajudar.

Tenho o seguinte problema:


TextoParecer = "O total da despesa registra o valor de " & TotalPeriodo & " no período de " & DataRef & ", apresentando uma variação de_ " & FormatPercent((TotalPeriodo / TotalPeriodoAnterior) - 1) & " em relação ao total do mês anterior (" & MesAnterior & " = " &_ TotalPeriodoAnterior & "). O item '" & Me.Especificação & "', integrante da conta '" & Me.Conta & "', registra o valor de " &_ FormatCurrency(Me.Valor) & " e apresenta a maior despesa no período de " & DataRef & ", correspondendo a " & PercentValorMes & " do_ total da despesa do mesmo período. Em relação ao período anterior, o item '" & Me.Especificação & "' apresenta uma variação de " &_ PercentValorItemMesAnterior & " (" & MesAnterior & " = " & ValorItemMesAnterior & ")."

Response = MsgBox("" & TextoParecer) ' A mensagem roda perfeitamente, com todos os cálculos realizados.

DoCmd.RunSQL "INSERT INTO tblParecer VALUES ('" & TextoParecer & "')" ' Aqui está o problema: não roda. Se atribuo somente texto à variável TextoParecer, há inclusão na tabela tblParecer.

Obs.: Todas as variáveis foram declaradas como Variant e resultam de comparações e/ou cálculos.

Access 2007

Agradeço antecipadamente.

Inclua a linha abaixo:

Response = MsgBox("INSERT INTO tblParecer VALUES ('" & TextoParecer & "')")

Verifique se a instrução SQL da mensagem está ok.

Olá Cláudio Más;

Obrigado pelo seu interesse.

A msgbox roda perfeitamente. O problema está na instrução DoCmd.RunSQL "INSERT INTO tblParecer VALUES ('" & TextoParecer & "')"

Essa instrução deveria inserir na tabela tblParecer todo o conteúdo da variável TextoParecer. Mas não roda!

Valeu.

Lucio, verifique minha mensagem anterior.
A intenção é analisar a instrução SQL através da msgbox.

Pois então, Cláudio Más;

A msgbox que você sugeriu roda certo (com aspas simples no início e no final do texto), tal e qual a instrução Response = MsgBox("" & TextoParecer) que eu havia postado (sem aspas simples no início e no final do texto).

Isso sugere que o conteúdo da variável TextoParecer está ok; mas não insere o texto na Tabela tblParecer através da instrução: DoCmd.RunSQL "INSERT INTO tblParecer VALUES ('" & TextoParecer & "')"

Eis o dilema...

Obrigado por continuar ajudando!!

Deve ter algo errado com a instrução, o fato da msgbox rodar certo não quer dizer que a instrução esteja certa, tanto é que não está rodando.
Pode ser também algo referente ao tipo de dados do campo na tabela tblParecer.
A instrução pressupõe que a tabela tem somente um campo, certo?

Poderia postar o resultado da msgbox da instrução SQL, ou melhor ainda, o banco de dados?

Por motivos de sigilo não posso enviar o Bd. Mas segue o resultado da mensagem:

Agradeço!!

Lucio

Veja:

DoCmd.RunSQL "INSERT INTO tblParecer (NomedoCampo) VALUES ('" & TextoParecer & "')"

Como pode ver, faltou o nome do campo, por isso dava erro.

Se precisar adicionar mais campos, separe-os por virgula e os valores também respectivamente.


[ ]'s

Prezados Noobezinho e Cláudio Más;

Agradeço imensamente a atenção deferida!!

Cometi o erro de não verificar a sintaxe.

No momento não posso verificar o acerto da correção proposta; mas acredito que o código vai rodar. Tão logo eu verifique posto o resultado!

Valeu!!!

boa noite Noobezinho desculpa entrar nesse tópico mais você estão em um tópico que sempre tenho vontade de aprender sempre vejo alguns amigos do fórum usarei o insert mais eu nunca entendi direito como usar,ou tem outro jeito mais fácil de de inserir dados na tabela, porém estou desenvolvendo um sistema mais tenho grandes problema ao fechar o formulário antes de terminar o preenchimento ele sempre salvar sem que eu queira.


mais uma vez desculpa em entrar nesse tópico

Marcelo

A maneira mais fácil, é usando consultas adição.

Ou usa ela diretamente ou se for usar no VBA, crie a consulta, teste para ver se está funcionando.

Então abra a parte SQL da consulta, copie e cole.

Veja que é uma sentença SQL, então deverá coloca-la entre aspas duplas.

Portanto, ficaria assim:

Docmd.RunSQL "cole aqui"

Leia mais na ajuda do Access ou na internet.

[ ]'s

Noobezinho;

Testei a linha, modificando a instrução da seguinte forma:

DoCmd.RunSQL "INSERT INTO tblParecer (Parecer) VALUES ('" & TextoParecer & "')"

Inseri o campo de destino (Parecer), tipo memorando, mas infelizmente ainda não rodou!

Eu havia testado antes, sem o campo de destino na instrução, atribuindo à variável TextoParecer um texto qualquer (string) e rodou; testei novamente, atribuindo à variável TextoParecer um texto qualquer (string), com a inclusão do campo de destino (Parecer), e também rodou!

Só não roda da maneira que preciso: a variável TextoParecer, tipo variant, é resultado de uma série de cálculos envolvendo outras variáveis do tipo variant; seria esse o problema?

Obrigado!

Sim

Variant não é texto.

Experimente tirar as aspas simples da variável:

DoCmd.RunSQL "INSERT INTO tblParecer (Parecer) VALUES (" & TextoParecer & ")"

Creio que aí está a confusão, nomeou como texto (TextoParecer) um campo tipo Variant.

Teste e retorne .

Aguardo...

Noobezinho;

Fiz a modificação... ficou assim:

DoCmd.RunSQL "INSERT INTO tblParecer (Parecer) VALUES (" & TextoParecer & ")"

Mas ainda não deu certo.

Cheguei a modificar a formatação de texto na tabela tblParecer para Rich Text, antes e depois dessa modificação e também não rodou.

Obrigado!

Afinal é texto ou número?

Experimente assim:

dim teu_Valor as long 'coloque no inicio da sub

teuValor = Me.textoParecer


DoCmd.RunSQL "INSERT INTO tblParecer (Parecer) VALUES (" & teuValor & ")"

O conteúdo da variável TextoParecer envolve texto e número, por isso atribuí todas as variáveis como variant por ser mais flexível.

O conteúdo da variável TextoParecer é o resultado de textos explicativos concatenados por valores que comporão um parecer sobre fatos contábeis de um determinado período.

Vou experimentar sua nova sugestão e retorno.

Mais uma vez agradeço.

Noobezinho;

Fiz a alteração da variável para long, mas não rodou.

O script que preciso rodar é:

Dim TextoParecer As Variant

TextoParecer = "O total da despesa registra o valor de " & TotalPeriodo & " no período de " & DataRef & ", apresentando uma variação de " & FormatPercent((TotalPeriodo / TotalPeriodoAnterior) - 1) & " em relação ao total do mês anterior (" & MesAnterior & " = " & TotalPeriodoAnterior & "). O item '" & Me.Especificação & "', integrante da conta '" & Me.Conta & "', registra o valor de " & FormatCurrency(Me.Valor) & " e apresenta a maior despesa no período de " & DataRef & ", correspondendo a " & PercentValorMes & " do total da despesa do mesmo período. Em relação ao período anterior, o item '" & Me.Especificação & "' apresenta uma variação de " & PercentValorItemMesAnterior & " (" & MesAnterior & " = " & ValorItemMesAnterior & ")."

Response = MsgBox("" & TextoParecer) ' A MsgBox apresenta o texto concatenado com valores, perfeitamente!

DoCmd.RunSQL "INSERT INTO tblParecer (Parecer) VALUES (" & TextoParecer & ")" ' Aqui falha!!!



O conteúdo da variável TextoParecer envolve texto e número, por isso atribuí todas as variáveis do conteúdo como variant, por ser mais flexível.

O conteúdo da variável TextoParecer é o resultado de textos explicativos concatenados por valores que comporão um parecer sobre fatos contábeis de um determinado período.

Ainda falha!! Que dilema...!!!!

Mas continuo na batalha!!!

Obrigado pela paciência e esforço, Noobezinho; valeu!

Assim que conseguir, faço a postagem!!

Bom dia, se me permitem um pitaco.

Na tblParecer o campo parecer coloque como memorando

Ola Silvio;

O campo Parecer da tblParecer é do tipo memorando!

Estou estudando uma maneira de converter todo o conteúdo da variant TextoParecer em string, aí consigo passar o conteúdo para a linha:

DoCmd.RunSQL "INSERT INTO tblParecer (Parecer) VALUES ('" & TextoParecer & "')"

Valeu Silvio; obrigado!

bom dia noobezinho muito obrigado pela dica vou estudar mais sobre o assunto.

obrigado mesmo

O que posso sugeri sem ver o aplicativo em si.

Durante a somatória, transforme cada valor texto em numérico, use a função Val().

O que você pode fazer é, copiar parte de teu aplicativo, copiando somente a tabelas, form e consultas afins,

e colocar uns registros fictícios, e disponibilizar.

[ ]'s

Lucio, desculpe por insistir mas o seu documento Word mostra o resultado da msgbox na variável TextoParecer.

Precisamos ver a msgbox da instrução SQL.

Lucio, desconsidere minha mensagem anterior.

Se a instrução funciona com TextoParecer declarada como texto, por que não manter assim?
As demais variáveis podem permanecer como Variant.

Já que não pode enviar o banco, poderia postar o resultado da msgbox como texto no corpo da mensagem da sua resposta?
Assim facilita, poderei copiar o conteúdo da variável TextoParecer e fazer uns testes.

Prezado Cláudio Más;

Você sempre prestativo, obrigado!

Eu postei o retorno da MsgBox na mensagem nº 7.

Estou implementando a seguinte solução:

1º) Ao definir o conteúdo da variável TextoParecer utilizei a Função CVar() em toda a parte referente a texto, convertendo todos os caracteres em variant; veja:

TextoParecer = CVar("O total da despesa registra o valor de ") & TotalPeriodo & CVar(" no período de ") & DataRef & CVar(", apresentando uma variação de ") & FormatPercent((TotalPeriodo / TotalPeriodoAnterior) - 1) & CVar(" em relação ao total do mês anterior (") & MesAnterior & CVar(" = ") & TotalPeriodoAnterior

Deu certo, mas não insere todo o conteúdo na tblParecer; o conteúdo da variável TextoParecer era bem mais extenso do que o agora definido neste post;

2º) Pelo que pude constatar, há uma limitação no tamanho do conteúdo a ser acrescido pela instrução:

DoCmd.RunSQL "INSERT INTO tblParecer (Parecer) VALUES ('" & TextoParecer & "')"

Assim sendo estou particionando todo o conteúdo da variável TextoParecer em TextoParecer2, TextoParecer3 ... Evidentemente que o desempenho não será o melhor já que serão várias viagens à tabela tblParecer para compor todo o teor do parecer;

3º) Terei que encontrar uma maneira de incluir o conteúdo do TextoParecer2 ao final do conteúdo do TextoParecer já adicionado na tblParecer.

Acredito não ser a forma ideal, mas estou tentando evoluir; não posso me conformar, preciso melhorar sempre.

Evidentemente que a ajuda dos prestativos colegas sempre é muito bem vinda, afinal as colaborações têm uma natureza didática fazendo com que eu aprenda muto aqui no Forum!

Obrigado!

Lucio, você postou o resultado das msgbox como imagem, e assim não posso copiar, precisaria como texto.
Mas vou tentar fazer uma simulação e testar.

O que você está tentando agora pode funcionar, mas pode haver uma solução mais simples.

Cláudio Más;

Sem sombra de dúvidas há uma solução mais simples e melhor!

Tenho que encontrá-la, com com colaboração de todos é claro.

Obrigado por sua paciência!!

Lucio, realmente o problema é com a instrução, que parece estar "confundindo" aspas.

Veja o resultado do print da instrução, que eu venho te pedindo há séculos... rsrs  

INSERT INTO tblParecer VALUES ('O total da despesa registra o valor de R$ 30.000,00 no período de março de 2016, apresentando uma variação de -18,04% em relação ao total do mês anterior (fevereiro de 2016 = R$ 41.000,00). O item 'Reforma do pedido', integrante da conta 'benfeitorias no condominio', registra o valor de R$ 11.000,00 e apresenta a maior despesa no período de março de 2016, correspondendo a 32,47% do total da despesa do mesmo período. Em relação ao período anterior, o item 'Reforma do prédio' apresenta uma variação de -50,32% (fevereiro de 2016 = R$ 22.000,00).')

Percebeu o problema com as aspas?
Repare que trocando aspas por outro caracter (*), funciona:

INSERT INTO tblParecer VALUES ('O total da despesa registra o valor de R$ 30.000,00 no período de março de 2016, apresentando uma variação de -18,04% em relação ao total do mês anterior (fevereiro de 2016 = R$ 41.000,00). O item *Reforma do pedido*, integrante da conta *benfeitorias no condominio*, registra o valor de R$ 11.000,00 e apresenta a maior despesa no período de março de 2016, correspondendo a 32,47% do total da despesa do mesmo período. Em relação ao período anterior, o item *Reforma do prédio* apresenta uma variação de -50,32% (fevereiro de 2016 = R$ 22.000,00).')

Prezado Cláudio Más;

Você conseguiu desvendar o problema!!!

Removi as aspas simples, que serviam apenar para destacar alguns itens, e tudo funcionou com a maior perfeição!!!!

Agradeço imensamente sua colaboração, interesse e paciência!!!!

Obrigado!!!

Valeu, de nada.