Discussion :

[marot_r]

Bonjour à tous et merci de votre temps et de votre aide.

J'ai le code suivant dont le but est d'ouvrir une autre BD Acccess.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Compare Database
Option Explicit
 
Private Sub Test_CopierRepriseDePretCreaload()
    Call CopierRepriseDePretCreaload(Year(Date))
End Sub
 
Private Sub CopierRepriseDePretCreaload(prmAnnee As Long)
    Dim aa As Access.Application: Set aa = CreateObject("Access.Application")
    aa.UserControl = True
    Call aa.OpenCurrentDatabase("c:\MonChemin" & "\bd6.mdb", False)
    'Ici des choses que je veux faire
    aa.Quit
End Sub

La BD que j'utlise pour l'appel (bd5) est une BD vide (juste le module) et bd6 est simplement une copie de bd5.

Chauqe fois que j'essaye d'exécuter (en mode pas-à-pas ou normal) ce code il plante sauvagement (pas de message d'erreur, demande réparation de la BD) sur le OpenCurrentDatabase.

J'ai redemaré mon PC.

Je ne comprend pas d'où cela peut venir.

Quelqu'un aurait-il une idée ?

A+

[robyseb]

Salut marot_r essai d'écrire ton code de cette façon :

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
20
21
22
23
24
25
 Private Sub Test_CopierRepriseDePretCreaload()
    Call CopierRepriseDePretCreaload(Year(Date))
End Sub
 
   Private Sub CopierRepriseDePretCreaload(prmAnnee As Long)
    'essai si ca ne fonctionne pas de déclarer la prochaine ligne après 
    'ton option compare database et option explicit donc à l'extérieur du sub !!
    Dim aa As Access.Application  '<------
    Dim strDB as String
 
    ' Initialise le chemin de ta base à part !!
    Const strConPathTobase = "c:\MonChemin" 
 
    strDB = strConPathTobase & "bd6.mdb"
    ' Création de ta base Access 
    Set aa = _
        CreateObject("Access.Application")
 
    ' Ouverture de la base dans la fenêtre Access
    ' pas besoin d'écrire le false puisqu'il l'est d'office pour le mode "share"
    aa.OpenCurrentDatabase strDB
 
    'ici les choses que tu veut faire !!
   aa.quit
End Sub

voit ce que tu en pense !!
cordialement

[marot_r]

Non, même résultat y compris en mettant la définition de aa au niveau du module.

robyseb, as-tu pu le faire sur ta machine ?

A+

[Godzestla]

robyseb, as-tu pu le faire sur ta machine ?

Salut Marot_R,

au cas où cela peut te servir, j'ai testé ton code sur ma bécane, sans aucun problème, sur une DB appelante vide, juste un module pour le code, et une bd appelée totalement vide.

[robyseb]

Salut j'ai testé mais il y a une chose quand je lance le code j'ai voulu ouvrir une base remplie d'info .... rien ne se passait ... click et re-click rien ...je décide d'aller voir dans le gestionnaire de tâche ..j'avait plusieurs processus MSACCESS donc après coup j'ai cru remarqué que tous dépendant ce don tu désire faire ... si tu veut ouvrir une autre base tu te doit de fermer la premiere d'abord en utilisant

Code :

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

CloseCurrentDatabase

[marot_r]

Merci robyseb mais les 2 BD doivent être ouverte en même temps, bd5 pilote bd6.

Merci Godzestla cela confirme que mon code est correct. Je vais essayer sur une machine où je n'ai qu'une seule version d'Access.

A+

[marot_r]

Donc apparement le problème vient qu'il y a plusieurs versions d'Access sur ma machine. Un test sur une machine 'Pure 2003' a fonctuonné à la perfection.

A+

[robyseb]

De rien j'ai essayer ca s'explique donc les différente version entre en conflit ..

[marot_r]

Oui, cela arrive parfois mais je n'y avais pas pensé. Comme c'est quelque chose que je fais rarement je pensais plus à un bug dans mon code.

Merci encore de l'aide.

A+