Vraag : De Toegang van de uitvoer tot het formaat van Excel spreasdsheets

Ik heb de code onder dat grote werk, verdeel een toegangsvraag in verscheidene verschillend uitblink rapporten en bewaar hen aan een aandrijving. />My de vraag
Formatting die ik zou houden van: verander vooraf de doopvont in Tijden Nieuwe Romein, grootte 10, vette letters de gebiedsnamen (rij 1)
Thank u voor om het even welke assistance.
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

Private SubCommand1_Click ()
  Op Fout GoTo Err_Command1_Click
 
Schemerige rst als DAO.Recordset
Schemerige Weg als Koord
Schemerige StrBU als Koord
Schemerige intDcode als Koord
Schemerige strQry als Koord
Schemerige StrExt als Koord
Schemerige strFile als Koord
Schemerige qDef als DAO.QueryDef
 
 
Err.Clear
Op Fout hervat daarna
Plaats qDef = CurrentDb.QueryDefs (het „Rapport van de Verjaardag“)
Als Err.Number <> 0 dan qDef = CurrentDb.CreateQueryDef (het „Rapport van de Verjaardag“) plaatsen
Op Fout GoTo 0
 
strQry = „UITGEZOCHTE Departments1. [RestNumber] VAN ORDE Departments1 DOOR Departments1. [RestNumber]; “
Reeks rst = strQry CurrentDb () .OpenRecordset (, dbOpenDynaset)
rst.MoveLast
rst.MoveFirst
 
 
Doe terwijl niet rst.EOF
Weg = „C:\RestaurantReports\“
StrBU = rst („RestNumber“)
'StrExt = „_EmployeeRoster_“ & Me.ExportDate & „.xls“
StrExt = „- het Rapport van de Verjaardag van Juli“ &“ .xls "
strFile = Weg & StrBU & StrExt
intDcode = rst („RestNumber“)
qDef.SQL = „SELECTEER * UIT QryBirthdayReport WAAR RestNumber =“ & intDcode & ""
 
acOutputQuery van DoCmd.OutputTo, het „Rapport van de Verjaardag“, acFormatXLS, strFile, Vals

rst.MoveNext
Lijn
 
MsgBox („Volledige de Uitvoer“)
Reeks rst = niets
 
Exit_Command1_Click:
    Sub van de uitgang
 
Err_Command1_Click:
    MsgBox Err.Description
    Hervat Exit_Command1_Click

Beëindig Sub

Antwoord : De Toegang van de uitvoer tot het formaat van Excel spreasdsheets

Veronderstel het probleem in vervoer is. Schakelaar terug naar het vervoer van de Uitwisseling en autoreply in Vooruitzichten die shoul behoorlijk werkt
Andere oplossingen  
 
programming4us programming4us