Discussion :

[fomblardo]

Bonjour à tous,

Je débute sous access donc je vous prie de m'excuser pour mes questions de débutant.

Voilà, j'ai créé une base de donnée avec des tables (tant qu'à faire ), et je voudrais créér un formulaire.

Ce formulaire contient une combobox et une textbox.

Dans ma combobox je charge la clé primaire de ma table "clients" (clients.id), et ce que je voudrais faire, c'est modifier automatiquement mon text box en mettant le nom de ce client (client.nom).

Ma combobox s'appelle cbo_id, et ma text box s'appelle txt_nom.
Alors je ne sais pas vraiment quoi faire, une macro ou un codage en vba.

Merci d'avance pour vos réponses, j'espère avoir été clair.

[mout1234]

Bonjour,


Tu as plusieurs approches pour répondre à ton besoin, selon ta situation.

Une solution consiste à utiliser les mécanismes de la requête source de ton formulaire: si tu mets la table client dans la source, en relation avec la table principale de ton formulaire, tu peux alors lui faire afficher le nom du client correspondant.

Il ne faudra pas oublier de verrouiller ton champ Nom Propriété Verrouillé) afin que l'utilisateur ne modifie pas le nom du client par ici.


Dans certains cas, cette solution ne convient pas en raison de l'impact sur la source du formulaire.
Dans ce cas, tu peux mettre une expression dans ta zone de texte pour aller lire la valeur de la colonne Nom de ta liste déroulante.

SI ta combo affiche le nom du client en deuxième colonne, tu auras une expression du genre:

Code :

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

= cbo_id.column(1)

Bon courage

[fomblardo]

Merci beaucoup pour la réponse rapide.

Je n'ai pas compris la première méthode, par contre la deuxième marche impec.

Merci encore.

A (très :p) bientot.

_________________________________________

EDIT1: En fait je rencontre un probleme similaire.

Dans cette même table (clients) il y a un champ mot de passe. Je ne peux utiliser la 2eme méthode sinon le mdp va apparaitre dans la combobox.

Sur mon formulaire, j'ai un champ mot de passe où l'utilisateur doit entrer son mot de passe. Cependant pour vérifier si le mot de passe est correct, je dois acceder à client.mdp (où client est la table).

Je ne sais pas vraiment comment faire.

Merci d'avance.

[fomblardo]

Voilà ce que j'ai trouvé mais ça ne marche que pour la premiere ligne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
  Private Sub bouton_connec_Click()
  Dim var1 As Variant
  Dim table As Recordset
 
  Set table = CurrentDb.OpenRecordset("Clients", dbOpenDynaset)
  var1 = table![mdp]
 
  If var1 = txtpass Then MsgBox ("Mot de passe correct !") Else: MsgBox ("Mot de passe incorrect !")
 
 
 
  End Sub

il ne reconnait pas les mdp des autres lignes de la table

[mout1234]

Voilà ce que j'ai trouvé mais ça ne marche que pour la premiere ligne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
  Private Sub bouton_connec_Click()
  Dim var1 As Variant
  Dim table As Recordset
 
  Set table = CurrentDb.OpenRecordset("Clients", dbOpenDynaset)
  var1 = table![mdp]
 
  If var1 = txtpass Then MsgBox ("Mot de passe correct !") Else: MsgBox ("Mot de passe incorrect !")
 
 
 
  End Sub

il ne reconnait pas les mdp des autres lignes de la table

Hummm, tu vas un peu vite à utiliser des fonctionnalités sans en comprendre le fonctionnement
Ici, ton recordset représente la table clients en entier. Tu n'as aucun élément dans cette syntaxe qui indique d'atteindre le client qui t'intéresse...

Soit tu l'intègres dans la source de ton recordset (en remplaçant le "clients" par un "SELECT .... WHERE CodeClient = ...", soit tu cherches dans ton recordset la bonne ligne (un FindFirst)...


Dans ton cas, tu peux aussi utilisé un DLookup (à utiliser avec parcimonie, mais justifié ici).



Bon courage