, поэтому я долго искал, как это сделать, так как я создал установку для своей базы данных.однако, когда вы по какой-то причине используете установку, она теряет пароль для связанных таблиц на серверной части.Мне нужен код, который поможет мне заново связать все таблицы под нагрузкой.Я довольно новичок в построении баз данных, так что я не уверен, что нужно было даже начинать писать код для этого
. Я нашел приведенный ниже код, который позволил мне добавить указанную таблицу, но мне нужно связать все таблицы в серверной частиDB, и я действительно не хочу повторять этот код для каждой таблицы
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim strConnect As String
Dim strDbFile As String
Dim strLinkName As String
Dim strPassword As String
Dim strSourceTableName As String
strDbFile = "c:documents\mydb"
strPassword = "mypw"
strSourceTableName = "tblcaseid"
strLinkName = "link_to_caseid"
strConnect = "MS Access;PWD=" & strPassword & _
";DATABASE=" & strDbFile
Debug.Print strConnect
Set db = CurrentDb
Set tdf = db.CreateTableDef
tdf.Connect = strConnect
tdf.SourceTableName = strSourceTableName
tdf.Name = strLinkName
db.TableDefs.Append tdf
End Sub
, пожалуйста, помогите