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
SBS server 2003 VPN connection
Coookie not storing information
How do I enable audio mapping over RDP on Windows 7?
System.FormatException:Dat
agridviewC
omboboxcel
l value is not valid
Counter and Timestamp in Excel
Emphasize an out of range value in Excel.
SBS2003 no http access just https
Setting up a PC with Multiple Operating Systems (Windows 98 and Windows XP Pro)
How to Setup Airport Extreme as DHCP Server on LAN with SonicWall
vb.net httpwebrequest timeout not working correctly