Bonjours,
Je souhaite "recr=E9er" la boite de dialogue Rechercher=20
d'Access.
Pour cela j'utilise une InputBox pour demander le nom de=20
l'enregistrement =E0 rechercher, puis je place la r=E9ponse=20
dans :
DoCmd.OpenForm "Formulaire" =20
DoCmd.FindRecord reponse
Ce code est d=E9clench=E9 par un bouton de commande.
Or, ce code affiche toujours, dans le formulaire, le=20
premier enregistrement de la base, et non pas celui=20
recherch=E9.
Merci de m'aider
Bonne ann=E9e.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Samban
Bonjour
Sur un Form, tu as une zone de texte (Texte0) te servant a saisir ton choix. Tu as un bouton (Commande2) te permettant d'ouvrir le Form "Formulaire" pour afficher ton choix.
Sur l'événement clic de ton bouton entre ce code:
Private Sub Commande2_Click() Dim strwhere As String strwhere = "NOM = '" & Texte0 & "'" DoCmd.OpenForm "Formulaire", , , strwhere End Sub
"NOM" correspond aux critéres sur lequel sera filtré ta recherche
Bien sur a adapter suivant la table sur laquelle ton Form "Formulaire" est basé
En espérant aider ;-)
Bonjour
Sur un Form, tu as une zone de texte (Texte0) te servant a saisir ton choix.
Tu as un bouton (Commande2) te permettant d'ouvrir le Form "Formulaire" pour
afficher ton choix.
Sur l'événement clic de ton bouton entre ce code:
Private Sub Commande2_Click()
Dim strwhere As String
strwhere = "NOM = '" & Texte0 & "'"
DoCmd.OpenForm "Formulaire", , , strwhere
End Sub
"NOM" correspond aux critéres sur lequel sera filtré ta recherche
Bien sur a adapter suivant la table sur laquelle ton Form "Formulaire" est
basé
Sur un Form, tu as une zone de texte (Texte0) te servant a saisir ton choix. Tu as un bouton (Commande2) te permettant d'ouvrir le Form "Formulaire" pour afficher ton choix.
Sur l'événement clic de ton bouton entre ce code:
Private Sub Commande2_Click() Dim strwhere As String strwhere = "NOM = '" & Texte0 & "'" DoCmd.OpenForm "Formulaire", , , strwhere End Sub
"NOM" correspond aux critéres sur lequel sera filtré ta recherche
Bien sur a adapter suivant la table sur laquelle ton Form "Formulaire" est basé
En espérant aider ;-)
Merci ça a l'air de fonctionner.
-----Message d'origine----- Bonjour
Sur un Form, tu as une zone de texte (Texte0) te servant a saisir ton choix.
Tu as un bouton (Commande2) te permettant d'ouvrir le Form "Formulaire" pour
afficher ton choix.
Sur l'événement clic de ton bouton entre ce code:
Private Sub Commande2_Click() Dim strwhere As String strwhere = "NOM = '" & Texte0 & "'" DoCmd.OpenForm "Formulaire", , , strwhere End Sub
"NOM" correspond aux critéres sur lequel sera filtré ta recherche
Bien sur a adapter suivant la table sur laquelle ton Form "Formulaire" est
basé
En espérant aider ;-)
.
Merci ça a l'air de fonctionner.
-----Message d'origine-----
Bonjour
Sur un Form, tu as une zone de texte (Texte0) te servant
a saisir ton choix.
Tu as un bouton (Commande2) te permettant d'ouvrir le
Form "Formulaire" pour
afficher ton choix.
Sur l'événement clic de ton bouton entre ce code:
Private Sub Commande2_Click()
Dim strwhere As String
strwhere = "NOM = '" & Texte0 & "'"
DoCmd.OpenForm "Formulaire", , , strwhere
End Sub
"NOM" correspond aux critéres sur lequel sera filtré ta
recherche
Bien sur a adapter suivant la table sur laquelle ton
Form "Formulaire" est
