Remplissage automatique d'un champ sur base d'un autre champ servant de clé primaire

[antezi]

Bonjour,

J'aimerais que dans mon formulaire de saisie des cotisations, quand je saisis le numéro de membre, le champ nom et prénom soit rempli automatiquement en cliquant dans l'espace de saisie du champ.
Dans le formulaire, j'ai mis le code evenement qui s'execute lorsque je clique dans l'espace de saisie du nom. Mais lorsque je fais ça il me donne une erreur sur le bout de code mis en rouge avec comme message d'erreur: Erreur d'exécution 3075, Erreur de syntaxe(opérateur absent) dans l'expression 'NumMembre.

Code :

1
2
3
4
5
6
7
8
9
10
11
12

Private Sub Nom_Click()
Dim db As Database
Set db = CurrentDb
Dim rs As DAO.Recordset
Set rs = db.OpenRecordset("Membres", dbOpenTable)

Set rs = db.OpenRecordset("SELECT Nom FROM Membres WHERE NumMembre = " & Form_FormCotisation!NumMembre)


Cotisations!Nom = rs!Nom

Merci d'avance de votre aide.

Antezi

[lelensois16]

Bonjour,

Quelques remarques ,

Pourquoi utiliser 2 fois le recordset ??? ( l'ouverture de la table Membres me semble inutile )

Pour ce genre d'erreur , il serait très intéressant de faire appel à debug.print :

Code :

debug.print "SELECT Nom FROM Membres WHERE NumMembre = " & Form_FormCotisation!NumMembre

A mon avis , c'est une erreur de syntaxe , avec debug print , ce sera plus simple de le voir.

Cdt
RM

[lakhdar16]

Bonjour,


essayé de tester avec Dlookup.

Code :

rs = Dlookup ("Nom","Membre","[NumMembre] = " & Form_FormCotisation!NumMembre)

.

[NguyenRD]

Salut,

Essaie plutôt:

Code :

1
2
Set rs = db.OpenRecordset("SELECT Nom FROM Membres WHERE NumMembre = " & Form!FormCotisation!NumMembre)