Discussion :

[aaliyan]

Voilà, je voudrais executer une requete sous access, mais cela ne fonctionne pas sur le update, voila le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Fichier = "'" & Fichier & "'"
 
 
sql = "select trig from utilisateur where nom=" & Var
Set rs = db.OpenRecordset(sql)
Var = rs.Fields("trig")
Var = "'" & Var & "'"
sql = "update fiche set trig_dem = " & Var & " where titre = " & Fichier
db.Execute sql
db.Close

Merci d'avance.

[Oleff]

Bonjour,

Code :

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

Debug.print sql

te permettra de voir ce que tu essaies d'éxécuter à chaque appel et te permettras d'y voir un peu plus clair.

[aaliyan]

Ou faut-il que je le place?

[aaliyan]

Personne n'est un pro du VBA?

[DMboup]

Fichier = "'" & Fichier & "'"
Var = "'" & Var & "'"

Affectation bizard !
Que contient tes variable?

[aaliyan]

Mes variables contient du texte, mais pour les mettre dans du sql il faut qu'il y ait des cotes simple au debut et a la fin.

[DMboup]

Alors en les déclarant comme des String cela devrait suffir.
Essai de mettre les affectations en commentaires pour voir ce que ca donne!

Par ailleurs ta requête devrait pouvoir s'écrire plus simplement.

Code :

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

1
2
3
4
5
 
sql = "update fiche set trig_dem = " & Var & " where titre = (select trig from utilisateur where nom="' & Var & '")"
 
'Tu peux mettre ici un 
Debug.Print(sql)

En affichant la fenetre d'exécution tu verras la valeur de la variable sql.

[aaliyan]

La requête est bonne. J'ai toujours mon message d'objet requis.

[vodiem]

a première vu comme ca je dirais qu'il manque l'initialisation de Var avec les guillemet avant la requete.

Code :

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

1
2
Var = "'" & Var & "'"
sql = "select trig from utilisateur where nom=" & Var

s'il y a erreur:

J'ai toujours mon message d'objet requis.

je pense qu'il est là. pas dans le update.