g-richardson
05-16-2007, 07:05 AM
Hi,
I am trying to continue the process described below. We are taking a query from an active database and creating a table in a remote db in the network...we want to take the next step in the process to now copy the destination database and have the user save it to a location of their choosing so they can manipulate the data...
The code so far (works great...)
If [Forms]![frm_ProductSelect]![chkDetail2EXLRpt] Then
DoCmd.OpenReport "RPT_Dashboard_FULL_REPORT", acViewPreview
'DoCmd.OpenQuery "qry_PolLevelDetail"
'DoCmd.RunCommand acCmdExport
'DoCmd.Close acQuery, "PolLevelDetail"
DoCmd.TransferDatabase acExport, "Microsoft Access", _
"\\bostvfs01\data1\Access\Dashboard\UL\PolDetail.md b", acTable, _
"PolLevelDetail", "PolDetail" & [Forms]![frm_ProductSelect]![Product], 0
msgbox "Export done"
End If
Any help appreciated.
I am trying to continue the process described below. We are taking a query from an active database and creating a table in a remote db in the network...we want to take the next step in the process to now copy the destination database and have the user save it to a location of their choosing so they can manipulate the data...
The code so far (works great...)
If [Forms]![frm_ProductSelect]![chkDetail2EXLRpt] Then
DoCmd.OpenReport "RPT_Dashboard_FULL_REPORT", acViewPreview
'DoCmd.OpenQuery "qry_PolLevelDetail"
'DoCmd.RunCommand acCmdExport
'DoCmd.Close acQuery, "PolLevelDetail"
DoCmd.TransferDatabase acExport, "Microsoft Access", _
"\\bostvfs01\data1\Access\Dashboard\UL\PolDetail.md b", acTable, _
"PolLevelDetail", "PolDetail" & [Forms]![frm_ProductSelect]![Product], 0
msgbox "Export done"
End If
Any help appreciated.