[AccessD] BE Relinker

...JC keeps a copy available here:
http://www.colbyconsulting.com/UsefulFiles/tabid/126/Default.aspx

William

----- Original Message ----- 
From: "Rocky Smolin - Beach Access Software" <bchacc at san.rr.com>
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Tuesday, January 17, 2006 11:11 PM
Subject: Re: [AccessD] BE Relinker


>I use Tribble's relinker.  I'm not sure if it's still on the web
> somewhere.  But, if it can't find the BE tables in the FE folder it
> opens the file open dialog box and asks you to point to the back end and
> then relinks.  Very nice piece of code.
>
> Rocky
>
>
> Stuart McLachlan wrote:
>> On 17 Jan 2006 at 8:09, Joe Hecht wrote:
>>
>>
>>> Did some kind, generous and way smarter then me soul create
>>> at BE relinker?
>>>
>>>
>>
>> Here's my standard module that I use when the BE and FE are in the same
>> directory.  Not that it if your BE is password protected, you will need 
>> to
>> modify this slightly since "tdfloop.Connect" will contain additional info
>> before the first semicolon.
>>
>>
>> Function RelinkTables() As Long
>> Dim tdfloop As TableDef
>> With CurrentDb
>>         For Each tdfloop In .TableDefs
>>             If Left$(tdfloop.Connect, 10) = ";DATABASE=" Then
>>                tdfloop.Connect = ";DATABASE=" & ApplDir &
>> FileBasename(Mid$(tdfloop.Connect, 11))
>>                tdfloop.RefreshLink
>>             End If
>>         Next tdfloop
>> End With
>> End Function
>>
>> Static Function ApplDir() As String
>>    Dim strApplDir As String
>>    Dim strTemp As String
>>    If strApplDir = "" Then
>>     strTemp = DBEngine(0)(0).Name
>>     strApplDir = Left$(strTemp, InStrRev(strTemp, "\"))
>>    End If
>>    ApplDir = strApplDir
>> End Function
>>
>> Function FileBasename(fullpath As String) As String
>>     FileBasename = Right$(fullpath, Len(fullpath) - InStrRev(fullpath,
>> "\"))
>> End Function-- 
>> Stuart
>>
>>
>>
>
> -- 
> Rocky Smolin
> Beach Access Software
> 858-259-4334
> www.e-z-mrp.com
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>