D
DanJ
I am desperately searching for a solution to a problem I have with a database
that has an Access FE and SQL server BE. The user has the option of
'relinking' the SQL tables from a login form. The problem is that if they
choose that option, the database grows from 63mb to over 300mb. If they skip
the relinking process, there is no problem. I have followed all the code
that occurs up to that process and there doesn't seem to be anything that
should cause any problems. The growth occurs when the 'tmpTABLE.Refreshlink'
line runs. What does this property do that could cause such growth? (This
size makes the database unusable on some computers.) The main part of the
code is below. I would greatly appreciate it if someone could lead me in the
right direction to solve this problem.
For Each tmpTABLE In mydb.TableDefs
tmptablename = tmpTABLE.Name
tmpconnect = tmpTABLE.Connect
If Len(tmpTABLE.Connect) > 0 Then
tmpTABLE.Connect = ""
tmpTABLE.Connect = "ODBC;DSN=" & tmpDSN & ";APP=" & tmpAPP &
";WSID=" & tmpWSID & ";DATABASE=" & tmpDB & ";Trusted_Connection=" & tmpTC &
""
tmpTABLE.RefreshLink
End If
Next tmpTABLE
that has an Access FE and SQL server BE. The user has the option of
'relinking' the SQL tables from a login form. The problem is that if they
choose that option, the database grows from 63mb to over 300mb. If they skip
the relinking process, there is no problem. I have followed all the code
that occurs up to that process and there doesn't seem to be anything that
should cause any problems. The growth occurs when the 'tmpTABLE.Refreshlink'
line runs. What does this property do that could cause such growth? (This
size makes the database unusable on some computers.) The main part of the
code is below. I would greatly appreciate it if someone could lead me in the
right direction to solve this problem.
For Each tmpTABLE In mydb.TableDefs
tmptablename = tmpTABLE.Name
tmpconnect = tmpTABLE.Connect
If Len(tmpTABLE.Connect) > 0 Then
tmpTABLE.Connect = ""
tmpTABLE.Connect = "ODBC;DSN=" & tmpDSN & ";APP=" & tmpAPP &
";WSID=" & tmpWSID & ";DATABASE=" & tmpDB & ";Trusted_Connection=" & tmpTC &
""
tmpTABLE.RefreshLink
End If
Next tmpTABLE