Vraag : Code 2302 van de Fout van de toegang

Toegang/>Microsoft van Error


Code

" DoCmd.OutputTo, „de Ontbrekende Stop van Gegevens“, acFormatXLS hebt, strFile, Valse "

This volkomen het werken van was vanochtend en nu zijn het geven bovengenoemde error.

Can iedereen aanbieding om het even welke hulp?

Thanks, de volledige code/>The van Seamus


Private SubCommand5_Click ()
Dim strFile als String
strFile = „F:\MissingDataOutput.xls "
'DoCmd.OutputTo acOutputForm, strFile Me.Variance, acFormatXLS, acOutputTable False
DoCmd.OutputTo, de „Ontbrekende Stop van Gegevens“, acFormatXLS, strFile, False

Dim oXL als Object
Dim oWB als Object
Dim oWS als Object
Dim FormulaRow als Long

Set oXL = CreateObject („Excel.Application“)
Set oWB = oXL.Workbooks.Open (strFile)
Set oWS = oWB.Sheets (1)
With oWS
FormulaRow =. Cellen (. Rows.Count, „B“). Eind (- 4162). Rij + 2 'xlUp
. Cells.Font.Size = 10
. Rijen (1). Font.Bold = True
.UsedRange.EntireColumn.AutoFit
.range („B: h“) .NumberFormat = „0.00%; [Rood] 0.00% "
.range („B: h“) .NumberFormat = „#, ##0.00; [Rood] #, ##0.00 "
.range („c: e“). Stijl = het Eind With
/>oXL.Visible = True

Set oWS = Nothing
Set oWB = Nothing
Set oXL = Nothing
End Sub

Antwoord : Code 2302 van de Fout van de toegang

De controle blinkt in de manager van de Taak uit.