Fractionnement de base et code vba qui ne fonctionne plus

Fermé
beodeo Messages postés 8 Date d'inscription lundi 5 novembre 2012 Statut Membre Dernière intervention 8 novembre 2012 - 5 nov. 2012 à 17:40
beodeo Messages postés 8 Date d'inscription lundi 5 novembre 2012 Statut Membre Dernière intervention 8 novembre 2012 - 8 nov. 2012 à 00:49
Bonjour,

Je viens de fractionner ma base access.
Mon code fonctionnait parfaitement avant, mais depuis, à la fermeture de mon formulaire "interlocuteurs" l'execution d'un code modifiant la table "interlocuteurs" (table source du formulaire) il y a maintenant un message d'erreur d'execution 3048 ("impossible d'ouvrir plus de bases de données")

Extrait du code :

Dim DistantDB As DAO.Database
Dim SQLcode2 as String
SQLcode2 = "DELETE [RETOUR FORMULAIRE PRECEDENT].* FROM [RETOUR FORMULAIRE PRECEDENT];"

DistantDB.Execute SQLcode2

DistantDB.Close
Set DistantDB = Nothing


Mon code bloque sur :

DistantDB.Execute SQLcode2


Merci

A voir également:

3 réponses

blux Messages postés 26536 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 19 décembre 2024 3 317
5 nov. 2012 à 22:20
Salut,

que contient DistantDB ?
Car je ne la vois pas prendre une quelconque valeur dans ton code...
0
beodeo Messages postés 8 Date d'inscription lundi 5 novembre 2012 Statut Membre Dernière intervention 8 novembre 2012
5 nov. 2012 à 22:55
bonsoir,

oups j'avais oublié une ligne

Dim DistantDB As DAO.Database
Dim SQLcode2 as String
SQLcode2 = "DELETE [RETOUR FORMULAIRE PRECEDENT].* FROM [RETOUR FORMULAIRE PRECEDENT];"

Set DistantDB = CurrentDb

DistantDB.Execute SQLcode2

DistantDB.Close
Set DistantDB = Nothing
0
blux Messages postés 26536 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 19 décembre 2024 3 317
5 nov. 2012 à 23:26
Quelle version d'access ?
Quelle version de DAO dans les références ?
0
beodeo Messages postés 8 Date d'inscription lundi 5 novembre 2012 Statut Membre Dernière intervention 8 novembre 2012
5 nov. 2012 à 23:44
petites précisions :
1/ : j'ai rapatrié ma table en local et la plus aucun problème...
mais avec la liaison c'est toujours le même message d'erreur.
2/ dans mon formulaire j'ai des sous formulaires qui via des requêtes utilisent cette fameuse table en source.

si ça peut t'éclairer davantage...
0
blux Messages postés 26536 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 19 décembre 2024 3 317
5 nov. 2012 à 23:46
Comme je l'ai déjà demandé :
Quelle version d'access ?
Quelle version de DAO dans les références ?

Ton code est propre ? Tu supprimes bien les objets après t'en être servi (set ... = nothing) ?
0
beodeo Messages postés 8 Date d'inscription lundi 5 novembre 2012 Statut Membre Dernière intervention 8 novembre 2012
6 nov. 2012 à 10:24
version access : 2002/2003
version DAO : 3.6

je supprime constamment les objets apres m'en être servi...
et je pense pouvoir dire que mon code est propre (enfin presque...)
0
blux Messages postés 26536 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 19 décembre 2024 3 317
6 nov. 2012 à 11:30
Il y a une limite de 255 'objets connectés' ouverts dans access. Peut-être que tu es à la limite ?
0
beodeo Messages postés 8 Date d'inscription lundi 5 novembre 2012 Statut Membre Dernière intervention 8 novembre 2012
6 nov. 2012 à 12:06
Est ce que le fait d'utiliser cette table plusieurs fois dans des sous formulaires peut provoquer des "interférences" avec le code sql (qui la modifie également avec le DELETE) ?
0
blux Messages postés 26536 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 19 décembre 2024 3 317
6 nov. 2012 à 12:13
Je ne pourrais être catégorique.
Au besoin, si tu fais beaucoup de VBA tu pourrais passer en transaction pour ce qui est des mises à jour...
0