Discussion :

[bernard26]

Bonjour

Dans mon formulaire réception de commande j'ai 2 boutons: réception partielle et réception définitive
Mon problème vient avec les consignes du bouton réception définitive
Celui ci contrôle que les unités reçues sont égales aux unités commandées
-1/ si c'est le ce cas il exécute la requête réception finale et ferme les formulaires dialogue et réception
Si ce n'est pas le cas une boite de dialogue s'ouvre et propose:
-2/ de valider la réception (bouton yes) comme dans le cas précédent
-3/ de ne pas valider la réception (bouton No)

Le 1 marche
Le 2 semble marcher
Le 3 marche comme le 1 et 2

Voilà 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
19
20
21
22
23
24
25
Private Sub Valider_Click()
   Dim strMsg As String, strTitre As String
   Dim intStyle As Integer
 
   If (Me![Total reçu]) <> (Me![Unités commandées]) Then
   strMsg = " La réception n'est pas totale!Si vous validez, vous ne pourrer plus receptionner le reliquat. Voulez-vous valider?"
   intStyle = vbYesNo + vbQuestion + vbDefaultButton2
   strTitre = "Attention"
   MsgBox strMsg, intStyle, strTitre
 
   If vbYes Then
   DoCmd.Close acForm, "Réception de commande"
   DoCmd.OpenQuery "Requête réception finale", acViewNormal, acEdit
   DoCmd.Close acForm, "Dialogue réception de commandes"
   End If
 
   Else
 
   DoCmd.Close acForm, "Réception de commande"
   DoCmd.OpenQuery "Requête réception finale", acViewNormal, acEdit
   DoCmd.Close acForm, "Dialogue réception de commandes"
   Exit Sub
 
End If
End Sub

Merci de votre aide

[nico84]

Bonjour,

Comme son nom l'indique, vbyes est toujours vrai !

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 Valider_Click()
   Dim strMsg As String, strTitre As String
   Dim intStyle As Integer
 
   If (Me![Total reçu]) <> (Me![Unités commandées]) Then
   strMsg = " La réception n'est pas totale!Si vous validez, vous ne pourrer plus receptionner le reliquat. Voulez-vous valider?"
   intStyle = vbYesNo + vbQuestion + vbDefaultButton2
   strTitre = "Attention"
 
 
   If MsgBox (strMsg, intStyle, strTitre) <> vbYes Then exit sub
   end if
   DoCmd.Close acForm, "Réception de commande"
   DoCmd.OpenQuery "Requête réception finale", acViewNormal, acEdit
   DoCmd.Close acForm, "Dialogue réception de commandes"
End Sub

Par ailleurs, d'expérience, la plupart du temps l'utilisateur clique sur yes sans lire la question et vient ensuite me voir "pourquoi je ne peux pas recevoir le reste ?"

[bernard26]

Merci de cette aide précieuse