Discussion :

[J-Bix]

Bonjour à toutes et à tous!

J'ai un petit souci avec Access qui m'empêche de finaliser mon projet. Je m'explique.
Pour ouvrir un de mes formulaires, j'exécute une requête SQL en passant par un morceau de code qui: "Set rs=currentDb.OpenRecordset (strsql)".
Lors du développement, aucun souci. Sauf que pour finaliser le projet, j'ai fractionné ma base en deux (table d'un coté et le reste de l'autre). Du coup maintenant, j'ai des tables liées et VBA bloque sur ce morceau de code en m'indiquant:

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

Voici le code qui s'exécute à l'ouverture du formulaire:

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
Public Sub leslignes()
Dim rs As DAO.Recordset
Dim strsql As String
Dim i As Integer
'selction des opérations en fonction du journal
strsql = "SELECT T_annuaireADM.ID_contact_ADM, T_annuaireADM.[A quitté entreprise], T_annuaireADM.[Affectation service ADM] FROM T_annuaireADM WHERE (((T_annuaireADM.[A quitté entreprise])=False)AND(T_annuaireADM.[Affectation service ADM]=""3""));"
Set rs = CurrentDb.OpenRecordset(strsql)
 'sinon on parcout pour recupérer les ID
    rs.MoveFirst
    rs.Move 6 * lapage
    For i = 1 To 6
    If Not rs.EOF Then
    tblligne(i) = rs(0)
    rs.MoveNext
    Else
    tblligne(i) = 0
    End If
    Next i
'End If
rs.Close
Set rs = Nothing
End Sub

J'ai bien essayé de chercher sur internet des solutions cependant, je n'ai pas trouvé. J'espère avoir été assez clair dans mes explications.

Pouvez-vous m'aider à résoudre ce souci?

Cordialement,

[J-Bix]

Re-bonjour à toutes et à tous,

Après être passé un peu sur des forums anglo-saxons, j'ai pu comprendre que cela pouvait venir du fait que le formulaire appelé contenait trop d'objets (formulaires, sous-formulaires...). Ce qui s'est révélé être exact! J'ai supprimé 2 sous-formulaires et le code fonctionne correctement.
Sauf que ça ne m'arrange pas d'avoir supprimé ces 2 sous-formulaires.

Maintenant que le sujet est un peu plus ciblé (je vais dire ça comme ça) avez-vous des solutions, des suggestions à ce sujet?

J'ai essayé sous Access 2010 et le résultat est le même. Peut être au niveau des références VBA (j'ai cru lire ça sur certains forums)???

Cordialement,

[Tofalu]

CurrentDb crée un nouvel objet Database à chaque appel. Il ne s'agit pas d'une propriété mais d'une méthode. C'est pour cela que l'on préconise de recourir à un seul objet DAO.Database instancié en début de traitement. L'objet peut être déclaré en entête de module pour voir sa portée étendue.

Code :

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

Set oDb = CurrentDb

Et ensuite, les recordset sont ouverts depuis oDb

http://warin.developpez.com/access/d...tie_3#L3.3.1.1