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

2 participantes

    [Resolvido]Importando do Access para Excel

    avatar
    Robert_2012
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 114
    Registrado : 07/03/2012

    [Resolvido]Importando do Access para Excel Empty [Resolvido]Importando do Access para Excel

    Mensagem  Robert_2012 7/10/2013, 14:57


    Tenho um formulário em vba excel onde gravo os dados em um banco de dados
    Tenho um Textbox onde habilitei opção de multilinha.
    quando os dados são gravados na tabela ele grava também considerando as quebras de multilinha.

    Estou fazendo uma pesquisa nesse banco e trazendo os dados para uma planilha do excel
    Quando os dados aparecem eles vem no seguinte formato

    "CAPACITAR OS ASSISTENTES A ATEN
    DER CLIENTES QUE CONTATAM SOLI
    CITANDO NOVAS ASSINATURAS UTILI
    ZANDO DE FORMA CORRETA OS CÓ
    DIGOS PROMOCIONAIS."

    Existe uma forma de trazer esses dados em uma unica linha

    "CAPACITAR OS ASSISTENTES A ATENDER CLIENTES QUE CONTATAM SOLICITANDO NOVAS ASSINATURAS UTILIZANDO DE FORMA CORRETA OS CÓDIGOS PROMOCIONAIS."


    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Importando do Access para Excel Empty Re: [Resolvido]Importando do Access para Excel

    Mensagem  criquio 7/10/2013, 15:24

    Já tentou substituir as quebras de linhas por espaço?

    Me.NomeDoControle = Replace(NomeCampo, vBcRlF, " ")


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Robert_2012
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 114
    Registrado : 07/03/2012

    [Resolvido]Importando do Access para Excel Empty Importando do Access para Excel

    Mensagem  Robert_2012 7/10/2013, 16:05


    Tentei colocar num campo na tabela de consulta mas esta dando erro

    Teste: Replace( [Cadastro_Turmas]![Objetivo] ,vbcrlf, " " )

    Sabe me dizer onde esta o erro nesse comando?
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Importando do Access para Excel Empty Re: [Resolvido]Importando do Access para Excel

    Mensagem  criquio 7/10/2013, 18:00

    Se é em consulta ou na origem de um campo de um formulário ou relatório, deve-se trocar as vírgulas por ponto e vírgula. E sendo na consulta, o mais prático é ter o campo da tabela na consulta e criar o outro campo com a instrução:

    Teste: Replace([Objetivo];vbcrlf;" ")


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Robert_2012
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 114
    Registrado : 07/03/2012

    [Resolvido]Importando do Access para Excel Empty Importando do Access para Excel

    Mensagem  Robert_2012 7/10/2013, 18:19

    Criquio,

    Agora deu certo.

    o Código ficou assim. Teste: Substituir([Objetivo];" ";" ").

    Existe alguma forma de colocar nesse código uma condição de erro.

    É Porque quando o campo esta vazio ele traz o resultado  "#Erro"

    Da para colocar uma função para quando der erro ele atribuir vazio no campo
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Importando do Access para Excel Empty Re: [Resolvido]Importando do Access para Excel

    Mensagem  criquio 7/10/2013, 18:36

    Tente assim:
    Teste: Iif(IsError(Substituir([Objetivo]);"";" ";" "))

    ou coloque outro campo calculado de nome SemErro por exemplo e coloque:
    Iif(IsError([Teste]);"";[Teste])


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Robert_2012
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 114
    Registrado : 07/03/2012

    [Resolvido]Importando do Access para Excel Empty Importando do Access para Excel

    Mensagem  Robert_2012 7/10/2013, 19:32

    Criquio,

    Joguei conforme você disse dentro da tabela e funcionou.

    Mas quando vou abrir o formulário esta dando a mensagem.

    -2147217900
    Função 'replace' indefinida na expressão.

    Você já viu isso?
    avatar
    Robert_2012
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 114
    Registrado : 07/03/2012

    [Resolvido]Importando do Access para Excel Empty Importando do Access para Excel

    Mensagem  Robert_2012 25/7/2014, 18:37

    Obrigado pela ajuda.

      Data/hora atual: 7/12/2022, 12:37