ACC2000: Campo de memorando truncado ao relatório é a saída para o Excel

Voltar para o início

Método 1

1. Na janela banco de dados, selecione a tabela ou consulta na qual o relatório é baseado.
2. No menu arquivo , clique em Exportar .
3. No Exportar tabela '< Nome da Tabela >' caixa de diálogo, selecione Microsoft Excel 97-2000 (*.xls) na caixa Salvar como tipo .
4. Clique em Salvar para exportar a tabela.

Voltar para o início

Método 2

1. Execute as etapas 1 a 7 na seção "Passos para reproduzir o problema mostrados" posteriormente neste artigo.
2. Crie um novo relatório no modo de design com base na tabela tblMemoOutput.
3. Arraste o campo ID à seção detalhe do relatório.
4. Salve o relatório como rptMemoOutput.
5. Abra um novo módulo e digite o seguinte procedimento:

   Function MemoSplitter(strReportName As String, _
      strFieldName As String, lngMemoLength As Long)
   
      Dim NewControl As Control
      Dim intLoopCount As Integer
      For intLoopCount = 0 To lngMemoLength / 250
   
         Set NewControl = CreateReportControl(strReportName, _
            acTextBox, acDetail)
         NewControl.Name = intLoopCount & "MemoText"
         NewControl.ControlSource = "=Mid([" & _
            strFieldName & "]," & 250 * intLoopCount + 1 _
            & ",250)"
      Next intLoopCount
   
   End Function
   					

6. Compile e salve o módulo como mdlSplitFunction.
7. Digite o seguinte na janela Verificação imediata e, em seguida, pressione ENTER:

   ?MemoSplitter("rptMemoOutput","Notes",5200)
   					

8. Exiba o relatório em Visualizar impressão. No menu Ferramentas , aponte para Vínculos do Office e, em seguida, clique em Analisar com o Microsoft Excel .
9. Quando os dados for exibida em um arquivo de planilha em Microsoft Excel, clique em célula A1 ; pressione CTRL + SHIFT + END para selecionar todos os dados.
10. No menu Formatar , aponte para linha e, em seguida, clique em AutoAjuste .
11. Selecione a célula A2 . No menu Inserir , clique em linhas .
12. Digite a seguinte fórmula na célula A2:
    =VALUE(LEFT(A1,FIND("M",A1,1)-1))
13. Copie a fórmula para células B2 - U2 .
14. Selecione as células de A2 - U2 .
15. No menu Editar , clique em Copiar .
16. No menu Editar , clique em Colar especial .
17. Em Colar na caixa de diálogo Colar especial , clique em valores e, em seguida, clique em OK . Isso converte as fórmulas na segunda linha para valores, que você pode usar para classificar os segmentos do campo do Notes.
18. Clique na célula A2 e pressione CTRL + SHIFT + END para selecionar todos os mas a primeira linha de dados.
19. No menu dados , clique em Classificar .
20. Na caixa de diálogo Classificar , clique em Opções .
21. Em orientação na caixa de diálogo Opções de classificação , clique em Classificar da esquerda para direita . Em seguida, clique em OK .
22. Na caixa de diálogo Classificar , clique em Row2 na lista Classificar por e, em seguida, clique em OK para classificar os segmentos do campo do Notes .
23. Na célula W3 , digite a seguinte fórmula:
    =CONCATENATE(A3,B3,C3,D3,E3,F3,G3,H3,I3,J3,K3,L3,M3,N3,O3,P3,Q3,R3,S3,T3,U3)
24. Copie a fórmula para células W3 e W4 para remontar o campo anotações para cada registro.

Voltar para o início

Etapas para reproduzir o problema

1. Inicie o Microsoft Access e abra qualquer banco de dados.
2. Crie a seguinte tabela denominada tblMemoOutput:

      Table: tblMemoOutput
      --------------------
      Field Name: ID
      Data Type: Text
      Field Name: Notes
      Data Type: Memo
   					

3. Salve a tabela como tblMemoOutput. Quando solicitado a criar uma chave primária, clique em não .
4. Abra a tabela no modo folha de dados e digite os seguintes registros:

      ID   Notes
      --   -----
      a    a
      b    b
      c    c
   					

5. Abra um novo módulo e digite o seguinte procedimento:

   Function FillMemo(strTableName As String, _
      strFieldName As String)
   
      Dim db As Database
      Dim rs As Recordset
      Dim intLoopCount As Integer
   
      Set db = CurrentDb
      Set rs = db.OpenRecordset(strTableName)
   
      Do Until rs.EOF
         rs.Edit
   
         For intLoopCount = 1 To 26
            rs(strFieldName) = rs(strFieldName) _
               & String(200, Chr(intLoopCount + 64))
         Next intLoopCount
   
         rs.Update
         rs.MoveNext
      Loop
   
      db.Close
   
   End Function
   
   					

6. Compile e salve o módulo como mdlDataFunction.
7. Digite o seguinte na janela Verificação imediata e, em seguida, pressione ENTER:

   ?FillMemo("tblMemoOutput","Notes")
   					

8. Use o AutoRelatório: Colunar Assistente para criar um relatório com base em tblMemoOutput. Exiba o relatório em Visualizar impressão.
9. No menu Ferramentas , aponte para Vínculos do Office e, em seguida, clique em Analisar com o Microsoft Excel .
10. Quando os dados aparecem em um arquivo de planilha no Microsoft Excel, digite a seguinte fórmula na célula C2:
    =LEN(B2)
    Observe que a dados no campo anotações foram truncados para 255 caracteres.

Voltar para o início