Bonjour,

Je m'arrache les cheveux sur ce code qui ne veut pas fonctionner...

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
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