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 :
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.
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
Partager