Discussion :

[db30]

Est-ce que quelqu'un peut m'explique pourquoi la dernière ligne de ce code génère l'erreur incompatibilité de type alors que j'ai l'impression d'avoir de chaque côté de l'égalité un objet Recordset ?
Que dois-je faire pour que ça marche?
Je remercie par avance tous ceux qui pourront m'apporter leur lumière.
NB: Frm == formulaire.

Code :

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

1
2
3
4
5
6
7
8
'---------------------------
'Access VBA
'---------------------------
  Dim Lcnn_Local As ADODB.Connection
  Set Lcnn_Local = CurrentProject.Connection
  Dim LRst_Comb As ADODB.Recordset
  Set LRst_Comb = New ADODB.Recordset
  Set LRst_Comb = LFrm_Tirages!f0001_sousFrm.Form.Recordset

[=JBO=]

Bonjour db30,

L'aide en ligne de VBA Access répond à ta question...

Propriété Recordset
[...]
Quand un objet Recordset est demandé dans une base de données Microsoft Access (.mdb), un objet DAO Recordset est renvoyé tandis que dans un projet Microsoft Access (.adp), c'est un objet ADO Recordset qui est renvoyé.

[db30]

Merci =JBO=

Je comprends mieux maintenant le message d'erreur que je recevais.

PS:
J'ai cherché dans l'aide en ligne de VBA Access, mais j'ai dû rater l'info, alors sincèrement merci pour la réponse et pour ne pas avoir considéré qu'un poil dans la main m'avait empêché de chercher avant de poster ma question.

[AlainTech]

J'ai marqué ce sujet comme Trucs et astuces pour le fait que, même sous ADO, un objet DAO peut être retourné.

[db30]

Bonjour AlainTech

Je confirme que ça marche puisque j'avais résolu mon problème en passant par un objet DAO.
Cela étant, je ne comprenais pas pourquoi ça marchait, l'explication de =JBO= apporte la lumière sur une différence entre les applications ".mdb" et ".adp".

Il s'agit d'une différence de taille puisque d'après ce que j'ai pu lire ici et là, les ADO vont prendre le pas sur les DAO (DAO est l'ancien standard, microsoft n'apporte plus d'évolution au DAO d'après le livre "Access 2000 Programmation" de F. Scott Barker - Edition : Campus Press - page 140)