Can I use DoCmd.OutputTo to export the current record only?

[Tim F]

Hello all,

I would like to create a command button on a form that will allow the user to export the current record to .xls.

The following exports the entire table. Is there a way to export the current record being viewed only?

DoCmd.OutputTo acOutputForm, "frmInputView", acFormatXLS, "filename.xls", False

Many thanks,
Tim

[ADezii]

Just subscribing for now...will return with an idea later.

[ADezii]

1. Declare Variables to hold the Original and Modified Record Sources
   

   Dim strOriginalRecordSource As String
   Dim strNewRecordSource As String

2. Retrieve the Original Record Source of the Form
   

   strOriginalRecordSource = Me.RecordSource

3. Create a New Record Source based on the Primary Key displayed on the Form
   

   strNewRecordSource = "SELECT * FROM tblEmployees WHERE [ID] = " & Me![ID]

4. Apply the Filtered Record Source to the Form
   

   Me.RecordSource = strNewRecordSource

5. Output the Single, Form Record
   

   DoCmd.OutputTo acOutputForm, "frmInputView", acFormatXLS, "filename.xls", False

6. Restore the Original Record Source
   

   Me.RecordSource = strOriginalRecordSource

7. Complete Code with Comments stripped:
   

   Dim strOriginalRecordSource As String
   Dim strNewRecordSource As String
   
   strOriginalRecordSource = Me.RecordSource
   strNewRecordSource = "SELECT * FROM tblEmployees WHERE [ID] = " & Me![ID]
   
   Me.RecordSource = strNewRecordSource
   
   DoCmd.OutputTo acOutputForm, "frmInputView", acFormatXLS, "filename.xls", False
   
   Me.RecordSource = strOriginalRecordSource