Discussion :

[zeine77]

Salut ,

J'ai un petit probléme ici,

J'ai un formulaire qui permet d'ajouter une quantité d'un produit à une commande, mais je doit d'abord vérifier
si la quantité demandée existe dans le stock.

j'ai ecrit la procedure suivante

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
26
27
28
 
Private Sub cmdAjouter_Click()
 Dim stDocName As String
 Dim Msg As String, Style As Integer, Title As String, Response As String
 Dim Qte As Double, QteStock As Double
 
 zt_qte.SetFocus
 Qte = Val(zt_qte.Text)              'Conversion du valeur de la zone de texte vers un type numérique
 zl_qteStock.SetFocus
 QteStock = CDec(zl_qteStock.Value)  'Conversion du valeur de la zone de liste vers un type numérique
 
 If Qte > QteStock Then   'Si la quantité à donner est superieur à celle trouvé dans le stock
 
   Msg = "La quantité spécifiée est superieur à celle du stock" & Chr(13) & "Voulez-vous continuez?"
   Style = vbYesNo + vbCritical + vbDefaultButton2       ' Définit les boutons.
   Title = "Erreur Quantité "                            ' Définit le titre.
 
  Response = MsgBox(Msg, Style, Title)
    If Response = vbNo Then    ' L'utilisateur a choisi non.
        zt_qte.SetFocus        ' donc on retourne au controle
    End If
 
  Else                               ' l'utilisateur a choisi de continuer
    stDocName = "AjoutConsommation"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
End If
 
End Sub

A l'execution de la procedure un message s'affiche "Erreur d'exécution '94' Utilisation incirrecte du Null."

L'erreur est signalée au niveau de l'instruction "QteStock = CDec(zl_qteStock.Value)".

Quoi faire?

[LE VIEUX]

bonjour,
qu'est-ce qu'il y a dans ta zl_qteStock au moment où tu l'appelles, si risque ou est vide voir fontion Nz().
d'autre part est-ce normal que tu affectes cette convertion en décimal à une variable Double ?
a+

[zeine77]

Merci LE VIEUX pour ta réponse,

zl_qteStock contient la quantité en stock d'un element sélectionné à partir d'une liste déroulante qui contient les désignations des produits trouvés dans la table correspndante, il n'est pas risqué d'être vide car lors de saisie des produits la quantité est obligatoire.

[LE VIEUX]

bon alors, normalement QteStock doit être à 0 est donc n'est pas nul,
il faut debuguer, et vérifier les variables une a une.
regardes bien ce qu'il sort sur la valeur retournée par ta liste déroulante.

[zeine77]

Salut,
J'ai pu contourner l'erraur avec la fonction Nz().
Mais un autre probleme ( disons plus tot dérangement ) se crée.

Aprés la validation de choix une requête d'ajout doit être exécutée, et avant son exécution un message s'affiche :
"Vous aller exécuter une requête Ajout qui modifiera le contenu de votre table .
Etes vous sur de vouloir exécuter ce type de requêtes Action?"

Comment "désactiver" ce message?

[marcuscircus]

Code :

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

docmd.setwarnings false

essayes ca !

[zeine77]

Merci !