Discussion :

[redojackson]

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

Code :

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

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

[jimbolion]

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 :

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

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

[volsan]

Bonjour,

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

Cordialement

[jimbolion]

Volsan,

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

Code :

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

me.statut="Facturé"

Jimbolion

[redojackson]

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

[jimbolion]

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 :

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

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

[redojackson]

Mille merci jimbolion

ça marche nickel

Vous êtes un as!