Discussion :

[Invité]

Bonne fêtes...

Bonjour,

J'ai 2 bases de données liées par des tables

Mais une bases est sur un serveur et l'autre sur mon PC

Quand je ne suis pas dans mon entreprise donc pas en mode réseau

Quand je veux ouvrir ma base de donnée de mon PC

J'ai un message d'erreur

Pièce jointe 631368

Comment pouvoir utiliser dans ce cas là ma base sans être sur le réseau de mon entreprise

Existe t-il un bout de code en VBA à l'ouverture de ma base qui me prévient que je ne suis pas en réseau et que je fonctionne en mode dégradé ?


Merci d'avance

JUANITO 26

[ONTAYG]

Bonjour,

Avec une gestion d'erreur, tu as le code dans la boite de dialogue.

ONTAYG

[hyperion13]

re
il faut utiliser :
- la fct Dir() pour tester les emplacements
- la méthode TableDef et les propriétés Connect et RefreshLink
et sur une Event FormLoad() faire un IF ... THEN ... END IF

[Invité]

re
il faut utiliser :
- la fct Dir() pour tester les emplacements
- la méthode TableDef et les propriétés Connect et RefreshLink
et sur une Event FormLoad() faire un IF ... THEN ... END IF

Bonsoir,

J'ai trouvé ce code sur le NET

et à priori cela fonctionne dans mon cas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
DoCmd.SetWarnings False
 
On Error GoTo err
 
Mon code..............................
 
err:
 Select Case err.Number
             Case (3044)
                MsgBox "Votre base de données sur le SERVEUR est introuvable ! En cas de récidive, veuillez contacter votre administrateur.", vbOK, "Erreur de liaison LOCAL vers SERVEUR"
                DoCmd.Quit

En tout cas

Merci beaucoup

JUANITO 26