Форма теряет свойства
Recordset и
RecordsetClone
У меня есть маленькая программка (модуль), которая облегчает подключение таблиц из других баз Access. Всё было хорошо до тех пор пока не пришлось работать с базами, закрытыми паролем.
Для демонстрации проблемы я сделал пример: сама база с программой и две базы с таблицами, одна - с паролем, другая - без
Программка состоит из 3 форм, 3 запросов, 3 таблиц. 3 модулей.
Основная форма -
frmSystemBases . При её запуске высвечивается сформированный список баз для подключения.
Внизу есть поле "Путь к базе". Для изменения пути справа от поля есть специальная кнопка.
Установите пути под Ваше размещение файлов баз.
Справа от поля с описанием базы находится чекбокс, который показывает, произведено подключение базы или нет, и две кнопки для подключения и отключения таблиц. После выполнения действий с таблицами вызывается подпрограмма
subBookmark которая находится в
Module1 . Она обновляет информацию на форме (типа Requery) и устанавливает указатель на ту запись, где он был до этого. Для этого используется свойство формы
Recordset .
Но как только Вы попробуете подключить запароленные таблицы, то подпрограмма
subBookmark вылетает по ошибке
Error 3420 - недопустимый объект или объект более не задан
При просмотре под отладчиком оказывается что форма
frmSystemBases теряет свои свойства
Recordset и
RecordsetClone . Они становятся неопределёнными.
Сами таблицы подключаются. Я думаю, что всё дело в подпрограмме подключения таблиц.
Подключение таблицы незапероленной базы
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.
'---------------------------------------------------------------------------------------
' Procedure : SetTableRefBaseFull
' DateTime : 22.01.2007 14:54
' Author : DSonnyh
' Purpose : Подключение таблиц с полной проверкой существования таблиц
'---------------------------------------------------------------------------------------
'
Public Sub SetTableRefBaseFull(TName As String, NewTName As String, strBase As String)
On Error GoTo SetTableRefBaseFull_Error
Dim strCurrentDB As String
strCurrentDB = CurrentProject.FullName
' проверка наличия таблицы в подключаемой базе
If IsTable(TName, strBase) = 1 Then
' проверка наличия таблицы в текущей базе
If IsTable(NewTName, strCurrentDB) <> 1 Then
DoCmd.TransferDatabase acLink, "Microsoft Access", _
strBase, acTable, TName, NewTName, False, False
Else
Call MsgBox("В базе " & strCurrentDB _
& vbCrLf & "уже существует таблица " & NewTName _
& vbCrLf & "Подключение данной таблицы не проведено!" _
, vbExclamation, "Подключение таблиц")
End If
Else
Call MsgBox("В базе " & strBase _
& vbCrLf & "отсутствует таблица " & TName _
& vbCrLf & "Подключение данной таблицы не проведено!" _
, vbExclamation, "Подключение таблиц")
End If
On Error GoTo 0
Exit_SetTableRefBaseFull:
Exit Sub
SetTableRefBaseFull_Error:
MsgBox "Ошибка " & Err.Number & " (" & Err.Description & ") в процедуре SetTableRefBaseFull в Module modConnect"
Resume Exit_SetTableRefBaseFull
End Sub
Подключение таблицы незапероленной базы
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.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
'---------------------------------------------------------------------------------------
' Procedure : SetTableRefBasePassFull
' DateTime : 07.09.2018 14:54
' Author : DSonnyh
' Purpose : Подключение запароленных таблиц с полной проверкой существования таблиц
'---------------------------------------------------------------------------------------
'
Public Sub SetTableRefBasePassFull(TName As String, NewTName As String, _
strBase As String, strPassword As String)
On Error GoTo SetTableRefBasePassFull_Error
Dim strCurrentDB As String
strCurrentDB = CurrentProject.FullName
Dim db As DAO.Database
Dim wRs1 As DAO.Workspace
Set wRs1 = DBEngine.Workspaces(0)
Set db = wRs1.OpenDatabase(strBase, False, False, ";PWD=" & strPassword)
' проверка наличия таблицы в подключаемой базе
If IsTable(TName, strBase) = 1 Then
' проверка наличия таблицы в текущей базе
If IsTable(NewTName, strCurrentDB) <> 1 Then
DoCmd.TransferDatabase acLink, "Microsoft Access", _
"" & db.Name & "", acTable, TName, NewTName, False, False
Else
Call MsgBox("В базе " & strCurrentDB _
& vbCrLf & "уже существует таблица " & NewTName _
& vbCrLf & "Подключение данной таблицы не проведено!" _
, vbExclamation, "Подключение таблиц")
End If
Else
Call MsgBox("В базе " & strBase _
& vbCrLf & "отсутствует таблица " & TName _
& vbCrLf & "Подключение данной таблицы не проведено!" _
, vbExclamation, "Подключение таблиц")
End If
db.Close
wRs1.Close
Set db = Nothing
Set wRs1 = Nothing
On Error GoTo 0
Exit_SetTableRefBasePassFull:
Exit Sub
SetTableRefBasePassFull_Error:
MsgBox "Ошибка " & Err.Number & " (" & Err.Description & ") в процедуре SetTableRefBaseFull в Module modConnect"
Resume Exit_SetTableRefBasePassFull
End Sub
Для подключения запароленных таблиц мне приходится создавать рабочую область и открывать в ней запароленную базу. Возможно здесь что-то и портится.
Может кто-то что-то посоветует?
-------------------------------------------------------------
А ты вложил уже свой кровный рубль в 50-ти миллиардное состояние Билла Гейтса?
