Recherche d'enregistrement sur un formulaire Accéss

Question

Bonjour, 

Voila je reformule ma demande d'aide sur demande de notre ami Jack.

J'ai fait des formulaires sur Access de saisie, de maj et d'autres choses ayant rapport avec notre activité, mais au niveau de la maj des tables pour modifier un enregistrement je suis obliger d'utiliser la commande recherche pour chercher l'enregistrement au lieu de tapez directement la clé et que le système recherche automatiquement l'enregistrement et m'affiche les autres champs.

J'ai donc besoin d'un code pour faire cette recherche merci.

Je crois que je me suis bien expliqué cette fois, j'attends vos commentaires avec impatience merci.

med_rab · Accepted Answer

Ce que je veux c'est pouvoir dans mon formulaire introduire la clé de recheche et en validant avec la touche entrée, le système recherche dans ma table l'enregistrement correspondant et m'afficher tous les champs pour une modification on simple consultation.

Mes formulaires sont destinés à des utilisateurs finaux de notre société, qui doivent faire la saisie ou la modification des donnée, je prends l'exemple de la mise à jour d'une table produits, qd l'utilisateur veut modifier un produit existant il lui suffit de taper le code dans le champ approprié et aprés validation le système lui affiche la designation et tous les autres champs du formulaire et si le produit n'existe pas ds la table un message l'invite à créer le produit ou annulé la demande.

C'est le code qui peut faire tous cela dont j'ai besoin merci.

Tuning Max · Answer

D&#233;sol&#233; mais je ne comprend pas ou est ton probl&#232;me! si tu souhaite ouvrir un formulaire sur un enregistrement pr&#233;cis, tu peux le faire par code avec une commande du genre

Dim Criteria As String, valeur As String

   valeur= "La valeur que tu recherche"
   Criteria= "[R&#233;f de ta table]=" & valeur
    DoCmd.OpenForm "Nom du Formulaire", , , Criteria

Tuning Max · Answer

Alors je te conseillerais de passer soit par control combobox ou listbox avec deux colone dont la premi&#232;re est la cl&#233; de recherche et la seconde le texte significatif correspondant dans ta table
Je m'explique par un petit exemple. Un table commande contenant un premier champ Index&#233; de type Num&#233;ro Automatique et cl&#233; primaire. Un second champ contenant les num&#233;ro de commande et pleins d'autre champs pour les informations.

Dans mon formulaire commande je souhaite pouvoir filtrer sur une commande en particulier. Pour ce faire j'utilise au choix soit un combobox (champ &#224; menu d&#233;roulant) soit une listebox. L'un comme l'autre sont construit pareille. A savoir qu'il n'affiche que mon num&#233;ro de commande, mais remonte aussi en colone cach&#233; la cl&#233; primaire corespondante &#224; l'enregistrement.
Ce qui me permet d'inserer dans les &#233;venements de mon combobox ou listbox le code vba du type

Private Sub Modifiable37_AfterUpdate()
    ' Rechercher l'enregistrement correspondant au contr&#244;le s&#233;lectionn&#233;.
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[R&#233;fCommande] = " & Str(Nz(Me![Modifiable37], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
    rs.Close
End Sub

Et ce qui a pour effet de filtrer mon formulaire sur l'enregistrement s&#233;lectionn&#233;

med_rab · Answer

Ok merci 
je vais faire l'essai et je te tiendrai au courant.

med_rab · Answer

Je reviens toujours sur mon problème de recherche d'enregistrement, pour te dire que, sois j'ai mal mis ton code sois ce code ne convient pas, en toute état de cause j'aimerai pouvoir t'envoyer ma base de données avec le formulaire en question tu feras toi même le test, mais je ne sais pas comment faire.

Peux-tu m'indiquer la marche à suivre merci. J'espère aussi que je ne te dérange pas.

Tuning Max · Answer

Met l&#224; au niveau de ton compte code source en compr&#233;ss&#233;
mais bon je pourrais pas regarder avant la semaine prochaine, je prend quelques jours de cong&#233;

med_rab · Answer

c'est fait, repose toi bien.

merci

VERMEEREN · Answer

Inserrer un champ indépendant : zone de liste modifiable 
Cocher: rechercher un enregistrement dans mon formulaire....
Choisir le champ.
C'est terminer
J'espére que j'ai répondu à votre besoin

med_rab · Answer

Merci <vermeeren>, 
C'est gentil à vous, cela marche mais ne me permet pas d'ajouter des enregistrements en cas de non trouvé, vous comprenez, je sais qu'il y a un code à introduire (AfterUpdate) de la clé dans mon cas c'est le code produit, je veux, quand je donne la référence d'un produit, le système doit chercher cette référence et m'afficher les autres champs, si elle n'existe pas il doit passé aux champs en mode ajout.

J'ai déjà fait un code mais ne marche pas, si vous pouvez y jeter un coup d'oeil et me le corriger si nécessaire, je vous rappel que je travail avec Office 2003.

voici le code:

Private Sub ref__AfterUpdate()

  Dim db As Database
  Dim rs As Recordset
  Dim critere As String

  Set db = CurrentDb()
  Set rs = db.OpenRecordset("produits", dbOpenDynaset)    'Table produits
  critere "Ref '" & mref & "'"

  rs.FindFirst critere                  'Rechercher la 1ere clé correspondante
  mdesig.Value = rs("designation")      'Designation de l'article
  mimp.Value = rs("imprimante") 

End Sub

Tuning Max · Answer

Bonjour med rab, 

alors voil&#224;, j'ai t&#233;l&#233;charg&#233; ton appli. Mes premi&#232;re remarque sont pour la structure de tes tables.

Pour les cl&#233;s primaires il est pr&#233;f&#233;rable (pas obligatoire) que ces cl&#233;s primaires soit de type num&#233;rique plutot que texte. D'autant plus d'ailleurs que tu souhaite les utiliser dans le cadre de recherche. Pour les manipelations, c'est plus rapide et plus efficace si tes cl&#233;s primaires sont de type num&#233;rique. En g&#233;n&#233;rale, on utilise m&#234;me des champs de type num&#233;roAuto

Pour ton code ci-dessus, je ne comprend pas bien l'inter&#234;t d'ouvrir un second recordset que tu ne va pas refermer en plus (Acces n'aime pas trop jongler avec plusieurs recordsets en m&#233;moire)
je conseillerais plutot quelque chose de moins lourd qui d&#233;place le curseur dans le recordset du formulaire.

    Dim rs As Object


    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Ref] = '" & Me![mref ] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

med_rab · Answer

Bonjour "Tunin max",

j'ai ton code dont je te remercie vivement, j'espère aussi que tu t'es bien reposé.

Aussi, je vais tester le code des que je fini un travail en cours, et je te tiendrai au courant.

merci encore et à la prochaine.

pierre · Answer

je croyais que acces était simple en fait c pas un gestionnaire de base de donnéées c'est un langage de programmation j arrive a rien avec ce truc moi

Recherche d'enregistrement sur un formulaire Accéss

12 réponses

Discussions similaires