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