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

Voltar ao topo

Método 1

1. Na janela Base de dados, seleccione a tabela ou consulta em que o relatório se baseia.
2. No menu ficheiro , clique em Exportar .
3. No Exportar tabela '< Nome da Tabela >' caixa de diálogo, seleccione Microsoft Excel 97-2000 (*.xls) na caixa Guardar c/ o tipo de.
4. Clique em Guardar para exportar a tabela.

Voltar ao topo

Método 2

1. Siga os passos 1 a 7 na secção "Passos para reproduzir o comportamento" mais adiante neste artigo.
2. Crie um novo relatório na vista de estrutura com base na tabela tblMemoOutput.
3. Arraste o campo código para a secção de detalhe do relatório.
4. Guarde o relatório como rptMemoOutput.
5. Abra um novo módulo e escreva 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 guarde o módulo como mdlSplitFunction.
7. Escreva o seguinte na janela Immediate e prima ENTER:

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

8. Ver o relatório no modo Pré-visualizar. No menu Ferramentas , aponte para Ligações do Office e, em seguida, clique em Analisar com o MS Excel .
9. Quando aparecerem os dados num ficheiro de folha de cálculo no Microsoft Excel, clique em célula A1 ; prima CTRL + SHIFT+END para seleccionar todos os dados.
10. No menu Formatar , aponte para linhas e, em seguida, clique em Ajustar automaticamente .
11. Seleccione a célula A2 . No menu Inserir , clique em linhas .
12. Escreva a seguinte fórmula na célula A2:
    =VALUE(LEFT(A1,FIND("M",A1,1)-1))
13. Copie a fórmula para as células B2 - U2 .
14. Seleccione as células 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 . Isto converte as fórmulas na segunda linha para valores que pode utilizar para ordenar os segmentos do campo Notas.
18. Clique na célula A2 e prima CTRL + SHIFT+END para seleccionar tudo, mas a primeira linha de dados.
19. No menu dados , clique em ' Ordenar '.
20. Na caixa de diálogo Ordenar , clique em Opções .
21. Em orientação na caixa de diálogo Opções de ordenação , clique em Ordenar da esquerda para direita . Em seguida, clique em OK .
22. Na caixa de diálogo Ordenar , clique em Row2 na lista de Ordenar por e, em seguida, clique em OK para ordenar os segmentos do campo notas .
23. Na célula W3 , escreva 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 remontar o campo notas para cada registo.

Voltar ao topo

Passos para reproduzir o comportamento

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

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

3. Guarde a tabela como tblMemoOutput. Quando lhe for pedido para criar uma chave primária, clique em não .
4. Abra a tabela na vista de folha de dados e introduza os seguintes registos:

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

5. Abra um novo módulo e escreva 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 guarde o módulo como mdlDataFunction.
7. Introduza o seguinte na janela Immediate e prima ENTER:

   ?FillMemo("tblMemoOutput","Notes")
   					

8. Utilizar o relatório automático: colunas Assistente para criar um relatório com base no tblMemoOutput. Ver o relatório no modo Pré-visualizar.
9. No menu Ferramentas , aponte para Ligações do Office e, em seguida, clique em Analisar com o MS Excel .
10. Quando aparecerem os dados num ficheiro de folha de cálculo no Microsoft Excel, escreva a seguinte fórmula na célula C2:
    =LEN(B2)
    Tenha em atenção que a dados no campo Notas foram truncados para 255 caracteres.

Voltar ao topo