Exécution d'une requête mise à jour via VBA

Bonjour

J'ai actuellement une requête mise à jour sous Visual Basic qui a pour objet de concaténer le nom et le prénom dans un nouveau champ et de l'enregistrer sur ma table

Pour l'heure, j'utilise le code suivant :

Code:

---

1 2 3 4

Private Sub Commande186_Click() CurrentDb.Execute ("UPDATE 1_Baseclient SET [1_Baseclient].NomPrenom = [1_Baseclient].[Nom] & ' ' & [1_Baseclient].[Prenom]") Me.Refresh End Sub

---

Dans cette configuration, je dois cliquer sur un bouton pour mettre à jour ma donnée concaténée nom et prénom. Or, je souhaite une mise à jour automatique dès que je renseigne le nom et / ou le prénom sur le formulaire.

J'ai essayé d'utiliser le code en "afterupdate" mais cela ne fonctionne pas.

Pour info, ma variable nom & prénom est une clé primaire, dont la valeur est non nulle.

Je vous remercie pour votre aide

Bonjour , pourquoi ne pas essayer l'evenement "Exit" (sortie) du 2°
champ à concatener ? a+

Merci pour ta réponse, mais j'ai déjà essayé toutes les procédures événementielles.

La seule chose que j'ai réussi à faire fonctionner, c'est en appuyant manuellement sur un bouton. Dans ce cas, la donner se met à jour de suite. Dans les autres cas, soit j'ai un message d'erreur, soit la mise à jour s'effectue mais après réouverture du formulaire (et ce même si j'utilise un Me.refresh ...)

Je crois que c'est

Code:

---

Me.Requery

---

pour renouveller les requete sql

Salut,
Dans ton Form, tu dois avoir 3 champs de saisie:
-Nom, Prenom et NomPrenom.
Dans l'Event AfterUpdate de Nom et Prenom essaie:

Code:

---

1 2	NomPrenom = Nom & ", " & Prenom

---

Bonjour.

Ceci devrait convenir :

Code:

---

1 2 3

Private Sub Nom_AfterUpdate() Me!Nom.Value = Me!Nom & " " & Me!Prenom End Sub

---

J'utilise depuis longtemps ceci depuis longtemps sous Access 2000, 2003 et 2007 sans problème.

Bon travail.

Bonjour.

Je rectifie (j'ai été un peu vite pour écrire le code!!!)

Code:

---

1 2 3

Private Sub Nom_AfterUpdate() Me!NomPrenom.Value = Me!Nom & " " & Me!Prenom End Sub

---

Bien entendu, il faut faire le "AfterUpdate" sur le champ encodé en dernier.
Bon travail.

Merci à tous pour vos réponses

J'ai testé la solution de NguyenRD, qui fonctionne à merveille.

Elle correspond bien à mon besoin, dans la mesure où le nom peut-être renseigné sans prénom

:ccool: