Это командование не создает скоросшиватель только с курсом:
acOutputReport DoCmd.OutputTo, "", acFormatPDF, курс & «\» & FileName, ложный
говорит оно делает?
будет значением шнура вашего переменного курса?
вывесьте его здесь.
или как раз сделайте это
если право, то (курс, 1)<> «\» после этого path=path & «\»
'создайте folder/s
Вызовите MakeSureDirectoryPathExists (курс)
'создайте архив
acOutputReport DoCmd.OutputTo, "", acFormatPDF, курс & «\» & FileName, ложный