Question : VBA pour modifier des liens de table à un nouvel endroit

Salut tous,

I AM essayant d'employer le code pour modifier les liens de plusieurs tables dans une base de données. la base de données du

The a un certain nombre de tables de gens du pays et uns ont lié ceux. Les utilisateurs téléchargent leur propre copie du système et quand ils le courent pour la première fois ils obtiennent un écran de démarrage sur la première utilisation qui les demande que pour passer par une installation process.

First dans la ligne reconnecte les quelques tables liées.  La forme a un endroit de défaut mais un utilisateur peut tracer la commande de réseau car celui qu'elles veuillent et puissent devoir se relier à une commande différente selon leur location.

So sur la forme est un champ avec l'endroit de défaut, mais un bouton pour passer en revue pour un retour une base de données dans un endroit différent. Une fois fait le class= simple suivant " lineNumbers " >
1 de >
: 2 : 3 : 4 : >Sub " de


Where Me.txt est le

This de « C:\My Documents\db.mdb " de carte d'entraînement c.-à-d. ne semble pas fonctionner.  Si je corrige le raccordement de tables avant et après que ce l'endroit d'entraînement soit le même en dépit du fait il devrait avoir changé.  le

As un autre essai, si je choisis une autre base de données complètement aléatoire qui ne contient pas les tables nous sont recherchant moi n'obtiennent aucune erreur ou n'importe quoi….le

Can n'importe qui voient ce qui pourrait être vers le haut avec ceci ?

Cheers
DeZZar
class= de

Réponse : VBA pour modifier des liens de table à un nouvel endroit

> au noyau des deux fonctions de lien est exactement le même procédé que j'ai signalé ci-dessus.

Pas, parce que vous appelez CurrentDb des périodes multiples où vous devriez l'appeler une fois seulement.
Voici comment pour attacher des tables dans un dossier principal localisé dans la même chemise que d'entrée.
Vous pouvez facilement la modifier using le chemin pour la partie postérieure comme paramètre.

/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 :
  Faibles dbs comme DAO.Database
  Faible tdf comme DAO.TableDef
  
  Faible strSourceTableName  comme corde
  Faible strCurrentPath      comme corde
  Faible strAttachPath       comme corde
  Faible strFrontendPath     comme corde
  Faible strBackendPath      comme corde
  Faible strConnect          comme corde
  
  Sur l'erreur Err_GentilknytData GoTo
  
  Placer les dbs = le CurrentDb
  
  strFrontendPath = dbs. Nom
  strCurrentPath = mi (strFrontendPath, 1, InStrRev (strFrontendPath, « \ ") - 1)

  Pour chaque tdf dans dbs.TableDefs
    strSourceTableName = tdf.SourceTableName
    Si Len (strSourceTableName) > 0 puis
      le strBackendPath = s'est dédoublé (tdf. Relier, le « =") (1)
      strAttachPath = mi (strBackendPath, 1, InStrRev (strBackendPath, « \ ") - 1)
      Si StrComp (strCurrentPath, strAttachPath, vbTextCompare) <> 0 puis
        strConnect = « ; DATABASE= » et strCurrentPath et » \ AktivitetData.mdb "
        tdf. Relier = strConnect
        tdf.RefreshLink
      Finir si
    Finir si
  Après

  Placer le tdf = rien
  Placer les dbs = rien
  
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
  •  Winzip 12 issues de secours du travail ?
  •  
    programming4us programming4us