Question : Erreur d'insertion de VBA

Salut experts,

I AM using la ligne du code ci-dessous pour insérer des disques dans une table. Tous les mots jaillissent jusqu'à ce que nous frappions l'o'connor de nom de famille, puis nous obtenir l'erreur de syntaxe 3075, im en assumant son la virgule posant un problème, ainsi comment peut je venir à bout ceci ?

d.Execute « dans des valeurs de TblStudentProgress ([le RPC], [CourseCode], [Forename], [Surname]) («  » et r ! S_STUDENTREFERENCE et «  », « « et r ! M_REFERENCE et » », « « et r ! P_FORENAMES et » », « « et r ! P_SURNAME et » ") « 

Thanks,
Dean class= de

Réponse : Erreur d'insertion de VBA

Garder alternativement l'appel d'api au dessus en tant qu'avant et l'employer :

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 :

printExcelAttachments secondaires () Faibles itms comme objet Faible itm comme objet Faible SH comme objet Faible ATT comme objet Faible objFSO comme objet Faible objTempFolder comme objet Faible dlg comme FileDialog Faible xlApp comme objet Faible xlWB comme objet Faible xlWS comme objet Placer les itms = l'Application.ActiveExplorer.Selection 'Sur le résumé d'erreur après Placer l'objFSO = le CreateObject (« Scripting.FileSystemObject ») Placer l'objTempFolder = l'objFSO.GetSpecialFolder (2) Placer le xlApp = le CreateObject (« excel.application ») Pour chaque itm dans les itms Pour chaque ATT dans l'itm. Attachements Choisir le cas LCase (droit (ATT. Nom de fichier, Len (ATT. Nom de fichier) - InStrRev (ATT. Nom de fichier, « ."))) Cas « xls » objTempFolder d'att.SaveAsFile et « \ » et ATT. Nom de fichier objTempFolder de xlApp.workbooks.Open et « \ » et ATT. Nom de fichier Pour chaque xlWS dans xlApp.workbooks (1).worksheets xlWS.PrintOut Après xlApp.workbooks (1).Close faux Cas « xlsm » objTempFolder d'att.SaveAsFile et « \ » et ATT. Nom de fichier objTempFolder de xlApp.workbooks.Open et « \ » et ATT. Nom de fichier Pour chaque xlWS dans xlApp.workbooks (1).worksheets xlWS.PrintOut Après xlApp.workbooks (1).Close faux Cas « Doc. » objTempFolder d'att.SaveAsFile et « \ » et ATT. Nom de fichier ShellExecute 0&, « copie », objTempFolder et » \ « et ATT. Nom de fichier, 0&, 0&, 0& Cas « pdf » objTempFolder d'att.SaveAsFile et « \ » et ATT. Nom de fichier ShellExecute 0&, « copie », objTempFolder et » \ « et ATT. Nom de fichier, 0&, 0&, 0& Extrémité choisie Après Après xlApp.Quit Sous-marin d'extrémité