|
'------------------------------------------------------------
' Procedure GetReport
'
' This procedure imports a report from a different database.
' It gets the name of the database and the report from user
' input into 2 text boxes on a form. Those names are stored
' in the variables varDB_Name and varReport_Name. The
' TransferDatabase method is used to import the
report.
'
' Created by Lynn Trapp, November 1, 2002
'------------------------------------------------------------
Sub GetReport()
On Error GoTo GetReport_Err
Dim varDB_Name As String
Dim varReport_Name As String
varDB_Name = Forms!frmGetReport!txtDatabaseName
varReport_Name = Forms!frmGetReport!txtReportName
DoCmd.TransferDatabase acImport,
"Microsoft Access", varDB_Name, acReport, varReport_Name, varReport_Name, False
GetReport_Exit:
Exit Sub
GetReport_Err:
MsgBox Error$
Resume GetReport_Exit
End Sub
|