class= " lineNumbers " de
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 :
|
class= de
>Private " de l'id= " codeSnippet791490 de 0 d'Err.Number = CurrentDb.CreateQueryDef (« rapport d'anniversaire »)
Sur l'erreur 0 GoTo
strQry = « Departments1 CHOISI. [RestNumber] de l'ORDRE Departments1 PAR Departments1. [RestNumber] ; »
Placer le rst = le CurrentDb () .OpenRecordset (strQry, le dbOpenDynaset)
rst.MoveLast
rst.MoveFirst
Font tandis que pas rst.EOF
Chemin = « C:\RestaurantReports\ »
StrBU = rst (« RestNumber »)
'StrExt = « _EmployeeRoster_ » et Me.ExportDate et « .xls »
StrExt = « - rapport d'anniversaire de juillet » et » .xls "
strFile = chemin et StrBU et StrExt
intDcode = rst (« RestNumber »)
qDef.SQL = « CHOISISSENT * À PARTIR de QryBirthdayReport OÙ RestNumber = » et intDcode et ""
acOutputQuery de DoCmd.OutputTo, « rapport d'anniversaire », acFormatXLS, strFile, faux
rst.MoveNext
Boucle
MsgBox (« exportation complète »)
Placer le rst = rien
Exit_Command1_Click :
Sortir le sous-marin
Err_Command1_Click :
MsgBox Err.Description
Résumé Exit_Command1_Click
Sous-marin d'extrémité
|
