G
Guest
When I Export data from a table to a text file manually it works fine but
when I execute it from code with a saved Export specification I get the
message below
The Microsoft Jet database engine cannot open the file 'SumOfcurStateEeSIT'.
It is already open exclusively by another user, or you need permission to
view its data I have copied the code below
Function ExportNewQtrTax()
On Error GoTo ExportNewQtrTax_Err
Dim FN As String
FN = Format((Now), "yyyymmdd") & "-tblNewQtrTaxExp.txt"
DoCmd.TransferText acExportFixed, "NewQtrTaxExp Export
Specification", "tblNewQtrTaxExp", "//CTFLAN/NETWORK/DB" & FN, False, ""
Beep
MsgBox "New Qurterly Tax Export Complete", vbOKOnly, "Domestic Partner"
ExportNewQtrTax_Exit:
Exit Function
ExportNewQtrTax_Err:
MsgBox Error$
Resume ExportNewQtrTax_Exit
End Function
Does anyone know how to deal with this problem, any help would be
appriciated.
David C. Widener
when I execute it from code with a saved Export specification I get the
message below
The Microsoft Jet database engine cannot open the file 'SumOfcurStateEeSIT'.
It is already open exclusively by another user, or you need permission to
view its data I have copied the code below
Function ExportNewQtrTax()
On Error GoTo ExportNewQtrTax_Err
Dim FN As String
FN = Format((Now), "yyyymmdd") & "-tblNewQtrTaxExp.txt"
DoCmd.TransferText acExportFixed, "NewQtrTaxExp Export
Specification", "tblNewQtrTaxExp", "//CTFLAN/NETWORK/DB" & FN, False, ""
Beep
MsgBox "New Qurterly Tax Export Complete", vbOKOnly, "Domestic Partner"
ExportNewQtrTax_Exit:
Exit Function
ExportNewQtrTax_Err:
MsgBox Error$
Resume ExportNewQtrTax_Exit
End Function
Does anyone know how to deal with this problem, any help would be
appriciated.
David C. Widener