| |
|
|
| | База на другом компе.
Как проверить - имеется ли связь? | |
| |
| |
| |
|
|
| | проверь наличие файла
при любой ошибке - база недоступна | |
| |
| |
| |
|
|
| | знакомый совет  | |
| |
| |
| |
|
|
| |
Public Function с(t As String) As Boolean
Dim dbs As Database, rst As Recordset
Set dbs = CurrentDb
On Error Resume Next
Set rst = dbs.OpenRecordset(t)
If Err = 0 Then
C = True
Else
C = False
End If
dbs.Close
End Function
|
| |
| |
| |
| |
|
|
| | Спасибо.
я использую функцию подключения к базе:
Public Sub SpisokTablic()
' ============= присоединяем таблицы =====================
Dim ВИ_2 As DAO.Database
Dim tdf As DAO.TableDef
Dim PathToBase As String
Call MsgBox("Укажите путь к файлу таблиц (например TBL.mdb) ", vbInformation, "Склад ПВХ.")
STR_Filter = "Выберите файл (*.txt)" & Chr$(0) & "*.mdb" & Chr$(0) & "All Files (*.*)" & Chr$(0) & "*.*" & Chr$(0)
PathToBase = FileOpenSave(OFN_OVERWRITEPROMPT, CurDir$, STR_Filter, , ".mdb", , "Выбор файла таблиц", -1, True)
Set ВИ_2 = OpenDatabase(PathToBase) ' путь к базе указанный пользователем
For Each tdf In ВИ_2.TableDefs
If Mid(tdf.Name, 1, 4) <> "Msys" Then 'если не системная таблица тогда смотрим
Call LinkTab(PathToBase, tdf.Name) ' линкуем
End If
Next tdf
ВИ_2.Close
Set ВИ_2 = Nothing
MESS "Присоединение таблиц завершено."
End Sub
|
Дисковая или сетевая ошибка, но базу открыть вручную можно. | |
| |
| |
| |
|
|
| | ты в ручную попробывал?  | |
| |
| |
|
|
