Microsoft
Software
Hardware
Network
Question : Access Error Code 2302
Error
Microsoft Access Cant save the output data file you've selected
Code
"DoCmd.OutputTo acOutputTable, "Missing Data Plug", acFormatXLS, strFile, False"
This was working perfectly this morning and now its giving the above error.
Can anyone offer any assistance?
Thanks, Seamus
The full code is:
Private Sub Command5_Click()
Dim strFile As String
strFile = "F:\MissingDataOutput.xls"
'DoCmd.OutputTo acOutputForm, Me.Variance, acFormatXLS, strFile, False
DoCmd.OutputTo acOutputTable, "Missing Data Plug", acFormatXLS, strFile, False
Dim oXL As Object
Dim oWB As Object
Dim oWS As Object
Dim FormulaRow As Long
Set oXL = CreateObject("Excel.Applic
ation")
Set oWB = oXL.Workbooks.Open(strFile
)
Set oWS = oWB.Sheets(1)
With oWS
FormulaRow = .Cells(.Rows.Count, "b").End(-4162).Row + 2 'xlUp
.Cells.Font.Size = 10
.Rows(1).Font.Bold = True
.UsedRange.EntireColumn.Au
toFit
.range("b:h").NumberFormat
= "0.00%;[Red]0.00%"
.range("b:h").NumberFormat
= "#,##0.00;[Red]#,##0.00"
.range("c:e").Style = "Percent"
End With
oXL.Visible = True
Set oWS = Nothing
Set oWB = Nothing
Set oXL = Nothing
End Sub
Answer : Access Error Code 2302
Check excel in the Task manager.
Random Solutions
Windows XP "Stored User Names and Passwords" disappear after restart
How to retrieve and Entities Form or View Metadata
What Are The Properties of The jQuery UI Draggable Event Parameter?
Listen to calls on Asterisk
Email address policy exchange 2010
Cheap backlinks? Best bang for the buck SEO site?
Video card reccommendations
Teaching iPhone app creation...Any advice?
How do I TOTALLY Disable WMI Logging
Exchange 2007 has stopped working