Discussion :

[redojackson]

Bonjour

Dans un formulaire j'ai un bouton qui me permet à la fois de générer automatiquement un numéro dans le champs [N° Quittancier] et d'exécuter une macro pour imprimer le quittancier
Cependant, lors de l'impression, toutes les valeurs de champs sont portées sur l'état sauf le champs [N° Quittancier]
J'ai beau utilisé la fonction "Refresh" mais ça donne rien du tout
Voici mon code:

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
Private Sub PrintQuittance_Click()
 
Me.Refresh
 
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"
 
Me.Statut = "Facturé"
 
Me.Refresh
 
 
End Sub

Please help me

[madefemere]

Bonjour,

Que fait exactement la macro "Macro_Quittance_Cheque" ? Pour quoi vous l'appelez 2 fois ?
Que fait la routine AutoNumber ?

A priori, en regardant le code, le N° de quittance n'est pas encore à jour dans la table au moment où vous lancez son impression.
Il faudrait sauvegarder d'enregistrement avant de lancer l'impression. La ligne suivante avant l'impression devrait suffire :

Code :

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

DoCmd.RunCommand acCmdSaveRecord

Cordialement,

EDIT : Cette discussion résolue je pense traite du même problème que vous avez

[Alex_42]

bonjour,

perso j'utilise Requery pour mettre à jour mes champs :

Code :

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

1
2
3
4
5
 
If IsNull(Me.N°_Quittancier) Then
    Me.[N° Quittancier] = AutoNumber("T_Calcul", "N° Quittancier", "")
    Me.[N° Quittancier].Requery
End If

[marsouin_89]

Bonjour,

Au lieu du Refresh, essaies :

Code :

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

1
2
3
4
5
6
7
Private Sub PrintQuittance_Click()
 
Me.Requery

...

End Sub