currentdb.tabledefs( "mylinktable" ).Connect =  ";database = c:\mydb.mdb" 
currentdb.tabledefs( "mylinktable" ).RefreshLink

currentdb.tabledefs( "mylinktable" ).Connect =  "MS Access;PWD=666 ;database = c:\mydb.mdb"

Dim dbs As DAO.Database
Set dbs = CurrentDb

dbs.TableDefs( "mylinktable" ).Connect=.....

Public Function RefreshLinkedDBase(strPath As String)

Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table

cat.ActiveConnection = CurrentProject.Connection

For Each tbl In cat.Tables
    If tbl.Type =  "LINK"  Then
        'Set the path apporpriately
        tbl.Properties( "Jet OLEDB:Link Datasource" ) = strPath
    End If
Next
End Function

Dim dbs As DAO.Database
Dim i As Byte
Set dbs = CurrentDb
For i =  1  To dbs.TableDefs.Count -  1 
    If InStr( 1 , dbs.TableDefs(i).Name,  "MSys" ) =  0  Then
        If (Me.BazaPWD) =  "" Then
            dbs.TableDefs(dbs.TableDefs(i).Name).Connect = " ;DATABASE= " & Me.BazaPath
        Else
            dbs.TableDefs(dbs.TableDefs(i).Name).Connect = " MS Access;PWD= " & Me.BazaPWD & " ;DATABASE=" & Me.BazaPath
        End If
        dbs.TableDefs(i).RefreshLink
    End If
Next
Set dbs = Nothing
End Sub

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы