Pytanie : Eksportowy Dostęp Format spreasdsheets

I mieć the kod pod przejażdżka pracować wielki, dzielić dojazdowy zapytanie w kilka różny przodować raport i ratować przejażdżka.
My pytanie być tam  jakaś sposób dla formatowanie podczas ten proces lub być być I musieć wewnątrz Przodować mimo to the kartoteka aktualizować?
Formatting rzecz I polubić: zmieniać the chrzcielnica Czas Nowy Rzymianin, rozmiar 10, śmiały the pole imię (rząd 1)
Thank ty w postęp dla jakaś assistance.
 
(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 Okręt podwodny Command1_Click ()
  Na Błąd Rozpoczynający Err_Command1_Click
 
Ciemnawy rst Jako DAO.Recordset
Ciemnawy Ścieżka Sznurek
Ciemnawy StrBU Sznurek
Ciemnawy intDcode Sznurek
Ćmić strQry Sznurek
Ćmić StrExt Sznurek
Ćmić strFile Sznurek
Ćmić qDef Jako DAO.QueryDef
 
 
Err.Clear
Na Błąd Wznawiać Następnie
Ustawiać qDef = CurrentDb.QueryDefs ("Urodziny Raport")
Jeżeli Err.Number <> (0) Wtedy Ustawiać qDef = CurrentDb.CreateQueryDef ("Urodziny Raport")
Na Błąd Rozpoczynający (0)
 
strQry = "WYBRANY Departments1. [RestNumber] OD Departments1 ROZKAZ Departments1. [RestNumber]; "
Ustalony rst = CurrentDb () .OpenRecordset (strQry, dbOpenDynaset)
rst.MoveLast
rst.MoveFirst
 
 
Robić Podczas Gdy Nie rst.EOF
Ścieżka = "C:\RestaurantReports\"
StrBU = rst ("RestNumber")
'StrExt = "_EmployeeRoster_" & Me.ExportDate & ".xls"
StrExt = "- Lipiec Urodziny Raport" &" .xls "
strFile = Ścieżka & StrBU & StrExt
intDcode = rst ("RestNumber")
qDef.SQL = "WYBIÓRKA * OD QryBirthdayReport DOKĄD RestNumber =" & intDcode & ""
 
DoCmd.OutputTo acOutputQuery, "Urodziny Raport", acFormatXLS, strFile, Fałszywy

rst.MoveNext
Pętla
 
MsgBox ("Eksport Zupełny")
Ustalony rst = Nic
 
Exit_Command1_Click:
    Wyjście Okręt podwodny
 
Err_Command1_Click:
    MsgBox Err.Description
    Życiorys Exit_Command1_Click

Końcówka Okręt podwodny

Odpowiedź : Eksportowy Dostęp Format spreasdsheets

Przypuszczać problem być w transport. Wyłaczać z powrotem Wymiana transport i autoreply w Światopogląd shoul działanie stosownie
Inne rozwiązania  
 
programming4us programming4us