ACC2000: Como imprimir o valor da propriedade OrigemDosRegistos para todos os relatórios

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 revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática… erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 210293
Este artigo foi arquivado. Este artigo é oferecido "tal como está" e deixará de ser actualizado.
Moderado: Requer básica macros, codificação e interoperabilidade competências.

Este artigo aplica-se apenas a uma base de dados do Microsoft Access (.mdb).

Sumário
Este artigo mostra como criar um procedimento que imprime uma lista de cada relatório numa base de dados e o valor da propriedade OrigemDosRegistos para a janela Immediate.
Mais Informação
A colecção de relatórios é o conjunto de todos os relatórios. Um método para imprimir o valor da propriedade OrigemDosRegistos de cada relatório consiste através de conjunto de documentos de relatório, abra cada um na vista de estrutura e obter o valor da propriedade OrigemDosRegistos . Este artigo apresenta um procedimento que utiliza esse método. Processa automaticamente todos os relatórios definidos na base de dados. Para criar o procedimento, siga estes passos:

atenção : Se seguir os passos neste exemplo, modificará a base de dados de exemplo Adamastor.mdb. Convém cópia de segurança do ficheiro de base de dados Adamastor.mdb e siga estes passos numa cópia da base de dados.

  1. Inicie o Microsoft Access e abra a base de dados de exemplo Adamastor.mdb.
  2. Criar um novo módulo e, em seguida, escreva ou cole o seguinte código de exemplo:
    Sub ListReports()   Dim db As DAO.Database, doc As Document, con As Container   Set db = CurrentDb()   Set con = db.Containers("Reports")   Application.Echo False   For Each doc In con.Documents      Debug.Print "Report Name:", doc.Name      DoCmd.OpenReport doc.Name, acViewDesign      Debug.Print "RecordSource:", Reports(doc.Name).RecordSource      Debug.Print      DoCmd.Close acReport, doc.Name   Next   Application.Echo TrueEnd Sub					
  3. Para ver uma lista de relatórios e os valores de propriedade OrigemDosRegistos , escreva a seguinte linha na janela Immediate e prima ENTER:
    ListReports

Aviso: Este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 210293 - Última Revisão: 01/28/2014 23:44:02 - Revisão: 2.0

Microsoft Access 2000 Standard Edition

  • kbnosurvey kbarchive kbmt kbhowto kbinfo kbprogramming KB210293 KbMtpt
Comentários