Fractionnement de base et code vba qui ne fonctionne plus
beodeo
Messages postés
8
Statut
Membre
-
beodeo Messages postés 8 Statut Membre -
beodeo Messages postés 8 Statut Membre -
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 :
Mon code bloque sur :
Merci
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:
- Fractionnement de base et code vba qui ne fonctionne plus
- Code ascii - Guide
- Code puk bloqué - Guide
- Code de déverrouillage oublié - Guide
- Code activation windows 10 - Guide
- Scanner qr code pc - Guide
3 réponses
Salut,
que contient DistantDB ?
Car je ne la vois pas prendre une quelconque valeur dans ton code...
que contient DistantDB ?
Car je ne la vois pas prendre une quelconque valeur dans ton code...
bonsoir,
oups j'avais oublié une ligne
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
