Question : Comment une base de données d'accès peut-elle être ouverte dans une nouvelle fenêtre employant l'accès VBA ?

J'ai ceci : le

How peut une base de données d'accès être ouvert dans une nouvelle fenêtre employant l'accès VBA ? le

Public le strDB que secondaire du

Dim d'OpenDatabase (DatabaseName) comme appAccess de String
Dim comme strFilename d'Access.Application
Dim comme String
Dim PathIs comme String

'** détectent le path
'PathIs = Application.CurrentProject.Path

DriveLetter = est parti (Application.CurrentProject. Path, 1)
PathIs = DriveLetter et « : \ » et DatabaseName
strDB = PathIs et « \ » et de DatabaseName et « de .accdb " créent le nouvel exemple de la base de données ouverte d'appAccess de Microsoft Access.
Set = de

'** de CreateObject le

'** (« Access.Application ») dans le strDB secondaire ouvert du

Dim du
End Sub
Public OpenDatabase (DatabaseName) du
du strDB

'** AutoExec form.
appAccess.DoCmd.OpenForm « AutoExec " de Microsoft Access window.
appAccess.OpenCurrentDatabase comme appAccess de String
Dim comme strFilename d'Access.Application
Dim pendant que String
Dim PathIs comme String

'** détectent le path
'PathIs = Application.CurrentProject.Path

DriveLetter = partait (Application.CurrentProject. Path, 1)
PathIs = DriveLetter et » : \ « et DatabaseName
strDB = PathIs et » \ « et de DatabaseName et » de .accdb " créent le nouvel exemple de la base de données ouverte d'appAccess de Microsoft Access.
Set = de

'** de CreateObject le

'** (« Access.Application ») dans
End Sub du
du strDB

'** AutoExec form.
appAccess.DoCmd.OpenForm « AutoExec le " de Microsoft Access window.
appAccess.OpenCurrentDatabase class= de

Réponse : Comment une base de données d'accès peut-elle être ouverte dans une nouvelle fenêtre employant l'accès VBA ?

Avez-vous fait avez-vous apporté des modifications sur le gallon ?
si oui vous pourriez devoir attendre la réplique.