class= " lineNumbers "
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=
>Private Sub Command1_Click " class= " id= " codeSnippet791490 0 Err.Number после этого установленное = CurrentDb.CreateQueryDef, то («отчет о дня рождения»)
На ошибке переход 0
strQry = «ОТБОРНОЕ Departments1. [RestNumber] ОТ ЗАКАЗА Departments1 Departments1. [RestNumber]; »
Установите rst = CurrentDb () .OpenRecordset (strQry, dbOpenDynaset)
rst.MoveLast
rst.MoveFirst
Сделайте пока не rst.EOF
Курс = «C:\RestaurantReports\»
StrBU = rst («RestNumber»)
'StrExt = «_EmployeeRoster_» & Me.ExportDate & «.xls»
StrExt = «- отчет о дня рождения в июль» &» .xls "
strFile = курс & StrBU & StrExt
intDcode = rst («RestNumber»)
qDef.SQL = «ВЫБИРАЮТ * ОТ QryBirthdayReport ГДЕ RestNumber =» & intDcode & ""
acOutputQuery DoCmd.OutputTo, «отчет о дня рождения», acFormatXLS, strFile, ложное
rst.MoveNext
Петля
MsgBox («экспорт вполне»)
Установите rst = ничего
Exit_Command1_Click:
Выходите подводная лодка
Err_Command1_Click:
MsgBox Err.Description
Резюме Exit_Command1_Click
Подводная лодка конца
|