Insertion texte dans un champ avec VBA

Bonjour
Dans un bouton "Facturation" j'ai inséré dans l'événement "Clic" le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub PrintQuittance_Click()     DoCmd.RunMacro "Macro_Quittance_Cheque"   If IsNull(Me.N°_Quittancier) Then Me.[N° Quittancier] = AutoNumber("T_Calcul", "N° Quittancier", "") End If   DoCmd.RunMacro "Macro_Quittance_Cheque"   Dim strSql As String strSql = "Insert into T_Calcul (Statut) Values ('Facturé');" DoCmd.SetWarnings False DoCmd.RunSQL strSql DoCmd.SetWarnings True     Me.Refresh   End Sub

---

Ce code me permet d'exécuter une Macro pour imprimer une facture et aussi pour insérer le texte "Facturé" dans le champ "Statut"
Cependant, cette commande insère ce texte dans une nouvelle ligne vide au lieu de l'insérer dans l'enregistrement en cours
Merci pour votre aide

redojackson,

Tout à fait normal, puisque ta requête est de type insert donc ajout.

Inutile de passer par une requête dans ce cas, il te suffit de mettre à jour le champ directement dans ton formulaire. Insères ce contrôle dans ton formulaire (visible = non si tu ne souhaites pas le faire apparaître), puis tu mets à jour dynamiquement cette valeur de cette manière :

Code:

---

me.statut="Facturé"

---

La mise à jour sera opérée lors du changement d'enregistrement ou de la fermeture de ton formulaire sans que tu n'aies rien d'autre à faire.

Cordialement

Jimbolion

Bonjour,

il faudrait plutôt utiliser un Update et non un Insert

Cordialement

Volsan,

Citation:

---

il faudrait plutôt utiliser un Update et non un Insert

---

pourquoi utiliser un update alors que l'enregistrement est celui placé sur ton formulaire. Il est beaucoup plus simple de mettre à jour ton contrôle directement dans le formulaire sur l’événement PrintQuittance_Click que tu as créée :koi:

Code:

---

me.statut="Facturé"

---

Jimbolion

Merci jimbolion pour votre réponse rapide mais dans mon cas, je ne voudrai que le texte "Facturé" soit inséré dans le champ "Statut" que lorsqu'on appuie sur le bouton facturation

redojackson,

mais la mise à jour de ton contrôle est situé au même endroit que la requête que tu essayes en vain d'intégrer. Je ne déplace pas l'ordre de ton traitement.

Si ce champ est disponible dans ton formulaire je te propose simplement de modifier ton événement comme cela (technique d'ailleurs maîtrisée puisque je vois dans ton code : Me.[N° Quittancier] = ....

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub PrintQuittance_Click()     DoCmd.RunMacro "Macro_Quittance_Cheque"   If IsNull(Me.N°_Quittancier) Then Me.[N° Quittancier] = AutoNumber("T_Calcul", "N° Quittancier", "") End If   DoCmd.RunMacro "Macro_Quittance_Cheque" ' ' Remplacement de la requête par la mise à jour dynamique du contrôle sur le formulaire ' me.statut = "Facturé" ' End Sub

---

Jimbolion

Mille merci jimbolion

ça marche nickel

Vous êtes un as!

:D :D :D