MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


5 participantes

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

    avatar
    Lucio Warley Lippi
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 07/01/2017

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

    Mensagem  Lucio Warley Lippi 18/1/2017, 13:24

    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.
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

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

    Mensagem  Cláudio Más 18/1/2017, 13:38

    Inclua a linha abaixo:

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

    Verifique se a instrução SQL da mensagem está ok.
    avatar
    Lucio Warley Lippi
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 07/01/2017

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

    Mensagem  Lucio Warley Lippi 18/1/2017, 13:47

    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.
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

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

    Mensagem  Cláudio Más 18/1/2017, 18:35

    Lucio, verifique minha mensagem anterior.
    A intenção é analisar a instrução SQL através da msgbox.
    avatar
    Lucio Warley Lippi
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 07/01/2017

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

    Mensagem  Lucio Warley Lippi 18/1/2017, 19:01

    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!!
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

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

    Mensagem  Cláudio Más 18/1/2017, 19:14

    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?
    avatar
    Lucio Warley Lippi
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 07/01/2017

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

    Mensagem  Lucio Warley Lippi 18/1/2017, 19:44

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

    Agradeço!!
    Anexos
    [Resolvido]DoCmd.RunSQL "INSERT INTO tblParecer VALUES ('" & TextoParecer & "')" não roda AttachmentResultado da msgbox.docx
    Você não tem permissão para fazer download dos arquivos anexados.
    (233 Kb) Baixado 5 vez(es)
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho 18/1/2017, 23:54

    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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    Lucio Warley Lippi
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 07/01/2017

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

    Mensagem  Lucio Warley Lippi 19/1/2017, 00:06

    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!!!
    marcelo marques
    marcelo marques
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1003
    Registrado : 12/04/2016

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

    Mensagem  marcelo marques 19/1/2017, 00:28

    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
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho 19/1/2017, 00:38

    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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    Lucio Warley Lippi
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 07/01/2017

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

    Mensagem  Lucio Warley Lippi 19/1/2017, 09:45

    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!
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho 19/1/2017, 09:58

    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...




    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    Lucio Warley Lippi
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 07/01/2017

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

    Mensagem  Lucio Warley Lippi 19/1/2017, 10:09

    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!
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho 19/1/2017, 10:15

    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 & ")"


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    Lucio Warley Lippi
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 07/01/2017

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

    Mensagem  Lucio Warley Lippi 19/1/2017, 10:26

    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.
    avatar
    Lucio Warley Lippi
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 07/01/2017

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

    Mensagem  Lucio Warley Lippi 19/1/2017, 10:52

    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!!
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

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

    Mensagem  Silvio 19/1/2017, 11:03

    Bom dia, se me permitem um pitaco.

    Na tblParecer o campo parecer coloque como memorando


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Lucio Warley Lippi
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 07/01/2017

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

    Mensagem  Lucio Warley Lippi 19/1/2017, 11:15

    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!
    marcelo marques
    marcelo marques
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1003
    Registrado : 12/04/2016

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

    Mensagem  marcelo marques 19/1/2017, 11:41

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

    obrigado mesmo
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho 19/1/2017, 12:15


    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





    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

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

    Mensagem  Cláudio Más 19/1/2017, 12:39

    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.
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

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

    Mensagem  Cláudio Más 19/1/2017, 12:50

    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.
    avatar
    Lucio Warley Lippi
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 07/01/2017

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

    Mensagem  Lucio Warley Lippi 19/1/2017, 14:05

    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!
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

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

    Mensagem  Cláudio Más 19/1/2017, 14:12

    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.
    avatar
    Lucio Warley Lippi
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 07/01/2017

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

    Mensagem  Lucio Warley Lippi 19/1/2017, 14:20

    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!!
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

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

    Mensagem  Cláudio Más 19/1/2017, 14:25

    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  Laughing

    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).')
    avatar
    Lucio Warley Lippi
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 07/01/2017

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

    Mensagem  Lucio Warley Lippi 19/1/2017, 14:45

    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!!!
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

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

    Mensagem  Cláudio Más 19/1/2017, 17:23

    Valeu, de nada.

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 22:35