Discussion :

[Playerz]

Bonjour tout le monde.

Depuis plusieurs jours, je cherche à résoudre l'erreur qui se trouve dans mon code VBA.
Le but de ce code est de récupérer l'identifiant (FormAjListMat) dans une zone de liste et la quantité (FormAJQte1Mat) dans une textbox saisie par un user et de mettre à jour la nouvelle quantité saisie dans la base de donnée.


Voici, code en question :

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 FormAjMat_Click()
 
Dim qte As Integer
Dim qte1 As Integer
Dim sql As String
 
'On récupère la quantitè déjà présente
qte = "SELECT Quantite FROM materiel WHERE Reference_mat = ' " & FormAjListMat & " ' ;"
'On lui rajoute la quantitè saisie dans le formulaire
qte1 = qte + cint(FormAjQte1Mat.Value)
'On met à jour la quantité du produit dans la BDD correspondant à la référence saisie dans le formulaire
sql = "UPDATE materiel SET Quantite = ' & qte1 & ' WHERE Reference_mat = ' " & FormAjListMat & " ' ;"
DoCmd.RunSQL (sql)
 
End Sub

En utilisant ce Code j'obtiens une erreur de compatibilité de type à la requête qte, et si je passe toute mes variable en String, l'exécution de ce programme me dis que je vais mettre 0 ligne de ma base de donnée à jour.

[Falcdyr]

1) Pourrais tu mettre ton code entre balises [ CODE ] [ / CODE ] sans les espaces ?
2) Est ce que cela pourrait provenir de tes ' entre l'attribut Qte ?
Que donne ça ?

Code :

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

sql = "UPDATE materiel SET Quantite = " & qte1 & " WHERE Reference_mat = ' " & FormAjListMat & " ' ;"

[Jean-Philippe André]

bonjour,
bienvenue sur DVP
tu fais une confusion entre la requête et son résultat. Il y a plusieurs petites erreurs facilement améliorables.
de nombreuses ressources sont à ta disposition notamment
http://access.developpez.com/faq

-je te recommande de regarder la fonction DLookup
-pas d'espaces de partout quand tu fais un test sur un champ texte
-utilise la fonction CurrentDb.Openrecordset()
-vérifie que ton champ quantite est de type numérique et pas texte.

esasie ceci :

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 FormAjMat_Click()
 
Dim qte As Integer
Dim qte1 As Integer
Dim sql As String
 
'On récupère la quantitè déjà présente
qte = Dlookup("Quantite","materiel","Reference_mat = '" & FormAjListMat & "'")
 
'On lui rajoute la quantitè saisie dans le formulaire
qte1 = Cint(qte) + cint(FormAjQte1Mat.Value)
'On met à jour la quantité du produit dans la BDD correspondant à la référence saisie dans le formulaire
sql = "UPDATE materiel SET Quantite = " & qte1 & " WHERE Reference_mat = '" & FormAjListMat & "';"
DoCmd.RunSQL (sql)
 
End Sub

[Playerz]

jcheck > Merci pour ton code celui ci marche parfaitement et ma gestion d'un parc informatique s'en trouve facilitée \o/. Seulement tu as utilisé plusieurs éléments que je n'ai jamais vu en cours, donc je vais chercher à quoi cela corresponds. Merci pour le coup de main.
Ensuite avant de poster sur le forum, j'avais cherché dans la FAQ, Tuto, ou autre liens présents dans le premier topic du forum, mais il y avait tellement de sujet traité que je n'ai pas réussi à trouvé celui qui me correspondait.

Falcdyr> j'avais déjà pensé à cette possibilité mais cela afficher qte et non la valeur de la variable.

Merci encore pour le coup de main.
Cordialement.