Discussion :

[tibjedi]

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

[loufab]

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,

[tibjedi]

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.

[Jean-Philippe André]

hello,

peut-on voir le code SQL de la requete appelée stp ?

[tibjedi]

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

[tibjedi]

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