Pytanie : VBA wszywka błąd

Cześć Ekspert,

I am using the linia kod stół rejestr w stół. Wszystkie słowo well do my uderzać the przydomek o'connor, then my dostawać składnia błąd 3075, im zakładać swój the przecinek problem, więc jak móc I wokoło im?

d.Execute "wszywka w TblStudentProgress ([PSN], [CourseCode], [Forename], [Surname]) wartość ("" & r! S_studentreference & "", ""& r! M_reference &"", ""& r! P_forenames &"", ""& r! P_surname &" ") "

Thanks,
Dean

Odpowiedź : VBA wszywka błąd

Alternatywnie utrzymywać the API wezwanie przy the wierzchołek przedtem i używać:

Chris
(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:

Okręt podwodny printExcelAttachments ()
Ciemnawy itms Przedmiot
Ciemnawy itm Przedmiot
Ćmić sh Przedmiot
Ćmić att Przedmiot
Ćmić objFSO Przedmiot
Ćmić objTempFolder Przedmiot
Ćmić dlg Jako FileDialog
Ćmić xlApp Przedmiot
Ćmić xlWB Przedmiot
Ćmić xlWS Przedmiot
 
    Ustawiać itms = Application.ActiveExplorer.Selection
 
    'Na Błąd Życiorys Następnie
    Ustalony objFSO = CreateObject ("Scripting.FileSystemObject")
    Ustalony objTempFolder = objFSO.GetSpecialFolder (2)
    Ustalony xlApp = CreateObject ("excel.application")
    Dla Itms itm W itms
        Dla Itm att W itm. Doczepianie
            Wybrany Skrzynka LCase (Prawy (att. Filename, Len (att. Filename) - InStrRev (att. Filename, ".")))
            Skrzynka "xls"
                att.SaveAsFile objTempFolder & "\" & att. Filename
                xlApp.workbooks.Open objTempFolder & "\" & att. Filename
                Dla 1).worksheets xlWS W xlApp.workbooks (1).worksheets
                    xlWS.PrintOut
                Następnie
                xlApp.workbooks (1).Close Fałszywy
            Skrzynka "xlsm"
                att.SaveAsFile objTempFolder & "\" & att. Filename
                xlApp.workbooks.Open objTempFolder & "\" & att. Filename
                Dla 1).worksheets xlWS W xlApp.workbooks (1).worksheets
                    xlWS.PrintOut
                Następnie
                xlApp.workbooks (1).Close Fałszywy
            Skrzynka "doc"
                att.SaveAsFile objTempFolder & "\" & att. Filename
                ShellExecute 0&, "Druk", objTempFolder &" \ "& att. Filename, 0&, 0&, 0&
            Skrzynka "pdf"
                att.SaveAsFile objTempFolder & "\" & att. Filename
                ShellExecute 0&, "Druk", objTempFolder &" \ "& att. Filename, 0&, 0&, 0&
            Końcówka Wybiórka
        Następnie
    Następnie
    xlApp.Quit
Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us