Temat: Sprawdzenie połączenia tabel

Mam na zewnętrznym serwerze tabelę "MyTabela", połączoną z tabelą w Accessie na moim komputerze.
Jak z poziomu vba sprawdzić, czy w danej chwili połączenie istnieje?
Zrobiłem najprościej:
Dim Bs As Object

Set Bs = CurrentDb.TableDefs
On Error GoTo Byk
Bs("MyTabela").RefreshLink
---
---
Exit Function
Byk:
---
---
End Function

Przy błędzie wykonuje alternatywne polecenia, ALE okazuje się, że Bs("MyTabela").RefreshLink przekształca na stałe tą tabelę "na moim kompie" w "tylko do odczytu" i za diabła nie wiem jak z poziomu vba przywrócić jej możliwość wpisywania.
Jak w takim razie sprawdzić (bez wpisywania niczego do "zewnętrznej tabeli"), czy w danym momencie połączenie z nią istnieje, czy nie?
Tabela na serwerze - MySql
Połączenie - ODBC

Temat: Sprawdzenie połączenia tabel

Z tym sprawdzeniem "dostępności połączenia tabeli" to sobie poradziłem (też banalnie), ale nadal nie wiem CZEMU Bs.RefreshLink przestawia tabelę na "tylko do odczytu" akurat w tych tabelach, a w kilku innych (ten sam serwer, też MySql, też ODBC i nawet TA SAMA baza MySql tylko inne tabele) nie ...



Wyślij zaproszenie do