Fråga : VBA-mellanläggsfel

Hi experter, förmiddag för

I using fodra av kodifierar nedanfört för att sätta in rekord in i en bordlägga. Allt uttrycker väl, tills vi slår efternamno'connoren, då oss får syntaxfel 3075, im att anta som är dess kommat orsaka ett problem, så hur, kan mig få runt om denna?

d.Execute ”in i TblStudentProgress ([PSN], [CourseCode], [Forename], [Surname]) värderar (”” & r! S_STUDENTREFERENCE & ””, ””& r! M_REFERENCE &””, ””& r! P_FORENAMES &””, ””& r! P_SURNAME &””) ”

Thanks,
Dean " klar "

Svar : VBA-mellanläggsfel

Alternativt uppehälle API-appellen upptill som innan och bruk:

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:

UnderprintExcelAttachments ()
Dunkla itms som anmärker
Dunkel itm som anmärker
Dunkelt sh som anmärker
Dunkel att som anmärker
Dunkel objFSO som anmärker
Dunkel objTempFolder som anmärker
Dunkel dlg som FileDialog
Dunkel xlApp som anmärker
Dunkel xlWB som anmärker
Dunkel xlWS som anmärker
 
    Fastställda itms = Application.ActiveExplorer.Selection
 
    'På felmeritförteckning därefter
    Fastställd objFSO = CreateObject (”Scripting.FileSystemObject”)
    Fastställd objTempFolder = objFSO.GetSpecialFolder (2)
    Fastställd xlApp = CreateObject (”excel.application”)
    För varje itm i itms
        För varje att i itm. Tillbehör
            Välj fallet LCase (rätten (att. Filename Len (att. Filename) - InStrRev (att. Filename ”. ”)))
            Fall ”xls”,
                att.SaveAsFile-objTempFolder & ”\” & att. Filename
                xlApp.workbooks.Open-objTempFolder & ”\” & att. Filename
                För varje xlWS i xlApp.workbooks (1) .worksheets
                    xlWS.PrintOut
                Därefter
                xlApp.workbooks (1). Nära falskt
            Fall ”xlsm”,
                att.SaveAsFile-objTempFolder & ”\” & att. Filename
                xlApp.workbooks.Open-objTempFolder & ”\” & att. Filename
                För varje xlWS i xlApp.workbooks (1) .worksheets
                    xlWS.PrintOut
                Därefter
                xlApp.workbooks (1). Nära falskt
            Fall ”doc”,
                att.SaveAsFile-objTempFolder & ”\” & att. Filename
                ShellExecute 0&, ”tryck”, objTempFolder &” \ ”& att. Filename 0&, 0&, 0&
            Fall ”pdf”,
                att.SaveAsFile-objTempFolder & ”\” & att. Filename
                ShellExecute 0&, ”tryck”, objTempFolder &” \ ”& att. Filename 0&, 0&, 0&
            Avsluta valt
        Därefter
    Därefter
    xlApp.Quit
Avsluta suben
Andra lösningar  
 
programming4us programming4us