Propiedad Report.RecordSource (Access)

Use la propiedad RecordSource para especificar el origen de los datos de un informe. String de lectura y escritura.

Sintaxis

más sencilla.Origen de registros

expresión Variable que representa un objeto Report .

Comentarios

El valor de la propiedad RecordSource puede ser un nombre de tabla, un nombre de una consulta o una instrucción SQL. Por ejemplo, se pueden usar los siguientes valores:

Valor de ejemplo	Descripción
Empleados	Un nombre de tabla que especifica la tabla Empleados como origen de datos.
SELECT Orders!OrderDate FROM Orders;	Una instrucción SQL que especifica el campo FechaPedido de la tabla Pedidos como origen de datos. Puede enlazar un control en el formulario o informe al campo FechaDePedido de la tabla Pedidos estableciendo la propiedad Origen del control en FechaDePedido.

Nota:

Si se modifica el origen de registro de un formulario o informe abiertos, se vuelve a crear automáticamente una consulta de los datos subyacentes. Si la propiedad Recordset de un formulario se configura en el tiempo de ejecución, se actualiza la propiedad RecordSource del formulario.

Después de haber creado un formulario o informe, puede cambiar su origen de datos cambiando la propiedad RecordSource. La propiedad RecordSourcetambién es útil si desea crear un formulario o informe reutilizable. Por ejemplo, podría crear un informe que incorpore un diseño estándar y después copiar el informe y cambiar la propiedad Origen de registros a fin de mostrar los datos de otra tabla, consulta o instrucción SQL.

Ejemplo

En el ejemplo siguiente se establece la propiedad RecordSource de un formulario en la tabla Clientes .

Forms!frmCustomers.RecordSource = "Customers"

En el ejemplo siguiente se cambia el origen de registros de un formulario a un único registro en la tabla Clientes , según el nombre de la compañía seleccionado en el control de cuadro combinado cmboCompanyName . El cuadro combinado se rellena mediante una instrucción SQL que devuelve el identificador de cliente (en la columna enlazada) y el nombre de la compañía. El CustomerID tiene un tipo de datos texto.

Sub cmboCompanyName_AfterUpdate() 
    Dim strNewRecord As String 
    strNewRecord = "SELECT * FROM Customers " _ 
        & " WHERE CustomerID = '" _ 
        & Me!cmboCompanyName.Value & "'" 
    Me.RecordSource = strNewRecord 
End Sub

En el ejemplo siguiente se muestra cómo usar una instrucción del Lenguaje de consulta estructurado (SQL) para establecer el origen de datos de un informe cuando se abre.

Private Sub Report_Open(Cancel As Integer)

    On Error GoTo Error_Handler

    Me.Caption = ?My Application?

    DoCmd.OpenForm FormName:=?frmReportSelector_MemberList?, _
    Windowmode:=acDialog

    ?Cancel the report if ?cancel? was selected on the dialog form.

    If Forms!frmReportSelector_MemberList!txtContinue = ?no? Then
        Cancel = True
        GoTo Exit_Procedure
    End If
    Me.RecordSource = ReplaceWhereClause(Me.RecordSource, _
      Forms!frmReportSelector_MemberList!txtWhereClause)

Exit_Procedure:
    Exit Sub

Error_Handler:
    MsgBox Err.Number & ?: ? & Err.Description
    Resume Exit_Procedure
    Resume

End Sub

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.