424-Objet requis : INSERT/SELECT SQL

wytek Messages postés 13 Date d'inscription Statut Membre Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention - 11 juin 2015 à 12:13

Bonjour a toutes et a tous,

J'ai l'erreur "424-Objet requis" qui ressort lors de l'exécution de ma fonction VBA.

Qui est:
-----------------------------------------------------------------------

Public Function MAJ_SCAT_Avoirs()

    Dim rst As DAO.Recordset
    Dim Cible As String
    Dim Origine As String
    Dim Val As Integer
    
    
    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

-------------------------------------------------------------

Je me remet au savoir infini des utilisateur de ce forum...
Merci a vous par avance a bientôt.

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

Afficher la suite

A voir également:

424-Objet requis : INSERT/SELECT SQL
Vente objet occasion entre particulier - Guide
Objet interdit en cabine ryanair - Guide
Identifier un objet à partir d'une photo - Guide
Mesurer un objet - Guide
Identifiant requis gmail - Forum Laposte

5 réponses

Réponse 1 / 5

nephou Messages postés 213 Date d'inscription Statut Membre Dernière intervention 22

Bonjour,

Je crois que tu as oublié de déclarer sql en tant que variable

wytek Messages postés 13 Date d'inscription Statut Membre Dernière intervention

Voila le code après modif :
---------------------------------------------------------------------------------

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

nephou Messages postés 213 Date d'inscription Statut Membre Dernière intervention 22

db.Execute "UPDATE TD_MargeOnline SET TD_MargeOnline.S-CAT =" & Val & "WHERE TD_MargeOnline.NCMD=" & Cible & ";"

c'est pas plutôt :
db.Execute("UPDATE TD_MargeOnline SET TD_MargeOnline.S-CAT =" & Val & "WHERE TD_MargeOnline.NCMD=" & Cible & ";");

wytek Messages postés 13 Date d'inscription Statut Membre Dernière intervention

ça ne fonctionne pas :'(

nephou Messages postés 213 Date d'inscription Statut Membre Dernière intervention 22

sans le point virgule à la fin de ma phrase my bad je suis en plein java la lol. Toujours la même erreur ?

wytek Messages postés 13 Date d'inscription Statut Membre Dernière intervention

j'avais enlever le ";" et ça n'a pas fonctionner
je ne comprend pas le sens de l'erreur méme dans la doc de microsoft ce n'est pas très clair

Réponse 2 / 5

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

bonjour
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 Statut Membre Dernière intervention

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

Réponse 3 / 5

wytek Messages postés 13 Date d'inscription Statut Membre Dernière intervention

--------------------------------------------------------------------------

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

Réponse 4 / 5

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

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 Statut Membre Dernière intervention

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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

Bonjour

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

Discussions similaires

Problème d'app Gmail : "Identifiants requis"

Identifiant requis

Identifiants corrects requis

pb de création de compte gmail?

Problème identifiants requis pour mon webmail laposte.net

Votre réponse

Discussions similaires