ACC2000: Cómo imprimir el valor de propiedad OrigenDelRegistro (RecordSource) de todos los informes

Id. de artículo: 210293 - Ver los productos a los que se aplica este artículo
Traducción automáticaAdvertencia: Artículo de Traducción Automática, vea la exención de responsabilidad.
Moderada: Requiere macro básico, codificación y las capacidades de interoperabilidad.

Este artículo se aplica únicamente a las bases de datos de Microsoft Access (.mdb).

Expandir todo | Contraer todo

Resumen

En este artículo se muestra cómo crear un procedimiento que imprime una lista de cada informe en una base de datos y su valor de propiedad OrigenDelRegistro (RecordSource) en la ventana Inmediato.

Más información

La colección de informes es el conjunto de todos los informes abiertos. Un método para imprimir el valor de propiedad OrigenDelRegistro (RecordSource) de cada informe es ir a través del conjunto de documentos del informe, abra cada uno de ellos en la vista Diseño y obtener el valor de propiedad RecordSource . Este artículo presenta un procedimiento que utiliza ese método. Procesa automáticamente todos los informes definidos en la base de datos. Para crear el procedimiento, siga estos pasos:

Precaución : Si sigue los pasos descritos en este ejemplo, modificará la base de datos de ejemplo Neptuno.mdb. Quizás desee hacer una copia de seguridad del archivo Neptuno.mdb y realizar estos pasos sobre una copia de la base de datos.

  1. Inicie Microsoft Access y abra la base de datos de ejemplo Neptuno.mdb.
  2. Cree un nuevo módulo y, a continuación, escriba o pegue el siguiente ejemplo de código: 
    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 True
End Sub
  3. Para ver una lista de informes y sus valores de propiedad OrigenDelRegistro (RecordSource) , escriba la línea siguiente en la ventana Inmediato y, a continuación, presione ENTRAR:
    ListReports

Propiedades

Id. de artículo: 210293 - Última revisión: martes, 29 de junio de 2004 - Versión: 2.0
La información de este artículo se refiere a:
  • Microsoft Access 2000 Standard Edition
Palabras clave: 
kbmt kbhowto kbinfo kbprogramming KB210293 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 210293
(http://support.microsoft.com/kb/210293/en-us/ )
Volver al principio | Enviar comentarios

Enviar comentarios

 
Volver al principioVolver al principio