424-Objet requis : INSERT/SELECT SQL
Fermé
wytek
Messages postés
13
Date d'inscription
mardi 16 juillet 2013
Statut
Membre
Dernière intervention
11 juin 2015
-
Modifié par jordane45 le 11/06/2015 à 12:14
michel_m Messages postés 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 7 mars 2023 - 11 juin 2015 à 12:13
michel_m Messages postés 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 7 mars 2023 - 11 juin 2015 à 12:13
A voir également:
- 424-Objet requis : INSERT/SELECT SQL
- Objet requis vba - Forum VB / VBA
- Vente objet occasion entre particulier - Guide
- Blob sql ✓ - Forum Webmastering
- Reboot and select proper boot device - Forum Windows
- Please select boot device - Forum Matériel informatique
5 réponses
nephou
Messages postés
210
Date d'inscription
jeudi 28 mai 2015
Statut
Membre
Dernière intervention
3 juillet 2015
25
2 juin 2015 à 10:12
2 juin 2015 à 10:12
Bonjour,
Je crois que tu as oublié de déclarer sql en tant que variable
Je crois que tu as oublié de déclarer sql en tant que variable
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
7 mars 2023
3 291
3 juin 2015 à 12:00
3 juin 2015 à 12:00
bonjour
syntaxe SQl variable de type string
a voir
en VBA Val est un mot réservé
et si la valeur c'est un nombre tu peux marqué directement
S-CAT =Valeur suivi d'un espace avant where
Michel
syntaxe SQl variable de type string
'" &cible & "'--
soit apostrophe guillemets variable guillemets apostrophe
ou
["cible"]
a voir
en VBA Val est un mot réservé
et si la valeur c'est un nombre tu peux marqué directement
S-CAT =Valeur suivi d'un espace avant where
Michel
wytek
Messages postés
13
Date d'inscription
mardi 16 juillet 2013
Statut
Membre
Dernière intervention
11 juin 2015
4 juin 2015 à 15:31
4 juin 2015 à 15:31
J'ai revérifier la syntaxe des mes requêtes par rapport a ton conseil mais ça na rien changer toujours la même erreur :/
wytek
Messages postés
13
Date d'inscription
mardi 16 juillet 2013
Statut
Membre
Dernière intervention
11 juin 2015
Modifié par jordane45 le 11/06/2015 à 12:16
Modifié par jordane45 le 11/06/2015 à 12:16
--------------------------------------------------------------------------
------------------------------------------------------------------------
Voila la dernière version du code.
Si quelqu'un voie la moindre erreur même un simple caractère un espace ou quoi que ce soit , qu'il me le signal.
J'en peut plu de ce problème :'( la solution doit être toute simple mais je ne la vois pas.
Je désespère...
Je vous remercie d'avance
EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :
https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code
Merci d'y penser dans tes prochains messages.
.
Public Function MAJ_SCAT_Avoirs()
Dim rst As DAO.Recordset
Dim Cible As String
Dim Origine As String
Dim valeur As Integer
Dim sql As String
sql = "SELECT NCMD FROM TD_MargeOnline WHERE TCMD=3 OR TCMD=4 ;"
Set rst = db.OpenRecordset(sql, dbOpenSnapshot)
While Not rst.EOF And rst.BOF
Cible = rst!NCMD
sql = "SELECT NFAR FROM TD_Avoirs WHERE NCMD=" & Cible & ";"
Set rst = db.OpenRecordset(sql, dbOpenSnapshot)
Origine = rst!NFAR
valeur = DLookup("[S-CAT]", "TD_MargeOnline", "[NCMD]='" & Origine & "'")
db.Execute ("UPDATE TD_MargeOnline SET TD_MargeOnline.S-CAT =" & valeur & "WHERE TD_MargeOnline.NCMD='" & Cible & "';")
'passage a la ligne suivante
rst.MoveNext
Wend
End Function
------------------------------------------------------------------------
Voila la dernière version du code.
Si quelqu'un voie la moindre erreur même un simple caractère un espace ou quoi que ce soit , qu'il me le signal.
J'en peut plu de ce problème :'( la solution doit être toute simple mais je ne la vois pas.
Je désespère...
Je vous remercie d'avance
EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :
https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code
Merci d'y penser dans tes prochains messages.
.
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
10 juin 2015 à 17:22
10 juin 2015 à 17:22
Bonjour,
Manque un espace devant le WHERE TD_MargeOnline
et votre erreur est sur quelle ligne (si ligne surlignee)
Manque un espace devant le WHERE TD_MargeOnline
et votre erreur est sur quelle ligne (si ligne surlignee)
wytek
Messages postés
13
Date d'inscription
mardi 16 juillet 2013
Statut
Membre
Dernière intervention
11 juin 2015
11 juin 2015 à 12:02
11 juin 2015 à 12:02
J'ai ajouter l'espace devant le where.
Lors du plantage il ne propose pas d'accéder au debuggeur :/
L'erreur vient forcement de cette fonction étant donné qu'il n'est survenu qu'apres son implémentation
Lors du plantage il ne propose pas d'accéder au debuggeur :/
L'erreur vient forcement de cette fonction étant donné qu'il n'est survenu qu'apres son implémentation
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
7 mars 2023
3 291
Modifié par jordane45 le 11/06/2015 à 12:16
Modifié par jordane45 le 11/06/2015 à 12:16
Bonjour
Cible est du texte donc syntaxe comme tu l'as écrit + plus bas
je ne connais pas ce que tu veux faire mais tu as des relations entre 2 tables margeonline et avoirs: l'emploi des jointures ne pourraient elles pas être utilisées dans ton cas ?
**** Attention ****
Merci de bien vouloir utiliser la coloration syntaxique (les balises de code) lorsque tu postes du code sur le forum.
Explications disponibles ici :
https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code
.
Michel
sql = "SELECT NFAR FROM TD_Avoirs WHERE NCMD=" & Cible & ";"
Cible est du texte donc syntaxe comme tu l'as écrit + plus bas
je ne connais pas ce que tu veux faire mais tu as des relations entre 2 tables margeonline et avoirs: l'emploi des jointures ne pourraient elles pas être utilisées dans ton cas ?
**** Attention ****
Merci de bien vouloir utiliser la coloration syntaxique (les balises de code) lorsque tu postes du code sur le forum.
Explications disponibles ici :
https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code
.
Michel
Modifié par jordane45 le 11/06/2015 à 12:15
---------------------------------------------------------------------------------
Public Function MAJ_SCAT_Avoirs() Dim rst As DAO.Recordset Dim Cible As String Dim Origine As String Dim Val As Integer Dim sql As String sql = "SELECT NCMD FROM TD_MargeOnline WHERE TCMD=3 OR TCMD=4 ;" Set rst = db.OpenRecordset(sql, dbOpenSnapshot) While Not rst.EOF And rst.BOF Cible = rst!NCMD sql = "SELECT NFAR FROM TD_Avoirs WHERE NCMD=" & Cible & ";" Set rst = db.OpenRecordset(sql, dbOpenSnapshot) Origine = rst!NFAR Val = DLookup("[S-CAT]", "TD_MargeOnline", "[NCMD]='" & Origine & "'") db.Execute "UPDATE TD_MargeOnline SET TD_MargeOnline.S-CAT =" & Val & "WHERE TD_MargeOnline.NCMD=" & Cible & ";" 'passage a la ligne suivante rst.MoveNext Wend End Function-----------------------------------------------------------------------------------------
L'erreur ressort toujours :'(
EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :
https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code
Merci d'y penser dans tes prochains messages.
.
2 juin 2015 à 15:13
c'est pas plutôt :
db.Execute("UPDATE TD_MargeOnline SET TD_MargeOnline.S-CAT =" & Val & "WHERE TD_MargeOnline.NCMD=" & Cible & ";");
2 juin 2015 à 16:45
2 juin 2015 à 16:59
3 juin 2015 à 10:04
je ne comprend pas le sens de l'erreur méme dans la doc de microsoft ce n'est pas très clair