[Fait]ouvrir une DB par OpenCurrentDatabase sans activer l'Autoexec [FAQ]

**NOODLE02** · 26/05/2007, 20h11

Voilà mon problème. Je termine le développement d'une application de documentation automatique de DB ACCESS. Je reste avec un problème sur les bras, c'est celui de l'ouverture de la DB à traiter.

Je dois l'ouvrir de deux manières différentes :
- la première par OpenDatabase pour récupérer la structure générale des données (là pas de problèmes)
- la seconde par OpenCurrentDatabase pour accéder au contenu et aux propriétés des formulaires, des rapports , des modules et des macros .

Tout se passe sans problèmes pour une DB qui n'a pas de macro Autoexec.
Par contre dans le cas contraire, cette macro est activée.

Il va sans dire que je ne peux pas modifier manuellement le contenu de la macro Autoexec , il s'agit de DB du client et rien ne doit changer dedans (du moins de manière permanente). De plus, l'application sera étendue pour fonctionner en mode batch sur toutes les DB sélectionnées dans le disque.

Donc ma question précise est la suivante :

Est-il possible d'ouvrir une DB par l'instruction OpenCurrentDatabase en inhibant l'action de la macro Autoexec de la DB cible.

Voici l'extrait du code correspondant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Public §ACCS_CURT§ As Application
 
....
 
Dim DBAS_FILE as string
 
....
 
If §ACCS_CURT§ Is Nothing = True Then
Set §ACCS_CURT§ = New Access.Application
End If
 
§ACCS_CURT§.OpenCurrentDatabase DBAS_FILE

Donc merci à vous pour toute réponse ou suggestion qui seront les bienvenues.

**Tofalu** · 27/05/2007, 16h14

Question intéressante

Une idée, je ne sais pas ce qu'elle vaut

Ouvrir un objet database avec opendatabase, renommer la macro autoexec avec l'objet document et le container Macros. Fermer l'objet database et ouvrir l'instance Access comme tu le fais déjà. A la fin, renommer la macro en autoexec. Je sais c'est un peu moyen en cas de plantage au milieu mais pour l'instant, je ne vois que ça

Peut être une autre possibilité, je ne sais pas : simuler l'appui de la touche shift avec l'api windows.

Je n'ai pas d'autre piste pour l'instant

**NOODLE02** · 27/05/2007, 21h04

Merci pour ta réponse, et désolé si je pose des questions un peu tordues, mais d'habitude, en cherchant un peu, je finis toujours par trouver par moi-même.

Pourtant, ce cas-ci (et le précédent) m'ont déjà donné pas mal de cheveux gris, alors je me disais que "faire appel à l'équipe" une fois de temps en temps, ce n'est pas superfu.

Merci encore.

PS, j'en ai une autre en préparation, mais je vais encore un peu chercher avant de soumettre mon problème sur le forum.

En tout cas, je tire mon chapeau à tous les responsables de ce site pour la courtoisie et la disponibilité dont vous faites preuve.

**NOODLE02** · 28/05/2007, 09h19

Bonjour Tofalu,

Ton idée était bonne, mais je ne vois pas très bien comment parvenir à renommer la macro Autoexec sans ouvrir une instance de la DB.

Voici l'extrait du code par lequel j'ai tenté d'appliquer ta méthode.

(je précise que le chargement de tous les containers et de tous les documents a été effectué et les données stockées dans la table tbl_CONT_DBAS_MAIN). Le code est exécuté après le chargement.

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
16
17
18
19
 
  Set WORK_SPCE = CreateWorkspace("", "admin", "", dbUseJet)
  Set EXTE_DBAS = WORK_SPCE.OpenDatabase(DBAS_FILE)
  Set CURT_DBAS = CurrentDb
... 
 
' (chargement de la table)
...
 
  STRG_AUTO = "SELECT * FROM tbl_CONT_DBAS_MAIN " & _
              "WHERE CONT_NAME = 'Scripts' " & _
              "AND ITEM_NAME = 'Autoexec'"
  Set RECS_AUTO = CURT_DBAS.OpenRecordset(STRG_AUTO)
 
  If Not RECS_AUTO.EOF Then
    Set OBJT_CONT = EXTE_DBAS.Containers("Scripts")
    Set OBJT_ITEM = OBJT_CONT.Documents("Autoexec")
    OBJT_ITEM.Properties("NAME").Value = "Auto_exec"
  End If

La ligne "OBJT_ITEM.Properties("NAME").Value = "Auto_exec" me revoit une erreur 3001 Invalid Argument.

J'imagine que c'est du fait que je ne peux pas modifier le nom de la macro.

Je pourrais utiliser DoCmd pour effectuer le changement de nom, mais pour ça il faut ouvrir la DB et naturellement, lorsque je vais l'ouvrir, la macro Autoexec va s'exécuter. Donc je ne suis pas plus avancé.

Peut-être existe-t-il une autre possibilité de renommer la macro ?

**mout1234** · 28/05/2007, 10h20

Bonjour,

Je ne suis guère surpris que tu obtiennes une erreur car il me semble que la propriété Name des objets Document n'est modifiable que si l'on vient de créer le document par code et avant qu'il ne soit ajouté à la collection.

A tout hasard, tu peux peut-être essayer de simuler la touche Shift comme le suggère Tofalu, à l'aide de l'API keybd_event.

Je viens de faire un petit essai qui semble prometteur

Code :

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

1
2
 
 Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Dim db As Database
Dim appAccess As Access.Application
Const csts = "D:\Mes documents\BaseTests.mdb"
 
 
   keybd_event vbKeyShift, 0, 0, 0 'Enfonce la touche SHift
    Set appAccess = New Access.Application
    appAccess.Visible = True
    appAccess.OpenCurrentDatabase csts
    appAccess.DoCmd.OpenForm "MonForm"
    keybd_event vbKeyShift, 0, 2, 0

'libère la touche SHift