[AccessD] Fast back-end relinking?

Here is the code:

 

Function TurnOffSubDataSheets()

  Dim MyDB As DAO.Database

  Dim MyProperty As DAO.Property

  

  Dim propName As String

  Dim propType As Integer

  Dim propVal As String

  

  Dim strS As String

  

  Set MyDB = CurrentDb

  

  propName = "SubDataSheetName"

  propType = 10

  propVal = "[NONE]"

  

  On Error Resume Next

  

  For i = 0 To MyDB.TableDefs.Count - 1

      

      If (MyDB.TableDefs(i).Attributes And dbSystemObject) = 0 Then

 

          If MyDB.TableDefs(i).Properties(propName).Value <> propVal Then

             MyDB.TableDefs(i).Properties(propName).Value = propVal

             intChangedTables = intChangedTables + 1

          End If

 

          If Err.Number = 3270 Then

             Set MyProperty = MyDB.TableDefs(i).CreateProperty(propName)

             MyProperty.Type = propType

             MyProperty.Value = propVal

             MyDB.TableDefs(i).Properties.Append MyProperty

          Else

             If Err.Number <> 0 Then

                 MsgBox "Error: " & Err.Number & " on Table " _

                 & MyDB.TableDefs(i).Name & "."

                 MyDB.Close

                 Exit Function

             End If

          End If

          

      End If

 

 

Rudolf F. Vanek

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://databaseadvisors.com/pipermail/accessd/attachments/20030606/c2cdd657/attachment-0001.html>