Discussion :

[Buffet76]

Bonjour à tous,

Je souhaite faire une recherche dans un sous formulaire à partir d'un formulaire. Quand je mets le bouton de contrôle "recherche un enregistrement" :
- sur le sous-formulaire, j'obtiens le message suivant "la commande ou l'action Rechercher n'est ps disponible pour l'instant". Je ne comprends pas pourquoi alors que cela fonctionne correctement quand je travaille directement dans le sous-formulaire.
- sur le formulaire de base, j'obtiens le même message.

J'ai regardé sur le forum et il semblerait qu'il fasse utiliser la syntaxe "FindFirst". je ne suis pas programmatrice et c'est du chinois pour moi. Est-ce la bonne solution ?

Qui peut m'aider sur ce point.

Merci à tous

[marot_r]

Bonjour.

La solution par programmation fonctionne quel que soit le contexte dans laquelle tu l'appelles (ou presque).
La méthode par "Rechercher" n'est pas toujours disponible. Elle simule une demande de recherche manuelle (touches [ctrl] [f]).
De plus c'est une boite noire et donc on ne peut pas savoir exactement ce qui ne lui plait pas si elle ne fonctionne pas.

VBA peut être un peu intimidant (surtout depuis de M$ pousse TRÈS fort pour l'usage des macros) mais s'en passer c'est un peu comme se passer de sa main gauche si on est droitier.

Que souhaite-tu faire comme recherche ?
Est-ce toujours dans le même champ ?
Est-ce toujours une valeur égale au critère ?

A+

[Buffet76]

Bonjour,

En fait, j'ai un numéro de facture (de type (9999/9999) dans un sous-formulaire (formulaire unique). Je veux faire une recherche d'une facture par son numéro dans le formulaire de base Client. J'ai 2 tables : une table client, une table Facture et des relations entre elles sur ID_client.
Merci de votre aide.

[marot_r]

Bonjour.

Crée

• un champ texte pour taper le numéro (supposé nommé [RechercheNumFacture])
• un bouton "Rechercher"

dans le code (procédure événementielle) au click du bouton mettre quelque chose comme :

Code :

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

1
2
3
4
dim r as dao.recordset:set r=me.NomTonSousForm.Form.Recordset 'Récupère la liste des données
dim critere as string: critere="NumFacture=""" & me.RechercheNumFacture & """" 'Défini ce qu'on cherche
call r.findfisrt(critere) 'Cherche, si trouvé Access va se placer sur l'enregistrement.
set r=nothing

entre de sub et le end sub.

À adapter à ta réalité pour les noms.

A+

[Buffet76]

Bonsoir,

Merci. J'ai remplacé les noms des champs, des sous formulaires mais j'ai un beau message "erreur de compilation - membre de méthodes ou de données introuvables" sur le "Call r.findfisrt(critère). Le critère est bien le numFacture ou toute la phrase "numFacture &......"
Cordialement.

[marot_r]

Bonjour.

Désolé j'ai fait une faute de frappe :

findfisrt devrait être findfirst.

A+

[Buffet76]

Merci. j'aurais dû le voir. j'ai copié bêtement.
Cordialement