Discussion :

[BRUNO71]

Bonjour,

Je souhaiterais créer ce petit programme pour effectuer une facturation simple, cependant si je rentre dans la première ligne une quantité et un prix unitaire le prix obtenu dans le montant_1 ne s’ajoute pas dans le total_devis.
Sauf, si je rempli toutes les cases !

Comment forcer le total_devis même si toutes les lignes ne sont pas remplies.

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
 
Private Sub Calculer_devis_Click()
Me!Montant_1 = Me!Prix_unitaire_1 * Me!quantité_1
Me!Montant_1.SetFocus
Me!Montant_2 = Me!Prix_unitaire_2 * Me!quantité_2
Me!Montant_2.SetFocus
Me!Montant_3.SetFocus
Me!Montant_3 = Me!Prix_unitaire_3 * Me!quantité_3
Me!Montant_4.SetFocus
Me!Montant_4 = Me!Prix_unitaire_4 * Me!quantité_4
Me!Montant_5 = Me!Prix_unitaire_5 * Me!quantité_5
Me!Montant_5.SetFocus
Me!total_devis = Me!Montant_1 + Me!Montant_2 + Me!Montant_3 + Me!Montant_4 + Me!Montant_5
Me.total_devis.SetFocus
End Sub

Ma ligne de code suivante , ne semble pas fonctionner :

Code :

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

Me!total_devis = Me!Montant_1 + Me!Montant_2 + Me!Montant_3 + Me!Montant_4 + Me!Montant_5

Je joins une impression d'écran du formulaire en mode création...

Merci de m'aider à résoudre ce problème..

Bien cordialement

[User]

Salut,

peut-être en utilisant la fonction nz qui renvoie 0 dans ton cas si le champ est nul:

Code :

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

Me!Montant_1 = nz(Me!Prix_unitaire_1,0) * nz(Me!quantité_1,0)

A+

[BRUNO71]

Bonsoir,

Merci beaucoup User