[AC-2007] Exécution d'une requête mise à jour via VBA [Résolu]

[higins]

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

[Thierry_PALLIER]

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

[higins]

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 ...)

[Mycose]

Je crois que c'est

Code :

Me.Requery

pour renouveller les requete sql

[NguyenRD]

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

[RobiPMS]

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.

[RobiPMS]

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.

[higins]

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