Discussion :

[bernard26]

bonsoir

j'ai un formulaire vente incorporant 2 sous formulaires
- un ss formulaire vente1 qui me donne le total de ma vente repris dans le formulaire vente(Totalvente)
- un ss formulaire paiement qui me permet de ventiler le moyen de paiement(espèces,chèque,CB) avec sa somme correspondante et dont le total"sommeréglée" est repris dans le formulaire vente
A la validation par un bouton je voudrais (sur clik je pense) pouvoir vérifier que "sommeréglée=Totalvente".....je pense que cela ne peut se faire que par code. Quelqu'un peut m'aider car je débute !
merci d'avance

[marot_r]

Bonjour.

Personnellement je ferai un champ calculé en bas mon sous-formulaire de détail qui ferai le total.
Et j'y mettrai une mise en forme conditionnelle du type =([TotalDetail]=[Parent].[NomSousVente].[Form].[Totalvente]) en choissant un fond rouge.

sinon si tu tiens à le faire par code, quelque chose comme

Code :

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

1
2
3
if DSum(...)<>DFisrt(...) then
  msgbox "Différence entre total et détail"
end if

devrait faire l'affaire.

il faut remplacer les ... par les critères adaptés. Voir l'aide des fonctions pour les détails.

A+

[bernard26]

bonsoir
j'ose vous montrer mon code de débutant
la première étape marche(valeurs différente) mais pas si les valeurs sont identiques c-a-d validation du formulaire(enregistrement)

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 BoutonValidelavente_Click()
 
Dim strMsg As String, strTitre As String
Dim intStyle As Integer
 
If (Me![Total]) <> (Me![Sommeréglée]) Then
strMsg = " La somme réglée est differente du Total"
intStyle = vbOKOnly
strTitre = "Attention"
MsgBox strMsg, intStyle, strTitre
Else
 
End If
 
End Sub

merci de votre aide

[bernard26]

petit oubli ....les 2 parties du code
si total = sommeréglée la validation ferme le formulaire vente et lance une requête mise à jour"vente finale" mais cela ne marche pas

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
22
Private Sub BoutonValidelavente_Click()
 
Dim strMsg As String, strTitre As String
Dim intStyle As Integer
 
If (Me![Total]) <> (Me![Sommeréglée]) Then
strMsg = " La somme réglée est differente du Total"
intStyle = vbOKOnly
strTitre = "Attention"
MsgBox strMsg, intStyle, strTitre
 
Else
DoCmd.Close acForm, "ventes"
DoCmd.OpenQuery "Requête vente finale", acViewNormal, acEdit
 
valide_valide_vente_Exit:
Exit Function
End Function
 
End If
 
End Sub

Merci de votre aide

[bernard26]

finalement j'ai trouvé mon erreur...voilà le code...mais peut-être n'est-il pas orthodoxe! merci de me le signaler.

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
22
Private Sub BoutonValidelavente_Click()
 
   Dim strMsg As String, strTitre As String
   Dim intStyle As Integer
 
   If (Me![Total]) <> (Me![Sommeréglée]) Then
   strMsg = " La somme réglée est differente du Total"
   intStyle = vbOKOnly
   strTitre = "Attention"
   MsgBox strMsg, intStyle, strTitre
 
   Else
 
   DoCmd.Close acForm, "Ventes"
   DoCmd.OpenQuery "Requête vente finale", acViewNormal, acEdit
 
valide_valide_vente_Exit:
   Exit Sub
 
End If
 
End Sub

[tee_grandbois]

bonsoir,
les lignes 17 et 18 devraient être en dehors du If End If et à mon sens sont inutiles car il n'y a pas de débranchement de ce type :

Code :

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

If quelquechose then goto valide_valide_vente_Exit

Tel qu'il est fait, le code sortira du Sub tout seul après le End If