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