У меня есть база данных с несколькими многозначными поисковыми полями. Когда я разделяю свою базу данных, возникает повторяющаяся ошибка, что таблица соединений не найдена. Я знаю, что Access создает теневые таблицы, когда вы используете мастер поиска. Как мне связать эти таблицы?
Я попробовал следующий код:
Sub refresh()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT [Name] FROM [MSysObjects] WHERE ([Type] = 6);", dbOpenSnapshot, dbForwardOnly)
Do While (Not rs.EOF)
db.TableDefs.Delete rs.Fields("Name").Value
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End Sub
но когда я запустил его, он все равно выдал мне то же сообщение об ошибке, что скрытая таблица соединений "в данном случае" TblAudienceTblProg "" не была найдена.
Можно ли как-то обойти это, или мне нужно перестроить весь бэкэнд, чтобы включить фактические соединительные таблицы?