ник: rudi4
Я по сети открываю базу нормально. Но почему-то на других компах пишет, что база доступна тока для чтения и ругается на процедуру
Public Sub ClearTablesRef()
Dim dbs As Database, tdf As TableDef
Dim sSS As Variant, k As Integer
Set dbs = CurrentDb
999:
For Each tdf In dbs.TableDefs
sSS = tdf.Connect
If Len(sSS) > 0 Then
dbs.TableDefs.Delete (tdf.Name)
GoTo 999
End If
Next tdf
End Sub
эта процедура в AutoPatch-е находится