Discussion :

[RV80]

Voilà,
un petit problème avec mon cher access chéri
une petite présentation rapide du problème :
on a un petit formulaire grâce auquel on désire mettre à jour une table,
voilà le code utilisé :

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
Option Compare Database
--------------------------------------------------
Private Sub Commande8_Click()
On Error GoTo Err_Commande8_Click
 
Dim nomb_prd As Integer
Dim quant As Integer
Dim total As Integer
 
quant = CInt(quantiter.Value)
nomb_prd = CInt(nombreprod.Value)
total = CInt(quant + nomb_prd)
'MsgBox (total)
    'DoCmd.RunSQL "UPDATE produit SET nombreprod = ' " & total & " ' WHERE
id_produit='" & id_produits & "';"
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
 
Exit_Commande8_Click:
    Exit Sub

Et l'erreur renvoyé est :
Utilisation incorrect de NULL

franchement on ne trouve pas d'ou cela vient, on aimerais bien passer au PHP mais bon ce cher ACCESS nous est imposé par nos professeurs .....

Merci d'avance pour votre aide eventuelle

[guigui5931]

Elle aparait à quelle ligne ton erreur? Est ce que tes deux champs sont rempli quand tu clique sur le bouton?

[Arkham46]

bjr,

mets des balises de codes SVP c'est illisibles (entre les guillemets et les apostrophes on ne voit rien)

si tes champs ne sont pas renseignés ils ont une valeur Null
et il n'est pas possible d'utiliser Null pour faire de telles conversions et calculs
--> Utilise la fonction Nz

sinon le Docmd.DoMenuItem il sert à quoi? Il y a peut-être une commande directe en VBA, il vaut mieux éviter d'utiliser les commandes par menu en VBA.

PS : évite de dénigrer Access dans tes messages, ça ne donne pas envie de répondre...

[RV80]

voilà justement le problème c'est que aucune ligne n'est indiquée lors de l'erreur ...
Sinon oui tout les champs sont complétés comme le montre le screen-shot ci-dessous

http://i73.imagethrust.com/i/470121/erreur.jpg

sinon le Docmd.DoMenuItem il sert à quoi? Il y a peut-être une commande directe en VBA, il vaut mieux éviter d'utiliser les commandes par menu en VBA.

Oui,
j'ai fait l'erreur de commencer avec un code auto-généré et de le modifier après, je crois bien que je vais reprendre depuis le début merci pour vos conseils.

[guigui5931]

Essaye de faire afficher tes valeurs et tes variables dans des MsgBox pour voir laquelle vaut Null.

[ben_skywalker]

la balise de code est le # en fin de ligne, là ou il y a les options gras, italique, ect...
ensuite pour ton pb

remplace :

Code :

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

1
2
3
4
 
quant = CInt(quantiter.Value)
nomb_prd = CInt(nombreprod.Value)
total = CInt(quant + nomb_prd)

par

Code :

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

1
2
 
total = CInt(quantiter.value + nombreprod.Value)

et si sa te donne la même chose, je pense que sa vient de "nombreprod.Value" après je suis pas expert donc avis au connaisseur
ou plutôt d'un nom mal écrit, du style quantiter que tu aurais écrit dans les paramètre qunatiter ou un truc comme sa, c le problème si on écrit viet = vite ect... sa arrive et on cherche des heures pour rien vue que c une erreur c**

[Arkham46]

quantiter c'est normal comme nom de contrôle, ça me semble bizarre "er" à la fin?

Rajoute Option Explicit en en-tête de module pour forcer la déclaration des variables, il te dira à la compilation si une variable est inconnue (c'est peut-être le cas si tu as écris quantiter au lieu quantite.

[Trini]

Bonjour,

Moi je verrai plutôt NZ() avec :

Code :

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

1
2
3
4
 
quant = Nz(quantiter)
nomb_prd = Nz(nombreprod)
total = quant + nomb_prd

Cint() ne convertit pas une valeur/expression nulle.

Salut,

[yuan]

Pour pouvoir voir ou le programme plante, il faut supprimer la ligne

Code :

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

On Error GoTo Err_Commande8_Click

de ton code.

A partir de ce moment, toute erreur provoquera l'affichage d'un message d'avertissement et vous aurez la possibilité cliquer sur le bouton "Débogage" qui va vous positionner le curseur sur la ligne incriminée.

D'une manière générale, je ne suis pas trop pour que l'on mette un "on error goto" en début de programme ... justement parceque cela maque toutes les erreur et limite les possibilités de diagnostic.