Pytanie : VBA stołowy połączenie nowy lokacja

Cześć Baza danych,

I am kod the połączenie kilka stół w baza danych.

The Baza danych mieć liczba lokalny stół i few łączyć ones. Użytkownik ściągać ich swój kopia the system i gdy biegać ono pierwszy raz dostawać początkowy ekran na pierwszy use który pytać przez ustawianie process.

First w linia re-linking the pierwszy łączyć stół.  The forma mieć brak lokacja ale użytkownik móc the sieć przejażdżka gdy lokacja chcieć i móc różny przejażdżka w zależności od ich location.

So na the forma być pole z the brak lokacja, ale guzik dla powrót baza danych w lokacja. Jak Tylko robić the następujący prosty kod runs.

1:
2:
3:
4:

Sub ChangeLink ()    
    CurrentDb.TableDefs ("tbl_SystemLog"). Łączyć ="; DATABASE= " & Me.txt Backend
    CurrentDb.TableDefs ("tbl_SystemLog") .RefreshLink
Końcówka Okręt podwodny


Where Me.txt BackEnd być the prowadnikowy mapa i. e. "C:\My Documents\db.mdb "

This wydawać się.  Jeżeli I debug the stół podłączeniowy przed i po to the prowadnikowy lokacja być the to samo pomimo the fact ono musieć.  

As inny test, jeżeli I wybierać inny całkowicie przypadkowy baza danych który zawierać the stół my patrzeć dla I dostawać żadny błąd lub baza danych….

Can to widzieć to można co z to?

Cheers
DeZZar

Odpowiedź : VBA stołowy połączenie nowy lokacja

> Przy the sedno i łączyć funkcja być dokładnie the ten sam procedura który I wysyłać ten sam.

Nie, ponieważ ty dzwonić CurrentDb wieloskładnikowy czas dokąd ty musieć ono wieloskładnikowy tylko.
Tutaj być jak dla stół w tutaj kartoteka lokalizować w the ten sam falcówka the ten sam.
Ty móc łatwo ono using the ścieżka dla the backend jako parametr.

/gustav
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

  Ciemnawy dbs Jako DAO.Database
  Ciemnawy tdf Jako DAO.TableDef
  
  Ciemnawy strSourceTableName  Sznurek
  Ciemnawy strCurrentPath      Sznurek
  Ciemnawy strAttachPath       Sznurek
  Ciemnawy strFrontendPath     Sznurek
  Ciemnawy strBackendPath      Sznurek
  Ciemnawy strConnect          Sznurek
  
  Na Błąd Rozpoczynający Err_GentilknytData
  
  Ustalony dbs = CurrentDb
  
  strFrontendPath = dbs. Imię
  strCurrentPath = W połowie (strFrontendPath, (1), InStrRev (strFrontendPath, "\ ") - 1)

  Dla Dbs.TableDefs tdf W dbs.TableDefs
    strSourceTableName = tdf.SourceTableName
    Jeżeli Len (strSourceTableName) > (0) Wtedy
      strBackendPath = Rozłam (tdf. Łączyć, "=") (1)
      strAttachPath = W połowie (strBackendPath, (1), InStrRev (strBackendPath, "\ ") - 1)
      Jeżeli StrComp (strCurrentPath, strAttachPath, vbTextCompare) <> (0) Wtedy
        strConnect = "; DATABASE=" & strCurrentPath &" \ AktivitetData.mdb "
        tdf. Łączyć = strConnect
        tdf.RefreshLink
      Kończyć Jeżeli
    Kończyć Jeżeli
  Następnie

  Ustalony tdf = Nic
  Ustalony dbs = Nic
Inne rozwiązania  
 
programming4us programming4us