Discussion :

[Kyndred40]

Bonjour,

Je viens vers vous car actuellement sur un formulaire quand je clique sur un bouton cela m'ouvre un inputbox, seulement si je clique sur annuler il me génère cette erreur:
J'ai déjà essayé les On Error GoTo

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub ChangPrixAlu_Click()
On Error GoTo 0
Dim PrixAlum
 
 
PrixAlum = InputBox("Entrer le prix au kg de l'Aluminium", "Important", "")
 
CurrentDb.Execute "UPDATE EnAttPlanification SET PrixAlu = " & PrixAlum & ";"
 
 
 
Me.Refresh
 
End Sub

Auriez vous une idée pour soit ignoré l'erreur ou corriger le problème ?

Merci par avance de votre aide

[madefemere]

Bonjour,

Il faut vérifier que la valeur saisie n'est pas nulle avant l'exécution de la requête mise à jour :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ChangPrixAlu_Click()
On Error GoTo 0
Dim PrixAlum
 
PrixAlum = InputBox("Entrer le prix au kg de l'Aluminium", "Important", "")
 
If Not IsNull(PrixAlum) then
     CurrentDb.Execute "UPDATE EnAttPlanification SET PrixAlu = " & PrixAlum & ";"
end if
Me.Refresh
 
End Sub

Attention le type de PrixAlu n'est pas correctement défini.

Cordialement.

[Kyndred40]

Bonjour,

J'ai copié collé votre code mais j'ai toujours la même erreur lorsque je clique sur Annuler.
Le type de PrixAlu n'est en effet pas défini car je ne savais pas trop quelle type mettre .

Cordialement

[tee_grandbois]

bonjour,
tu ne précises pas quel montant est saisi, mais si jamais il y a des décimales, il vaut mieux mettre le montant entre guillemets ou apostrophes, étant donné que la virgule sert de séparateur de valeur dans SQL:

Code :

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

1
2
3
CurrentDb.Execute "UPDATE EnAttPlanification SET PrixAlu = '" & PrixAlum & "';"
'ou
CurrentDb.Execute "UPDATE EnAttPlanification SET PrixAlu = """ & PrixAlum & """;"

Le type de PrixAlu n'est en effet pas défini car je ne savais pas trop quelle type mettre

à priori, le même type que celui du champ de la table non ?

Si il n'y a pas de décimales, tu peux déclarer PrixAlum en Long, ou alors en Currency si le prix en contient.

Autre chose, quel enregistrement doit être mis à jour ? ce n'est pas précisé dans l'instruction

[hyperion13]

Salut

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub ChangPrixAlu_Click()
On Error GoTo 0
Dim PrixAlum
 
PrixAlum = InputBox("Entrer le prix au kg de l'Aluminium", "Important", "")
If StrPtr(PrixAlum) <> 0 Then
     CurrentDb.Execute "UPDATE EnAttPlanification SET PrixAlu = """ & PrixAlum & """"
End If
Me.Refresh
End Sub

[Kyndred40]

Bonjour à vous,

Merci tee_grandbois
Ah pardon en effet je ne précise pas le montant saisi, en effet il peut y avoir des virgules car c'est un prix qui peut varier.
D'accord parfait merci pour l'info concernant les types de mes variables.
En effet je ne l'ai pas précisé mais ce sont tous les champs de la table qui change et prenne une nouvelle valeur (en tout cas pour le moment )
Merci aussi pour les infos concernant le code pour les deux versions comme ça si je veux changer au cas où je les aurait déjà

Merci hyperion pour le code cela fonctionne.

Merci à vous pour votre aide !