Formulaire Access
Fermé
ghyslaine100
Messages postés
2
Date d'inscription
dimanche 23 septembre 2007
Statut
Membre
Dernière intervention
11 mai 2010
-
22 avril 2010 à 11:41
Jean_Jacques Messages postés 1040 Date d'inscription mercredi 30 avril 2008 Statut Membre Dernière intervention 1 août 2014 - 22 avril 2010 à 15:14
Jean_Jacques Messages postés 1040 Date d'inscription mercredi 30 avril 2008 Statut Membre Dernière intervention 1 août 2014 - 22 avril 2010 à 15:14
A voir également:
- Formulaire Access
- Formulaire de réclamation facebook - Guide
- Formulaire de remboursement free pdf ✓ - Forum Vos droits sur internet
- Confirmer le nouvel envoi du formulaire err_cache_miss ✓ - Forum HTML
- Le formulaire rempli - Guide
- L'auteur de ce formulaire a indiqué les champs que vous pouvez renseigner - Forum PDF
1 réponse
Jean_Jacques
Messages postés
1040
Date d'inscription
mercredi 30 avril 2008
Statut
Membre
Dernière intervention
1 août 2014
112
22 avril 2010 à 15:14
22 avril 2010 à 15:14
Bonjour ghyslaine100,
Ce code fonctionne sous ACCESS 2000. Pour la version 1995 je ne suis sûr de rien.
NB : [NOM_A_CHERCHER] correspond à la sélection active dans la liste déroulante
et [NUM_CLIENT] est le N° d'enregistrement cohérent avec [NOM_A_CHERCHER]
Public Sub NOM_A_CHERCHER_AfterUpdate()
'
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[NUM_CLIENT] = " & Str(Me![NOM_A_CHERCHER])
Me.Bookmark = rs.Bookmark
End Sub
Cordialement
Ce code fonctionne sous ACCESS 2000. Pour la version 1995 je ne suis sûr de rien.
NB : [NOM_A_CHERCHER] correspond à la sélection active dans la liste déroulante
et [NUM_CLIENT] est le N° d'enregistrement cohérent avec [NOM_A_CHERCHER]
Public Sub NOM_A_CHERCHER_AfterUpdate()
'
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[NUM_CLIENT] = " & Str(Me![NOM_A_CHERCHER])
Me.Bookmark = rs.Bookmark
End Sub
Cordialement
