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]Conversão do conteúdo de uma variável

    avatar
    Walter Florencio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 06/07/2013

    [Resolvido]Conversão do conteúdo de uma variável Empty Conversão do conteúdo de uma variável

    Mensagem  Walter Florencio 24/9/2013, 02:18

    Olá pessoal estou de volta.

    Faço uso de indicadores para criar alguns documentos no Word a partir de uma tabela no sistema.

    Só que como uso mais de 100 indicadores em vários arquivos, o código no formulário fica
    grande demais, como os colegas podem ver abaixo:

    01    If .ActiveDocument.Bookmarks.Exists("v01") = True Then
    02        .ActiveDocument.Bookmarks("v01").Select
    03        If Not IsNull(DELEGACIA) Then
    04            .Selection.Text = DELEGACIA
    05        End If
    06    End If
    07...


    847   If .ActiveDocument.Bookmarks.Exists("v142") = True Then
    848        .ActiveDocument.Bookmarks("v142").Select
    849        If Not IsNull(PRESIDIO) Then
    850            .Selection.Text = PRESIDIO

    851        End If
    852    End If

    =============================================================

    Como solução resolvi criar um For Next que diminuiu de mais de 800 linhas para apenas 18, no entanto me surgiu uma dificuldade
    que não estou ainda apto a resolver.

    Vejam o código abaixo.
    =======================================
    01    Dim i As Integer
    02    Dim intLista As Integer
    03    Dim strInd As String
    04    Dim strCampo As String
       
    05    intLista = Me.Comb_Indicador.ListCount
       
       
    06    For i = 1 To intLista
       
    07 strInd = Me.Comb_Indicador.Column(0, i - 1)
    08     strCampo = Me.Comb_Indicador.Column(1, i - 1)
       
    09     'Verifica se o indicador existe no arquivo escolhido
           
    10        If .ActiveDocument.Bookmarks.Exists(strInd) = True Then
    11            'se existir seleciona o indicador
    12            .ActiveDocument.Bookmarks(strInd).Select
               
    13            'verifica se o indicador existente se encontra com o campo vazio
    14            If Not IsNull(strCampo) Then
    15                .Selection.Text = strCampo
    16            End If
               
    17        End If
    18    Next i
    =========================================

    A variável strCampo do tipo string (linha 14 e 15) retorna o nome do campo da tabela que uso para
    alimentar os indicadores no word, no entanto está retornando o nome do campo entre aspas "PRESIDIO" e aí
    não consegue relacionar o campo da tabela com o conteúdo do campo.

    Vejam que na forma anterior (linha 849 e 850) o nome do campo é reconhecido como o campo da tabela.

    A pergunta é: Como fazer para que o conteúdo da variável strCampo retorne o nome do campo da tabela, sem as aspas.

    Inicialmente pensei em uma função, mas não consegui encontrar nada a respeito no help do access  .

    Agradeço a ajuda.
    le_lo28
    le_lo28
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 13/07/2011

    [Resolvido]Conversão do conteúdo de uma variável Empty Re: [Resolvido]Conversão do conteúdo de uma variável

    Mensagem  le_lo28 24/9/2013, 12:19

    Olá! Não sei se entendi bem, mas vou tentar ajudar!

    Se vc quer retirar as aspas pode usar:

    Código:


    replace(strCampo, "'","")

    Espero que ajude.

    Vlw,


    .................................................................................
    [Resolvido]Conversão do conteúdo de uma variável Assinaturacross
    M@rcelo
    avatar
    Walter Florencio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 06/07/2013

    [Resolvido]Conversão do conteúdo de uma variável Empty RE

    Mensagem  Walter Florencio 24/9/2013, 22:37

    Caro le_lo28.
    Desculpe-me pela demora em responder.

    Obrigado pela sua atenção e desprendimento.

    A sua ideia tem sentido. No entanto resolvi o problema colocando antes da variável (strCampo) a palavra-chave Me. e aí o resultado foi
    que retornou o conteúdo do campo, resolvendo assim meu problema.

    Obrigado.
    le_lo28
    le_lo28
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 13/07/2011

    [Resolvido]Conversão do conteúdo de uma variável Empty Re: [Resolvido]Conversão do conteúdo de uma variável

    Mensagem  le_lo28 25/9/2013, 12:29

    Ótimo! O fórum agradece o retorno! cheers 


    .................................................................................
    [Resolvido]Conversão do conteúdo de uma variável Assinaturacross
    M@rcelo

    Conteúdo patrocinado


    [Resolvido]Conversão do conteúdo de uma variável Empty Re: [Resolvido]Conversão do conteúdo de uma variável

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/5/2024, 12:31