Pages: 1
- Sujet précédent - Access 2003 ouverture d'un formulaire à partir d'un tableau de résulat - Sujet suivant
#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
Pages: 1
- Sujet précédent - Access 2003 ouverture d'un formulaire à partir d'un tableau de résulat - Sujet suivant