[AccessD] linked table trouble

Pedro Janssen pedro at plex.nl
Tue Feb 8 14:43:15 CST 2005


Hello Bobby,

thanks for the code.
Doesn't matter which or who's style. I am glad that you send it.


Pedro Janssen

----- Original Message -----
From: "Bobby Heid" <bheid at appdevgrp.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Tuesday, February 08, 2005 3:26 PM
Subject: RE: [AccessD] linked table trouble


> Pedro,
> Here is our function.  Mind you that while I have made modifications to
the
> code, I am not the original author of this, so the style does not match my
> style.  LOL.
>
> Bobby
>
> start of code ----------------------------
>
> Public Function RelinkEnterpriseTables(lstrEnterprise As String) As
Boolean
> Dim strEnterpriseDB       As String
> Dim AString               As String
>
> Dim tdf                  As TableDef
> Dim strTdfName           As String
> Dim strTableDefName      As String
> Dim strEnterpriseConnect As String
> Dim strDBConnect         As String
> Dim dbsCurrent           As Database
> Dim arrTableNames(83)    As String
> Dim i                    As Integer
> Dim intresponse          As Integer
> Dim strMsg               As String
>
>   On Error GoTo Proc_Err
>   DoCmd.Hourglass True
>
>   ' Static tables connection string
>   strDBConnect = ";Database=" & lstrEnterprise & ";pwd=" & SECUREPW
>
>   Set dbsCurrent = CurrentDb()
>
>   arrTableNames(0) = "CertIssuance"
>   arrTableNames(1) = "CertDefaults"
>   arrTableNames(2) = "SheaLots"
>   arrTableNames(3) = "SheaPlanElv"
>   arrTableNames(4) = "SheaConTemp"
> '<snip>
>    arrTableNames(82) = "DeleteLog"
>
>   With dbsCurrent
>     For i = 0 To (UBound(arrTableNames) - 1)
>         strTableDefName = arrTableNames(i)
>
>         If .TableDefs(strTableDefName).Connect <> strDBConnect Then
>             ' Change link
>             .TableDefs.Delete strTableDefName
>             Set tdf = .CreateTableDef(strTableDefName)
>             With tdf
>                 .SourceTableName = strTableDefName
>                 .Connect = strDBConnect
>              End With
>             .TableDefs.Append tdf
>         End If
>     Next
>     .TableDefs.REFRESH
>   End With
>
>   On Error GoTo 0
>
>   RelinkEnterpriseTables = True
>   DoCmd.Hourglass False
>
> RelinkEnterpriseTables_exit:
>    On Error Resume Next
>    Set tdf = Nothing
>    dbsCurrent.Close
>    Set dbsCurrent = Nothing
>    Exit Function
>
> Proc_Err:
>     Select Case Err.Number
>         Case 3265   'Linked table not found.  Re-establish link.
>             Resume Next
>         Case 3011   'Table not found in target database
>             Select Case strTableDefName
>                 Case arrTableNames(0)
>                     strMsg = "Enterprise [" & lstrEnterprise & "] is
missing
> the <snip>.  " & _
> "Do you want to add these tables to this
> enterprise?"
>                     intresponse = MsgBox(strMsg, vbQuestion + vbYesNo)
>                     If intresponse = vbYes Then
>                         If AddCertIssuanceTable(strTableDefName,
dbsCurrent,
> lstrEnterprise) Then
>                             Resume Next
>                         End If
>                     Else
>                         RelinkEnterpriseTables = False
>                         Resume RelinkEnterpriseTables_exit
>                     End If
>                 Case Else
>
>                     strMsg = "Table [" & strTableDefName & "] in database
["
> & lstrEnterprise _
>                             & "] could not be found."
>                     MsgBox strMsg, vbExclamation
>                     RelinkEnterpriseTables = False
>                     Resume RelinkEnterpriseTables_exit
>             End Select
>         Case Else
>             MsgBox "The following error occured: " & Err.Number & ":  " &
> Err.Description
>             RelinkEnterpriseTables = False
>             Resume RelinkEnterpriseTables_exit
>     End Select
>
>     Resume Next
>
> End Function
>
>
> 'end of code ------------------------------------------------------
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Pedro Janssen
> Sent: Monday, February 07, 2005 4:23 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] linked table trouble
>
>
> Hello Bobby,
>
> could you provide me the code, or do you use another methode.
>
> Pedro Janssen
>
>
>
> ----- Original Message -----
> From: "Bobby Heid" <bheid at appdevgrp.com>
> To: "'Access Developers discussion and problem solving'"
> <accessd at databaseadvisors.com>
> Sent: Thursday, February 03, 2005 9:05 PM
> Subject: RE: [AccessD] linked table trouble
>
>
> > Way back in ACC97, we had issues with links.  So in our app, we just
> > programmatically relink every time.
> >
> > Bobby
> >
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
> > Foust
> > Sent: Thursday, February 03, 2005 2:39 PM
> > To: Access Developers discussion and problem solving
> > Subject: RE: [AccessD] linked table trouble
> >
> >
> > I don't have an answer for you, but I've heard that complaint several
> times
> > in other forums too.
> >
> > Charlotte Foust
> >
> >
> > -----Original Message-----
> > From: Pedro Janssen [mailto:pedro at plex.nl]
> > Sent: Thursday, February 03, 2005 11:08 AM
> > To: AccessD at databaseadvisors.com
> > Subject: [AccessD] linked table trouble
> >
> >
> > Hello Group,
> >
> > in the past we never had any troubles with linked tables. Since whe
> > are using A2003 the link between the databases and tables must
> be
> > renewed (with the linked Tabel manager) very often, in some computers
> > each morning. How is this possible? Is there a solution?
> >
> > Pedro Janssen
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
> >
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
>





More information about the AccessD mailing list