Discussion :

[takumix]

Bonjour,

Je débute avec la méthode Findrecord, que je n'arrive pas à faire marcher à partir d'une zone de texte indépendante où je voudrais entrer un mot, pour arriver directement sur l'enregistrement contenant le champ nom_oeuvre qui y correspond.

Je pense que je n'ai pas bien saisi s'il est vraiment possible de spécifier un champ de recherche autre que celui d'ou vient la valeur à trouver comme c'est mon cas ici.

Voici la requête source de mon formulaire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SELECT nom_oeuvre, date_oeuvre, auteur_oeuvre FROM taboeuvre ORDER BY nom_oeuvre, date_oeuvre, tech_oeuvre;

J'ai mis une capture de ma procédure évènement de la zone de texte ztRech , avec la syntaxe d'access que j'ai essayé de bien suivre, ainsi que du message d'erreur que j'obtiens.

[LedZeppII]

Bonjour,

Donne le focus au contrôle dans lequel tu veux effectuer la recherche.

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub ztRech_AfterUpdate()
' Donner le focus au contrôle (Nom_du_produit dans cet exemple)
Me.Nom_du_produit.SetFocus
' Effectuer recherche (acCurrent = pour ce contrôle seulement)
DoCmd.FindRecord ztRech, acStart, False, acDown, False, acCurrent, True
End Sub

Par contre je ne vois pas pourquoi tu obtiens ce message d'erreur.

A+

[takumix]

Merci beaucoup, çà a super bien marché !

[takumix]

Maintenant j'ai un autre problème:

J'ai créé un bouton pour pouvoir passer au nom de produit suivant, dans le cas ou 2 deux produits commencent par les même lettres entrées dans le champ de recherche.
Pour cela je lui ai affecté la même code évènement, en changeant acStart par acDown.

Mais quand je l'exécute en cliquant sur le bouton, il met le messsage d'erreur que j'ai mis dans la capture en pièce jointe, où la méthode Findrecord est surlignée come cause de l'erreur.
Je ne comprends pas pourquoi comme elle devrait marcher après que le focus ait été donné au champ de nom?

[LedZeppII]

Bonsoir,

La commande FindRecord a sept arguments.
Tu en as mis neuf.

Pour continuer la recherche depuis l'enregistrement en cours:

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub cmdRechSuiv_Click()
' Donner le focus au contrôle
Me.Nom_du_produit.SetFocus
' Continuer recherche avec septième argument (FindFirst) à False
DoCmd.FindRecord ztRech, acStart, False, acDown, False, acCurrent, False
End Sub

ou

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub cmdRechSuiv_Click()
' Donner le focus au contrôle
Me.Nom_du_produit.SetFocus
' Continuer recherche
DoCmd.FindNext
End Sub

A+