Вопрос : Ошибка вставки VBA

Hi специалисты,

I am using линия Кодего ниже для того чтобы ввести показатели в таблицу. Все слова хлынутся до тех пор пока мы не ударить o'connor фамилии, тогда мы получите ошибку синтаксиса 3075, im принимающ сво запятой причиняя проблему, поэтому как смогите я получить вокруг этого?

d.Execute «в значения TblStudentProgress ([PSN], [CourseCode], [Forename], [Surname]) («» & r! S_STUDENTREFERENCE & «», ««& r! M_REFERENCE &»», ««& r! P_FORENAMES &»», ««& r! P_SURNAME &» ") «

Thanks,
Dean
class=

Ответ : Ошибка вставки VBA

Друг держите звонок API на верхней части как раньше, и используйте:

Крис
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:
Sub printExcelAttachments ()
Тусклые itms как предмет
Тусклое itm как предмет
Тусклое sh как предмет
Тусклый att как предмет
Тусклое objFSO как предмет
Тусклое objTempFolder как предмет
Тусклый dlg как FileDialog
Тусклое xlApp как предмет
Тусклое xlWB как предмет
Тусклое xlWS как предмет
 
    Установите itms = Application.ActiveExplorer.Selection
 
    'На резюме ошибки затем
    Установите objFSO = CreateObject («Scripting.FileSystemObject»)
    Установите objTempFolder = objFSO.GetSpecialFolder (2)
    Установите xlApp = CreateObject («excel.application»)
    Для каждого itm в itms
        Для каждого att в itm. Приложения
            Выберите случай LCase (правое (att. Filename, Len (att. Filename) - InStrRev (att. Filename, «.")))
            Случай «xls»
                objTempFolder att.SaveAsFile & «\» & att. Filename
                objTempFolder xlApp.workbooks.Open & «\» & att. Filename
                Для каждого xlWS в xlApp.workbooks (1).worksheets
                    xlWS.PrintOut
                Затем
                xlApp.workbooks (1).Close ложное
            Случай «xlsm»
                objTempFolder att.SaveAsFile & «\» & att. Filename
                objTempFolder xlApp.workbooks.Open & «\» & att. Filename
                Для каждого xlWS в xlApp.workbooks (1).worksheets
                    xlWS.PrintOut
                Затем
                xlApp.workbooks (1).Close ложное
            Случай «doc»
                objTempFolder att.SaveAsFile & «\» & att. Filename
                ShellExecute 0&, «печать», objTempFolder &» \ «& att. Filename, 0&, 0&, 0&
            Случай «PDF»
                objTempFolder att.SaveAsFile & «\» & att. Filename
                ShellExecute 0&, «печать», objTempFolder &» \ «& att. Filename, 0&, 0&, 0&
            Конец отборный
        Затем
    Затем
    xlApp.Quit
Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
  •  Шнур ошибки в блоке задвижки?
  •  сколько вариант сервера SQL на одной машине
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
  •  Активно директория DNS записывает вопрос
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
  •  Прокладчик OCE 9400 не начинает
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
  •  VB6 к VS2010 - консультации тренировки?
  •  
    programming4us programming4us