Существует проект на А97. Проект защищен файлом рабочей группы. Таблицы в одном файле, клиентская часть в другом. Таблицы из первого файла прилинкованы к клиентской части. Существует необходимость отключать эти таблицы и подключать такие-же таблицы из другого файла (такой же файл, но данные за другой период). При входе с правами администратора - переключение происходит на ура. Однако при входе с клиентскими правами ( на все таблицы есть как минимум чтение + просмотр макета) пишет - у Вас нет прав. Какие должны быть мин. права у клиента, что бы было возможно переключение баз. Каждому дать админ. права - нельзя.

Пользуюсь для переключения функцией:

Function ПоменятьДанные(Путь As String)
On Error GoTo ПоменятьДанные_err
Dim i As Integer
Dim Ss As String

Dim CurDB As Database
Set CurDB = DBEngine.Workspaces(0).Databases(0)
For i = 0 To CurDB.TableDefs.Count - 1 'По всем таблицам
If Mid(CurDB.TableDefs(i).Connect, 1, 9) = ";DATABASE" Then
Ss = ";DATABASE=" & Путь

' 'Обновить связь
CurDB.TableDefs(i).Connect = Ss
CurDB.TableDefs(i).RefreshLink
End If
Next i
ПоменятьДанные_exit:
Exit Function
ПоменятьДанные_err:
MsgBox Err.Description
MsgBox "Не удается подключить таблицу: " & CurDB.TableDefs(i).Name & " или базу данных:" & Путь
Resume Next
End Function

К сожалению, не могу определить какая именно строка дает ошибку.. потому что при входе с правами администратора - ошибки не возникает...

To: Serge Gavrilov
Действительно, если поставить изменение макета в клиентской части - ошибки не возникает, но при праве изменения макета дается право на обновление и удаление данных, а этого хотелось бы избежать.

Спасибо, попробую