Discussion :

[romano189]

Bonjour,

J'ai 2 fichiers Access qui communiquent par ADO (Client et serveur). Le fichier client affiche les données du fichier serveur dans un formulaire via un recordset. Le problème intervient quand j'utilise les menus contextuels pour faire des filtres ou des tris des données affichées.

Exemple:

Je fais un premier filtre sur une colonne

Puis je fais un second filtre sur une seconde colonne

Alors une erreur Access apparait (voir image en pièce jointe)

Voici le code que j'utilise pour la connexion et le recordset:

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
23
24
25
26
27
28
29
30
31
 
 
Function ExecSQL(ByRef query As String, ByRef recordID As ADODB.Recordset, ByRef connc As ADODB.Connection) As Boolean
'associé le formulaire à la requete
 
'ouvrir le recordset
recordID.ActiveConnection = connc
recordID.CursorLocation = adUseClient
recordID.CursorType = adOpenDynamic
recordID.LockType = adLockOptimistic
 
recordID.Open query
 
'Affecter le formulaire" au recordset
Set Form_Followup.Recordset = recordID
 
recordID.Close
Set recordID = Nothing
ExecSQL = True
 
End Function
 
Public Sub Form_Load()
'se connecter à la base de données
cnx.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & cible
cnx.CursorLocation = adUseClient
cnx.Open
 
'ouverture du RS
m = ExecSQL("SELECT * FROM " & Followup_R, rst, cnx)
end sub

Quelle est le problème?
Merci d'avance pour votre aide.