Discussion :

[alexkickstand]

Bonjour , j'ai un petit probleme de requete update en vba voici la cause de mon probleme :


noeud : est le nom de ma table a modifier
id_conveyor_add : est une variable vba
conveyor_id_noeud : est une variable vba
conveyor_nom_noeud : est une variable vba

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Set db = CurrentDb
 
STR_SQL1 = "UPDATE noeud SET [noeud].[Nom_Noeud]= '" & id_conveyor_add & "_" & conveyor_nom_noeud & conveyor_id_noeud & " '"
STR_SQL2 = " WHERE ((([noeud].[ID_Noeud]) = '" & conveyor_id_noeud & " '))"
STR_SQL = STR_SQL1 & STR_SQL2  
 
db.Execute strSQl
 
db.Close

je pense que c'est un probleme de syntaxe mais je n'arrive pas a corriger le probleme : l'erreur suivante s'affiche :

Error 3078 : The Microsoft Jet database engine cannot find the input table or query ". Make sure it exists and that its name is spelled correctly.

merci d'avance pour de l'aide.

[Jean-Philippe André]

salut,
pkoi passes-tu par db si c'est pour utiliser CurrentDb ?
d'autre part, bcp de parenthèses pour pas grand chose ?

[alexkickstand]

salut,
pkoi passes-tu par db si c'est pour utiliser CurrentDb ?
d'autre part, bcp de parenthèses pour pas grand chose ?

salut , que veux tu dire pour db et current db ?


est-ce mieux ceci :

Set db = Application.CurrentDb ?

pour les parentheses je suis d'accord

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Set db = Application.CurrentDb
 
STR_SQL1 = "UPDATE noeud SET [noeud].[Nom_Noeud]= '" & id_conveyor_add & "_" & conveyor_nom_noeud & conveyor_id_noeud & " '"
STR_SQL2 = " WHERE [noeud].[ID_Noeud] = '" & conveyor_id_noeud & " '"
STR_SQL = STR_SQL1 & STR_SQL2  
 
db.Execute strSQl
 
db.Close

[Jean-Philippe André]

je te disais de faire simplement

Code :

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

CurrentDb.Execute strSQL

[alexkickstand]

je te disais de faire simplement

Code :

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

CurrentDb.Execute strSQL

merci pour l'info j'ai un peu cherché sur ce sujet puis j'ai changé ma requete avec ceci et ca fonctionnes

Code :

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

1
2
 
CurrentDb.Execute "update noeud set [Nom_Noeud]=" & " '" & id_conveyor_add & "_" & conveyor_nom_noeud & "'" & "where [ID_Noeud]='" & conveyor_id_noeud & "'"

encore merci de ton aide (c'est vrai que c'est plus propre comme programmation )


Alex