Automatiser les saisies sous Access
Résolu/Fermé
Angelisjs
Messages postés
15
Date d'inscription
mercredi 7 mai 2008
Statut
Membre
Dernière intervention
20 mai 2008
-
7 mai 2008 à 10:35
Jean_Jacques Messages postés 1040 Date d'inscription mercredi 30 avril 2008 Statut Membre Dernière intervention 1 août 2014 - 15 mai 2008 à 17:32
Jean_Jacques Messages postés 1040 Date d'inscription mercredi 30 avril 2008 Statut Membre Dernière intervention 1 août 2014 - 15 mai 2008 à 17:32
A voir également:
- Automatiser les saisies sous Access
- Access runtime ✓ - Forum Access
- Access appdata - Guide
- Dans la présentation à télécharger, sarah avait encadré directement le titre de certaines diapositives avant d’automatiser cette mise en forme pour tout le document. sur quelles diapositives avait-elle encadré directement le titre ? - Forum Bureautique
- Exemple base de données access à télécharger gratuit ✓ - Forum Logiciels
- You don't have permission to access this resource ✓ - Forum Réseaux sociaux
3 réponses
Jean_Jacques
Messages postés
1040
Date d'inscription
mercredi 30 avril 2008
Statut
Membre
Dernière intervention
1 août 2014
112
7 mai 2008 à 14:04
7 mai 2008 à 14:04
Bonjour Angelisjs,
En, fait vous souhaitez mettre en place un outil de consultation de base de données :
J'ai retrouvé une vieillerie qui doit satisfaire votre besoin
Dans votre contxte, l'idéal est de créer dans votre formulaire une liste déroulante des trains et d'utiliser la syntaxe suivante sur mise à jour :
Private Sub NOM_CLIENT_AfterUpdate()
' Rechercher l'enregistrement correspondant au contrôle.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[NUM_CLIENT] = " & Str(Me![NOM_A_CHERCHER])
Me.Bookmark = rs.Bookmark
End Sub
A+
Cordialement
La science ne fait que trouver ce qui existe depuis toujours.
REEVES Hubert.
En, fait vous souhaitez mettre en place un outil de consultation de base de données :
J'ai retrouvé une vieillerie qui doit satisfaire votre besoin
Dans votre contxte, l'idéal est de créer dans votre formulaire une liste déroulante des trains et d'utiliser la syntaxe suivante sur mise à jour :
Private Sub NOM_CLIENT_AfterUpdate()
' Rechercher l'enregistrement correspondant au contrôle.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[NUM_CLIENT] = " & Str(Me![NOM_A_CHERCHER])
Me.Bookmark = rs.Bookmark
End Sub
A+
Cordialement
La science ne fait que trouver ce qui existe depuis toujours.
REEVES Hubert.
Angelisjs
Messages postés
15
Date d'inscription
mercredi 7 mai 2008
Statut
Membre
Dernière intervention
20 mai 2008
2
15 mai 2008 à 15:13
15 mai 2008 à 15:13
Merci, Jean_Jacques
désolé de répondre aussi tard ^^ mais je n'avais pas vu que tu avais posté une réponse à ma question!
Ca marche impec au niveau de l'automatisation, j'avais pensé à la même formule mais j'avais un problème à la mise en place merci bcp
désolé de répondre aussi tard ^^ mais je n'avais pas vu que tu avais posté une réponse à ma question!
Ca marche impec au niveau de l'automatisation, j'avais pensé à la même formule mais j'avais un problème à la mise en place merci bcp
Angelisjs
Messages postés
15
Date d'inscription
mercredi 7 mai 2008
Statut
Membre
Dernière intervention
20 mai 2008
2
15 mai 2008 à 15:19
15 mai 2008 à 15:19
CA marche impec!
Jean_Jacques
Messages postés
1040
Date d'inscription
mercredi 30 avril 2008
Statut
Membre
Dernière intervention
1 août 2014
112
15 mai 2008 à 17:32
15 mai 2008 à 17:32
Bonsoir,
J'ai bien noté que tout va bien.
Merci de m'avoir tenu au courant
Au plaisir et A+
La science ne fait que trouver ce qui existe depuis toujours.
REEVES Hubert.
J'ai bien noté que tout va bien.
Merci de m'avoir tenu au courant
Au plaisir et A+
La science ne fait que trouver ce qui existe depuis toujours.
REEVES Hubert.