ACC2002: Como criar programaticamente uma exibição de gráfico dinâmico em um formulário do Access

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 304143
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
Avançadas: Requer especialista de codificação, interoperabilidade e habilidades de multiusuário.

Este artigo se aplica a um banco de dados do Microsoft Access (.mdb) e para um projeto Microsoft Access (.adp).

Sumário
No Microsoft Access 2002, você pode exibir tabelas, consultas, modos de exibição, funções e formulários no modo de gráfico dinâmico. Isso é possível porque o Access 2002 nativamente hospeda o Microsoft Office Web Components. Este artigo mostra como usar o modelo de objeto do Office Web Components para criar um modo de gráfico dinâmico em um formulário do Microsoft Access através de programação.
Mais Informações
Microsoft Access expõe o modelo de objeto de gráfico dinâmico através da propriedade ChartSpace de um formulário. Há um número de objetos e métodos que você deve usar para criar um modo de gráfico dinâmico em um formulário do Microsoft Access através de programação. A tabela a seguir explica rapidamente o que faz cada método.


NomeDescrição
objeto ChChart Representa um gráfico na área de trabalho de gráfico.
método Add Cria um gráfico novo e vazio ou adiciona uma série a um gráfico, dependendo do objeto prosseguir.
método Clear Exclui todos os gráficos na área de trabalho do gráfico e redefine toda a formatação para os valores padrão.
propriedade SeriesCollection Retorna a coleção ChSeriesCollection do gráfico especificado.
SetData Define os dados para o objeto gráfico especificado.

cuidado : se você seguir as etapas neste exemplo, você modificar o banco de dados de exemplo Northwind.mdb. Convém fazer o backup do arquivo Northwind.mdb e seguir essas etapas numa cópia do banco de dados.

Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação para uma finalidade específica. Este artigo presume que você está familiarizados com a linguagem de programação que está sendo demonstrada e com as ferramentas que são usadas para criar e depurar procedimentos. Engenheiros de suporte podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades.
  1. Inicie o Access.
  2. No menu Ajuda , aponte para Bancos de dados de exemplo e, em seguida, clique em Banco de dados de exemplo Northwind .
  3. Crie uma nova consulta que se baseia os funcionários e as tabelas Pedidos.
  4. Adicione os seguintes campos à consulta:
       Query: qrySales   ------------------------------------------------   Type: Select Query   Join: Employees.EmployeeID <-> Orders.EmployeeID   Field: LastName   Table: Employees   Total: Group By   Sort:  Ascending   Field: OrderID   Table: Orders   Total: Count 					
  5. Salve a consulta como qryOrdersbyEmployees e fechá-lo.
  6. Criar um novo formulário baseado em consulta qryOrdersbyEmployees e abra-o no modo de design.
  7. Adicione todos os campos ao formulário.
  8. Salve o formulário como frmPivotChart e fechá-lo.
  9. No menu Inserir , clique em módulo . Isso abre o Editor do Visual Basic e insere um módulo novo e em branco.
  10. No menu Ferramentas , clique em referências .
  11. Clique em Procurar .
  12. Procure e selecione o seguinte arquivo e em seguida, clique em Abrir . Isso adiciona uma referência à biblioteca do Microsoft Office XP Web Components.
    C:\Program Files\Common Files\Microsoft Shared\Web Components\10\OWC10.DLL
  13. Clique em OK para fechar a caixa de diálogo referências .
  14. Adicione o seguinte código Visual Basic for Applications (VBA) ao novo módulo:
      Sub BuildPivotChart()  Dim objPivotChart As OWC10.ChChart  Dim objChartSpace As OWC10.ChartSpace  Dim frm As Access.Form  Dim strExpression As String  Dim rs As Recordset  Dim values  Dim axCategoryAxis  Dim axValueAxis  'Open the form in PivotChart view.  DoCmd.OpenForm "frmPivotChart", acFormPivotChart  Set frm = Forms("frmPivotChart")  Set rs = frm.Recordset    'Loop through Recordset to obtain data for the chart and put in strings.  rs.MoveFirst    Do While Not rs.EOF        strExpression = strExpression & rs.Fields(0).Value & Chr(9)        values = values & rs.Fields(1).Value & Chr(9)        rs.MoveNext    Loop  rs.Close  Set rs = Nothing    'Trim any extra tabs from string.  strExpression = Left(strExpression, Len(strExpression) - 1)  values = Left(values, Len(values) - 1)       'Clear existing Charts on Form if present and add a new chart to the form.  'Set object variable equal to the new chart.  Set objChartSpace = frm.ChartSpace  objChartSpace.Clear  objChartSpace.Charts.Add  Set objPivotChart = objChartSpace.Charts.Item(0)    'Set a variable to the Category (X) axis.  Set axCategoryAxis = objChartSpace.Charts(0).Axes(0)      ' Set a variable to the Value (Y) axis.  Set axValueAxis = objChartSpace.Charts(0).Axes(1)  ' The following two lines of code enable, and then  ' set the title for the category axis.  axCategoryAxis.HasTitle = True  axCategoryAxis.Title.Caption = "Employees"      ' The following two lines of code enable, and then  ' set the title for the value axis.  axValueAxis.HasTitle = True  axValueAxis.Title.Caption = "Orders"      'Add Series to Chart and set the caption.  objPivotChart.SeriesCollection.Add  objPivotChart.SeriesCollection(0).Caption = "Orders"    'Add Data to the Series.  objPivotChart.SeriesCollection(0).SetData chDimCategories, chDataLiteral, strExpression  objPivotChart.SeriesCollection(0).SetData chDimValues, chDataLiteral, values    'Set focus to the form and destroy the form object from memory.  frm.SetFocus  Set frm = Nothing  End Sub 					
  15. No menu Exibir , clique em Janela imediata .
  16. Digite o seguinte na janela imediata e, em seguida, pressione ENTER:
    BuildPivotChart					
  17. No menu arquivo , clique em Fechar e voltar para o Microsoft Access .
Referências
Para obter mais informações sobre o modelo de objeto de tabela dinâmica , consulte o arquivo de Ajuda "Microsoft Office Web Components Visual Basic Reference" (Owcvba10.chm). Você pode encontrar esse arquivo de ajuda na pasta específicos do idioma (por exemplo, a pasta 1033) no seguinte local padrão:
C:\Program Files\Common Files\Microsoft Shared\Web Components\10
Por exemplo, se você estiver usando a versão em inglês do Microsoft Office XP, você pode localizar este arquivo de Ajuda no seguinte local:
C:\Program Files\Common Files\Microsoft Shared\Web Components\10\1033
inf, kbdta gráfico dinâmico

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 304143 - Última Revisão: 12/06/2015 04:09:41 - Revisão: 4.0

Microsoft Access 2002 Standard Edition

  • kbnosurvey kbarchive kbmt kbhowto KB304143 KbMtpt
Comentários