Discussion :

[CrankFlash]

Bonjour,
Comme indiqué dans l'intitulé de de message, j'ai le message d'erreur suivant qui apparait :

Erreur d'exécution 3048 : Impossible d'ouvrir plus de bases de données.

Mon formulaire est constitué d'un tas de ListBox et ComboBox dont la propriété RowSource est définie manuellement dans le code de cette manière :

Code :

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

1
2
3
Dim liste As ListBox
 
liste.RowSource = "SELECT ..."

Ces RowSource sont ensuite modifiés sans cesse selon les paramètres cochés par l'utilisateur dans le formulaire.

J'exécute également toutes sortes de requêtes (Select, Insert, Update, Delete).
J'utilise la base de données de cette manière :

Code :

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

1
2
3
4
DIM DB As DAO.Database
 
Set DB = CurrentDB
DB.OpenRecordset ...

Ensuite lorsque je manipule les différents Recordset, je prends bien soin de TOUS les fermer après en faisant appel à la routine suivante :

Code :

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

1
2
3
4
5
6
Public Sub CleanRecordset(RecordSet As DAO.RecordSet)
    If Not RecordSet Is Nothing Then
        RecordSet.Close
        Set RecordSet = Nothing
    End If
End Sub

Tout marchait très bien jusqu'à ce à ce que je mette à jour les différentes requêtes SQL de manière à utiliser des jointures au lieu de WHERE.

Là je suis coincé, je ne sais vraiment pas dans quelle mesure access ouvre tout plein de base de données ...
Merci d'avance pour votre aide !

[fevec]

Bonjour,
Tu fermes les RecordSet Ok et les Db ?

Une piste :

Code :

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

Set DB = nothing

Ensuite, si cela continue :
Compactage, compression
Decompilation, recompilation

ensuite..
Regarde si des SR (service release) existe sur ACC2003 qui pourrait corriger cela

(Je ne sais pas en Access2003, mais en ACC97 c'est un bug connu)

bon courage

Bonne journée
fevec