Ouvrir une seconde base de données access
NullMan
-
NullMan -
NullMan -
Bonjour,
En fait, j'ai créé 3 base de données access et ce que je voudrais faire c'est faire in formulaire sur la 1ere base avec deux boutons dessus.
Sur ces deux bouton, je voudrais que des qu'on click sur le premier bouton, ça ouvre la seconde base !
J'ai fait un code mais sa ne marche pas!
Voici le code :
Private Sub Commande0_Click()
Dim stDocName As String
Dim stLinkCriteria As String
DoCmd.Close
OpenCurrentDatabase "C:\SaisieSalariés.mdb"
Exit Sub
End Sub
Mais sa me mais un message d'erreur '7867', la base est déja ouverte!! alors qu'elle est fermé!
Merci d'avance
En fait, j'ai créé 3 base de données access et ce que je voudrais faire c'est faire in formulaire sur la 1ere base avec deux boutons dessus.
Sur ces deux bouton, je voudrais que des qu'on click sur le premier bouton, ça ouvre la seconde base !
J'ai fait un code mais sa ne marche pas!
Voici le code :
Private Sub Commande0_Click()
Dim stDocName As String
Dim stLinkCriteria As String
DoCmd.Close
OpenCurrentDatabase "C:\SaisieSalariés.mdb"
Exit Sub
End Sub
Mais sa me mais un message d'erreur '7867', la base est déja ouverte!! alors qu'elle est fermé!
Merci d'avance
A voir également:
- Ouvrir une seconde base de données access
- Fuite données maif - Guide
- Comment ouvrir un fichier epub ? - Guide
- Ouvrir fichier .bin - Guide
- Base de registre - Guide
- Ouvrir fichier .dat - Guide
3 réponses
Voici l'aide d'access dans ce domaine:
' Include the following in Declarations section of module.
Dim appAccess As Access.Application
Sub DisplayForm()
Dim strDB as String
' Initialize string to database path.
Const strConPathToSamples = "C:\Program " _
& "Files\Microsoft Office\Office11\Samples\"
strDB = strConPathToSamples & "Northwind.mdb"
' Create new instance of Microsoft Access.
Set appAccess = _
CreateObject("Access.Application")
' Open database in Microsoft Access window.
appAccess.OpenCurrentDatabase strDB
' Open Orders form.
appAccess.DoCmd.OpenForm "Orders"
End Sub
' Include the following in Declarations section of module.
Dim appAccess As Access.Application
Sub DisplayForm()
Dim strDB as String
' Initialize string to database path.
Const strConPathToSamples = "C:\Program " _
& "Files\Microsoft Office\Office11\Samples\"
strDB = strConPathToSamples & "Northwind.mdb"
' Create new instance of Microsoft Access.
Set appAccess = _
CreateObject("Access.Application")
' Open database in Microsoft Access window.
appAccess.OpenCurrentDatabase strDB
' Open Orders form.
appAccess.DoCmd.OpenForm "Orders"
End Sub
