Erreur Requête sql code vba
Bonjour,
Je m'arrache les cheveux sur ce code qui ne veut pas fonctionner...
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| Private Sub champ_tpsexpo_AfterUpdate()
Dim produit As String
Dim Tps_expo As Integer
Dim Unite As String
Dim Result As Long
Dim Nom As Integer
Nom = Me.id_personne 'Matricule de la personne
produit = Me.Modifiable11 'Id du produit
Tps_expo = Me.champ_tpsexpo 'Temps d'exposition saisie
Unite = Me.Unite_Expo 'Unité d'exposition relevée
Result = Tps_expo * 3
sql = "UPDATE Exposition Set Exposition.Conversion = ' & Result & '" & _
"Where Exposition.id_personne = " & Nom & " AND Exposition.Id_Produit = '" & produit & "';"
CurrentDb.Execute sql
End Sub |
Le problème vient de ma requête sql, il me dit "Type de données incompatibles".
Je ne comprend pas d'où cela peut venir.
Si quelqu'un a une idée... Je l'en remercie grandement d'avance
Très bonne journée ;)
