Le portail francophone de la géomatique

Bonjour,

J'ai un problème avec mon formulaire de recherche.

Pour recadrer les choses : j'ai un formulaire de recherche basé sur 5 critères.
Dans le même formulaire, j'ai un sous-formulaire présentant le résultat de ma recherche sous forme de tableau.
Je souhaiterai en double cliquant sur un enregistrement de mon tableau de résultat ouvrir la fiche descriptive complète de cet enregistrement. Jusque là les lignes de commande fonctionnent.
Par contre, c'est à ce niveau que je rencontre un problème : je souhaiterai qu'au bas de la fiche que je vais ouvrir sur double-clic, il y ait une barre de défilement me permettant de faire défiler l'ensemble des fiches descriptives correspondant au résultat de ma requête (donc à chaque enregistrement de mon tableau).

Pour cela j'ai :

- Sur double clic d'un enregistrement de mon tableau résultat, le code suivant :
 

Private Sub Form_DblClick(Cancel As Integer)
       Dim stDocName As String
       Dim stLinkCriteria As String
    
       stLinkCriteria = "[num_element]=" & Me![num_element]
    
       If Me.[type].Value = "Patrimoine industriel" Then
           stDocName = "Patrimoine_Industriel_modifs"
       End If
    
       If Me.[type].Value = "Château / Edifice religieux" Then
           stDocName = "Château / Edifice_religieux_modifs"
       End If
    
       If Me.[type].Value = "Morvan, terre de légende et de croyance" Then
           stDocName = "Morvan, terre de légende et de croyance_modifs"
       End If
    
       DoCmd.OpenForm stDocName, , , stLinkCriteria, , , [num_element]
    
   End Sub

- Sur l'ouverture de mes trois types de fiches decriptives, le code suivant :
Code:
 

Private Sub Form_Open(Cancel As Integer)
    
       Dim lng As Long
       Dim rsttmp As Recordset
       
       Set rsttmp = Me.RecordsetClone
       
       ' on obtient le nombre d'enregistrements
       lng = rsttmp.RecordCount
       
       ' on se positionne sur le recordset à l'endroit voulu
       rsttmp.FindFirst ("[num_element]= " & CInt(OpenArgs))
       
       'on affiche dans le form l'enregistrement voulu
       Me.SelTop = rsttmp.AbsolutePosition + 1
       
   End Sub

Le message d'erreur suivant apparait à nouveau :

Erreur de compilation :
Membre de méthode ou de données introuvable.

Suite au débogage, il m'indique que l'erreur provient de la fonction FindFirst.

J'ai suivi le conseil d'une personne sur un autre forum en vérifiant ma liste de références mais celle-ci est grisée. Il m'est donc impossible de vérifier si les bonnes bibliothèques sont activées.

Est-ce que quelqu'un aurait une idée pour me venir en aide ?

Merci