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