Discussion :

[gbzmt]

Bonjour,
A l'exécution du code ci-dessous

Code :

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

1
2
3
4
Dim CoureursEngagésR As Object
Set CoureursEngagésR = MaBase.OpenRecordset("CoureursEngagésR", dbOpenDynaset)
filtre = "[SérieDossard] = " & 3
CoureursEngagésR.Filter filtre

Le message suivant arrête le déroulement de la procédure:
Erreur d' exécution 3251
Opération non autorisée pour ce type d'objet
Voici le code SQL de la requête "CoureursEngagésR":

Code :

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

1
2
SELECT DEFINIRCourses.SérieDossard, CoureursEngagés.Dossard
FROM CoureursEngagés INNER JOIN DEFINIRCourses ON CoureursEngagés.Compétition = DEFINIRCourses.Désignation;

Pourquoi cette "infamie" ?
Merci d'avance

[marot_r]

Pourquoi utilises-tu un Object pour ton recordset alors que tu as un type Recordset disponible (DAO.Recordset ou ADODB.Recordset) ?

L'intérêt d'utiliser le bon type est :

• que l'intelissenses te présente les propriétés et méthode disponibles,
• que cela vas un peu plus vite pour la compilation et l'exécution
• et que tu vérifie à la compilation que tu assigne bien un recordset à ton recordset et pas un formulaire par exemple.

Sur quelle ligne exactement se produit l'erreur ? Sur le filter ?

A+

[gbzmt]

Je ne comprends pas:

(DAO.Recordset ou ADODB.Recordset)

L'erreur se produit au moment du filtre, sur la ligne:

Code :

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

CoureursEngagésR.Filter filtre

[marot_r]

Si tu utilise un recordset, définie le comme tel.

Code :

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

1
2
 
Dim CoureursEngagésR As DAO.Recordset

ou

Code :

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

1
2
 
Dim CoureursEngagésR As ADODB.Recordset

Le problème c'est qu'il existe 2 types d'objet recordset, selon la librairie que tu emploie pour accéder aux donnés. La librairie peut être ADO ou DAO (va dans Outils / Référence pour savoir laquelle est utilisée.)

Bien que portant le même nom, les deux types de recordset n'ont pas les même propriétés.

Probablement que là tu utilise une syntaxe valide en DAO mais invalide en ADO ou le contraire.

A+

[gbzmt]

Après vérification, j'utilise la bibliothèque DAO
Si je remplace

Code :

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

Dim CoureursEngagésR As objet

par

Code :

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

Dim CoureursEngagésR As DAO.Recordset

J'obtiens le message pour la ligne filter:
"utilisation incorrecte de la propriété"

[marot_r]

Tu as bien une référence sur Microsoft DAO x.y Object Librarie (où x.y est un truc du genre 3.6)

Je viens de faire un test chez moi et ça marche.