IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

Trop peu de paramètres. erreur 3061 [AC-2010]


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    apprenti ingénieur en informatique et réseaux
    Inscrit en
    Octobre 2010
    Messages
    71
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Drôme (Rhône Alpes)

    Informations professionnelles :
    Activité : apprenti ingénieur en informatique et réseaux
    Secteur : Industrie

    Informations forums :
    Inscription : Octobre 2010
    Messages : 71
    Par défaut Trop peu de paramètres. erreur 3061
    Bonjour, je m'attaque au VBA sous access.
    Je souhaite executer une requete "ajout" que j'ai crée sous access.
    Je veux lancer cette requête plusieurs fois (d'où la boucle, je veux tester plusieurs valeurs dans ma requête).

    Cependant, j'obtiens l'erreur suivante:
    Erreur d'execution '3061
    Trop peu de paramètres. 6 attendus
    J'ai cherché sur internet, mais j'arrive pas à savoir exactement d'où ça vient...
    Voici mon VBA:
    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
    Function ProximiteCodif()
    Dim LocationBegin As Variant 'déclaration de la variable de début
    Dim LocationEnd As Variant 'déclaration de la variable de fin
    Dim i As Variant
    Dim qdf As DAO.QueryDef
     
    Set qdf = CurrentDb.QueryDefs("ProxLocDansPerimetreVBA")
     
    LocationBegin = Forms!ProximiteReference.LocationBegin
    LocationEnd = Forms!ProximiteReference.LocationEnd
     
    For i = LocationBegin To LocationEnd
    Forms!ProximiteReference.LocationBegin = i
    qdf.Execute
    Next i
     
    End Function
    Merci

    EDIT: Arf, je crois que ça vient du fait que j'appelle des variables originaire d'un formulaire dans ma requête....

  2. #2
    Rédacteur/Modérateur
    Avatar de loufab
    Homme Profil pro
    Entrepreneur en solutions informatiques viables et fonctionnelles.
    Inscrit en
    Avril 2005
    Messages
    12 137
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : Entrepreneur en solutions informatiques viables et fonctionnelles.
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2005
    Messages : 12 137
    Par défaut
    Bonjour,

    Problème connu.

    Tu dois inscrire tes liens vers les formulaire en Parameters.

    Il y a une option dans le ruban qui s'appelle Paramètres lorsque tu es en mode création de la requête.

    Cordialement,
    Détecter les modifications formulaire Cloud storage et ACCESS
    Classe MELA(CRUD) Opérateur IN et zone de liste Opérateur LIKE
    Visitez mon Blog
    Les questions techniques par MP ne sont pas lues et je ne pratique pas la bactériomancie

  3. #3
    Membre confirmé
    Homme Profil pro
    apprenti ingénieur en informatique et réseaux
    Inscrit en
    Octobre 2010
    Messages
    71
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Drôme (Rhône Alpes)

    Informations professionnelles :
    Activité : apprenti ingénieur en informatique et réseaux
    Secteur : Industrie

    Informations forums :
    Inscription : Octobre 2010
    Messages : 71
    Par défaut
    Yes merci!
    j'ai rajouté ça :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    qdf.Parameters(0).Value = [Forms]![ProximiteReference]![LocationPivot]
    qdf.Parameters(1).Value = [Forms]![ProximiteReference]![DistanceProximite]
    mais j'ai une erreur de conversion de données :/
    mes données formulaires sont tous deux des entiers.

  4. #4
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Architecte Power Platform, ex-Développeur VBA/C#/VB.Net
    Inscrit en
    Juillet 2007
    Messages
    14 682
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : Canada

    Informations professionnelles :
    Activité : Architecte Power Platform, ex-Développeur VBA/C#/VB.Net
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2007
    Messages : 14 682
    Par défaut
    hello,

    peut-on voir le code SQL de la requete appelée stp ?
    Cycle de vie d'un bon programme :
    1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise

    Pas de question technique par MP, je ne réponds pas

    Mes ouvrages :
    Migrer les applications VBA Access et VBA Excel vers la Power Platform
    Apprendre à programmer avec Access 2016, Access 2019 et 2021

    Apprendre à programmer avec VBA Excel
    Prise en main de Dynamics 365 Business Central

    Coffrets disponibles de mes ouvrages : https://www.editions-eni.fr/jean-philippe-andre
    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  5. #5
    Membre confirmé
    Homme Profil pro
    apprenti ingénieur en informatique et réseaux
    Inscrit en
    Octobre 2010
    Messages
    71
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Drôme (Rhône Alpes)

    Informations professionnelles :
    Activité : apprenti ingénieur en informatique et réseaux
    Secteur : Industrie

    Informations forums :
    Inscription : Octobre 2010
    Messages : 71
    Par défaut
    oui biensur :
    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
    INSERT INTO codificationProximite ( LocationPivot, LocationCible, CoefficentSimilitude )
    SELECT ProxLocationPivotVBA.LOCATION, ProxGeoEmplacement.LOCATION, 
    IIf([P] Like Mid([ProxLocationPivotVBA]![ITM_NUM],8,1),3,0)
    +IIf([S] Like Mid([ProxLocationPivotVBA]![ITM_NUM],8,1),2,0)
    +IIf([T] Like Mid([ProxLocationPivotVBA]![ITM_NUM],8,1),1,0)
    +IIf([S] Like Mid([ProxLocationPivotVBA]![ITM_NUM],9,1),3,0)
    +IIf([P] Like Mid([ProxLocationPivotVBA]![ITM_NUM],9,1),2,0)
    +IIf([T] Like Mid([ProxLocationPivotVBA]![ITM_NUM],9,1),2,0)
    +IIf([T] Like Mid([ProxLocationPivotVBA]![ITM_NUM],10,1),3,0)
    +IIf([S] Like Mid([ProxLocationPivotVBA]![ITM_NUM],10,1),2,0)
    +IIf([P] Like Mid([ProxLocationPivotVBA]![ITM_NUM],10,1),1,0) AS coefCodif
    FROM ProxLocationPivotVBA, (ProxGeoEmplacement INNER JOIN CATALYST_LOCATION ON ProxGeoEmplacement.LOCATION = CATALYST_LOCATION.LOCATION) 
    INNER JOIN CATALYST_LOCCLASS ON ProxGeoEmplacement.LOC_CLASS = CATALYST_LOCCLASS.LOC_CLASS
    WHERE (((ProxGeoEmplacement.LOCATION) Like Mid([ProxLocationPivotVBA]![location],1,4) & "*") 
    AND ((ProxGeoEmplacement.L) Between ([ProxLocationPivotVBA]![L]-([Formulaires]![ProximiteReference]![DistanceProximite]*([CATALYST_LOCATION]![WIDTH]/142))) 
    And ([ProxLocationPivotVBA]![L]+([Formulaires]![ProximiteReference]![DistanceProximite]*([CATALYST_LOCATION]![WIDTH]/142)))) 
    AND ((ProxGeoEmplacement.H) Between ([ProxLocationPivotVBA]![H]-([Formulaires]![ProximiteReference]![DistanceProximite]*([CATALYST_LOCATION]![HEIGHT]/132))) 
    And ([ProxLocationPivotVBA]![H]+([Formulaires]![ProximiteReference]![DistanceProximite]*([CATALYST_LOCATION]![HEIGHT]/132)))) 
    AND ((IIf(Mid([Formulaires]![ProximiteReference]![LocationPivot],4,2) Mod 2=1,[ProxGeoEmplacement]![MeubleImpaiir],[ProxGeoEmplacement]![MeublePair])) Not Like ""));
    j'essaye de le mettre en forme de façon le plus lisible...

    Merci

  6. #6
    Membre confirmé
    Homme Profil pro
    apprenti ingénieur en informatique et réseaux
    Inscrit en
    Octobre 2010
    Messages
    71
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Drôme (Rhône Alpes)

    Informations professionnelles :
    Activité : apprenti ingénieur en informatique et réseaux
    Secteur : Industrie

    Informations forums :
    Inscription : Octobre 2010
    Messages : 71
    Par défaut
    bon je viens de voir qu'il faut aussi mettre les paramètre dans la requete sous access. Donc plus d'erreur de conversion. Parcontre, je comprends pas comment affecté les paramètres vis-a-vis du chiffre (0,1,....)
    Et il me met qu'il attend 8 parametres, or je n'ai pas 8 paramètres qui viennent d'un formulaire. Est-ce que le fait que j'appelle via cette requete une autre requete dnas lequel il y a des champs parametres?

    Merci de votre aide et éclairages ^^

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Erreur 3061 : Trop peu de paramètres.1 attendu
    Par deglingo37 dans le forum Requêtes et SQL.
    Réponses: 14
    Dernier message: 05/12/2014, 19h55
  2. Erreur d'exécution 3061, trop peu de paramètres (select)
    Par Requiem11 dans le forum VBA Access
    Réponses: 1
    Dernier message: 28/02/2008, 21h47
  3. Réponses: 1
    Dernier message: 30/05/2007, 10h41
  4. OpenRecordset erreur 3061 trop peu de paramètres
    Par fafabzh6 dans le forum Access
    Réponses: 4
    Dernier message: 26/09/2006, 16h15
  5. Réponses: 4
    Dernier message: 15/03/2006, 16h47

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo