ник: osmor
странно. Кинь в почту.
<добавлено>
Это "ошибка" в функции, она неверно работает с именами таблиц с пробелом
для исправления нужно в функции CheckLinks
Заменить строку
rst.Open "select * from " & strTblName , CurrentProject.Connection
|
на
rst.Open "select * from [" & strTblName & "]", CurrentProject.Connection
|