Discussion :

[dovincent]

Bonjour à tous,je suis novice en access et Vba.J'ai un problème urgent: J'ai une base frontale qui contient le formulaire Fournisseurs que j'ai lier par code Vba à la Table fournisseurs se trouvant dans la base dorsale.Maintenant je cherche du code Vba pour faire des recherches d'enregistrements(Chercher un fournisseur déjà enregistré) dans une liste déroulante et pour le quel si je trouve le nom du fournisseur tous les autres informations concernant se fournisseur s'affiche dans leurs champs respectifs.Je ne veux pas utiliser l'assistant contrôle d'Access pour faire la liste déroulante mais plutôt par du code vba.Merci d'avance pour vos réponses que vous allez me donner.C'est urgent.

[marot_r]

Bonjour,

Je ne saisi pas pourquoi tu veux refaire à la main ce que Access fait en automatique pour toi mais voici comment je procéderai.

Attention cela ne marche pas avec les formulaires en mode continu et feuille de données.

Sur l'événement Après MAJ de la liste mettre un code qui ressemble à cela.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
'Retrouve les données en fonction du nom
dim db as dao.database:set db=currentdb
dim r as dao.recordset:set r=db.openrecordset("NomTaTableFournisseur", dbOpenDynaset)
dim critere as string:critere="[NomFournisseur]=""" & me.NomTaListeFournisseur & """"
call r.findfirst(critere)
 
if not r.nomatch then
      'ici autant de champs que nécessaire
      me.TonChampInfo1=r![TonChampInfo1]
      me.TonChampInfo2=r![TonChampInfo2]
      me.TonChampInfo3=r![TonChampInfo3]
  else
      error 5 'cas impossible, on vient de choisir un nom valide, sert à attraper une éventuelle erreur dans la logique
end if
 
db.close:set db=nothing

A+