Discussion :

[bozolozo]

Bonjour,
ca ne doit pas être très compliqué, mais je n'arrive pas à écrire le code en VBA qui me permette de vérifier depuis une première base si une autre bdd access existe (le nom et le chemin pour celle-ci existent).
Merci d'avance

[DelphiManiac]

En DAO, désolé je ne suis pas adepte d'ADO.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Commande6_Click()
  Dim db As Database
  Dim dbexiste As Boolean
 
  On Error GoTo erreur
  Set db = OpenDatabase("d:\temp\test.mdb")
  dbexiste = True
  db.Close
  On Error GoTo 0
  Exit Sub
 
erreur:
  dbexiste = False
  On Error GoTo 0
End Sub

[Nohant]

Une autre possibilité est un simple dir("chemin\base.mdb") qui marche aussi pour vérifier l'existence de la base

[bozolozo]

Ok, merci à vous deux, ca marche