Problème avec tables liées et openrecordset
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:
Citation:
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:
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,
