banniere

Le portail francophone de la géomatique


Toujours pas inscrit ? Mot de passe oublié ?
Nom d'utilisateur    Mot de passe              Toujours pas inscrit ?   Mot de passe oublié ?

#1 Fri 28 July 2006 14:40

mimi
Juste Inscrit !
Date d'inscription: 18 Jul 2006
Messages: 3

Access 2003 ouverture d'un formulaire à partir d'un tableau de résulat

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 :
 

Code:

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:
 

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

Hors ligne

 

#2 Tue 05 September 2006 10:07

Christophe Gasc
Juste Inscrit !
Date d'inscription: 4 Jan 2006
Messages: 2

Re: Access 2003 ouverture d'un formulaire à partir d'un tableau de résulat

bonjour,
Est ce que la propriété Bookmark ne donnerait pas un meilleur résultat que SelTop et AbsolutePosition

Hors ligne

 

Pied de page des forums

Powered by FluxBB