Discussion :

[majudis]

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

[keita]

bonjour

Code :

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

1
2
sql = "UPDATE Exposition Set Exposition.Conversion =" & Result & " & _
"Where Exposition.id_personne = '" & Nom & "' AND......

quel est le type de nom; je l'ai supposé du type string.

@+

[majudis]

Bonjour Keita,

Merci pour ta réponse cela fonctionne parfaitement. Seulement je ne comprend pas pourquoi il faut mettre des Quotes alors que les parenthèses délimitent déjà la variable....

J'ai peut être dû loupé une étape alors

[keita]

Seulement je ne comprend pas pourquoi il faut mettre des Quotes alors que les parenthèses délimitent déjà la variable....

Pour mettre les quotes ou pas, il faut tenir compte du type de la variable.
Result est du type numerique -> pas de quote
nom, string -> quote
va voir dans la , tu y trouveras bcp plus de details.
http://access.developpez.com/faq/?pa...teres#VarDsReq

Bonne journee et n'oublie pas le tag

@+

[majudis]

Très bien je te remercie pour ton aide.

Bonne journée