passage variable dans un select

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour,

j'ai ça comme code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub fk_secact_code_AfterUpdate() Dim v_pk_secact As String v_pk_secact = fk_secact_code.Column(1) Texte96 = v_pk_secact Dim liste_secssact As DAO.Recordset Dim req As DAO.Database Set req = CurrentDb Set liste_secssact = req.OpenRecordset("SELECT libelle, pk_secssact FROM t_ref_secssact WHERE fk_secact_code=" & v_pk_secact, dbOpenDynaset) fk_secssact_code = liste_secssact.Fields(0).Value End Sub
dans Tesxe96 l'id de l'enregistrement s'affiche sans problème
mais j'ai un message d'erreur au niveau de la requête SELECT

trop peu de paramètre. 1 attendu

le truc le plus bizarre est que ce code fonctionne sur une autre base...
je ne comprend pas...

Merci pour votre aide

Access 2016

21/03/2019, 17h34
Ric500

passage variable dans un select

Bonjour,

Tu peux essayer :

Code:

Set liste_secssact = req.OpenRecordset("SELECT libelle, pk_secssact FROM t_ref_secssact WHERE fk_secact_code='" & v_pk_secact & "'", dbOpenDynaset)

La variable issue de ta liste étant de type string.
21/03/2019, 17h49
gudule1er

avec ce code j'ai une erreur de syntaxe...

merci quand même
21/03/2019, 18h01
Ric500

passage variable dans un select

Laquelle?

Si tu mets un point d'arrêt sur cette ligne peux-tu interroger cette variable dans la console?
21/03/2019, 19h13
Jean-Philippe André

Bonjour,

la bonne pratique est de passer par des paramètres plutôt que de construire des requêtes par concaténation :

https://access.developpez.com/faq/?page=SQL#ReqParamVar
21/03/2019, 22h22
Ric500

passage variable dans un select

Du coup si ton paramètre attendu est un entier long (ce qui serait plus logique), laisse ton select tel qu'il était et affecte à ta variable la colonne 1 de ta liste convertie en long (CLng).
N'oublie pas de déclarer ta variable en long

Code:

Dim v_pk_secact As Long

j'en suis là et toujours le même problème

Code:

1
2
3
4
5
6
7
8
9
10
Dim v_pk_secact As Long
 
    v_pk_secact = fk_secact_code.Column(1)
    Texte90 = v_pk_secact
    Dim req_liste_secssact As DAO.Recordset
    Dim req As DAO.Database
    Set req = CurrentDb
    Set req_liste_secssact = req.OpenRecordset("SELECT libelle, pk_secssact_code  FROM t_ref_secssact WHERE pk_secact_code=" & v_pk_secact, dbOpenDynaset)
 
End Sub

et je n'arrive pas non plus à faire la technique avec parameters... :(

22/03/2019, 11h41
Ric500

passage variable dans un select

Bonjour,

Citation:

dans Tesxe96 l'id de l'enregistrement s'affiche sans problème
mais j'ai un message d'erreur au niveau de la requête SELECT

Peux-tu mettre un point d'arrêt dans ton code sur la ligne 5 et, dans la console faire:

Code:

?vartype(Texte90 )

Si la réponse est 8, c'est du texte et ma première réponse avec les simples cotes est OK
Si la réponse est 2, il s'agit d'un integer et il faut déclarer

Code:

Dim v_pk_secact As String

Si la réponse est 3, il s'agit d'un longet il faut déclarer

Code:

Dim v_pk_secact As Long

dans le même formulaire :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub cp_AfterUpdate()
Dim v_coupe_departament As Long
 
v_coupe_departement = Left(Forms!f_societe.cp.Value, 2)
departement = v_coupe_departement
Dim req_region As DAO.Recordset
    Dim sql_region As DAO.Database
    Set sql_region = CurrentDb
    Set req_region = sql_region.OpenRecordset("SELECT region  FROM t_ref_region WHERE cp=" & v_coupe_departement, dbOpenDynaset)
    region = req_region.Fields(0).Value
End Sub
 
Private Sub fk_secact_code_AfterUpdate()
Dim v_pk_secact As Long
 
    v_pk_secact = fk_secact_code.Column(1)
    Texte90 = v_pk_secact
    Dim req_liste_secssact As DAO.Recordset
    Dim req As DAO.Database
    Set req = CurrentDb
    Set req_liste_secssact = req.OpenRecordset("SELECT libelle, pk_secssact_code  FROM t_ref_secssact WHERE pk_secact_code=" & v_pk_secact, dbOpenDynaset)
 
End Sub

la première fonctionne nickel et me rempli les chams mais pas la seconde...

22/03/2019, 11h54
gudule1er

Citation:

Envoyé par Ric500

Bonjour,

Peux-tu mettre un point d'arrêt dans ton code sur la ligne 5 et, dans la console faire:

Code:

?vartype(Texte90 )

Si la réponse est 8, c'est du texte et ma première réponse avec les simples cotes est OK
Si la réponse est 2, il s'agit d'un integer et il faut déclarer

Code:

Dim v_pk_secact As String

Si la réponse est 3, il s'agit d'un longet il faut déclarer

Code:

Dim v_pk_secact As Long

la valeur est un ID avec auto-incrément géré par access
22/03/2019, 11h59
Ric500

passage variable dans un select
Citation:
Code:

1 2 3 Dim v_pk_secact As Long v_pk_secact = fk_secact_code.Column(1)
Si fk_secact_code est une liste déroulante, les valeurs issues sont en String ( :P ) , Du coup tu dois convertir:
Code:

1 2 3 Dim v_pk_secact As Long v_pk_secact = Clng(fk_secact_code.Column(1))
22/03/2019, 12h02
Ric500

passage variable dans un select
D'ailleurs, je pense que tu devrais revoir tes affectations:
Code:

1 2 Dim v_coupe_departament As Long v_coupe_departement = Left(Forms!f_societe.cp.Value, 2)
La fonction Left renvoie du string...
22/03/2019, 13h36
gudule1er

je débute en vba... dur comme langage je trouve...
je suis vos conseils et je vous fais un retour

1 pièce(s) jointe(s)

résulta dans mon formulaire

Pièce jointe 460197

donc comme je vous disais le Sub sur le code postale fonctionne, ça rempli automatiquement la région et le département

le texte90 affiche l'id du secteur d'activité, mais impossible de le faire passer dans le sql...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub cp_AfterUpdate()
Dim v_coupe_departament As Long
 
v_coupe_departement = Left(Forms!f_societe.cp.Value, 2)
departement = v_coupe_departement
Dim req_region As DAO.Recordset
    Dim sql_region As DAO.Database
    Set sql_region = CurrentDb
    Set req_region = sql_region.OpenRecordset("SELECT region  FROM t_ref_region WHERE cp=" & v_coupe_departement, dbOpenDynaset)
    region = req_region.Fields(0).Value
End Sub
 
Private Sub fk_secact_code_AfterUpdate()
Dim v_pk_secact As Long
 
    v_pk_secact = CLng(fk_secact_code.Column(1))
    Texte90 = v_pk_secact
    Dim req_liste_secssact As DAO.Recordset
    Dim req As DAO.Database
    Set req = CurrentDb
    Set req_liste_secssact = req.OpenRecordset("SELECT libelle, pk_secssact_code  FROM t_ref_secssact WHERE pk_secact_code=" & v_pk_secact, dbOpenDynaset)
 
End Sub

en gros je patoge

22/03/2019, 13h52
Ric500

passage variable dans un select

Peux-tu me joindre ta base, si elle ne comporte pas de données confidentielle? (zippée)

pour la base c'est compliqué... ;)

ce que je comprend c'est que j'ai fait ça sur une autre base et ça fonctionne...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub Entreprise_AfterUpdate()
 
 
        Dim v_id_prospect As String
            v_id_prospect = Entreprise.Column(2)
 
        Ville = Entreprise.Column(1)
       test_id_prospect = v_id_prospect
 
    Dim record_fiche_prospect As DAO.Recordset
    Dim req As DAO.Database
    Set req = CurrentDb
    Set record_fiche_prospect = req.OpenRecordset("SELECT source, secteur_activite, profil, adresse, num_voie, voie, libelle_voie, cp, prenom, nom, tel, mail, fonction, naf, siret  FROM t_fiche_prospect WHERE ID_prospect=" & v_id_prospect, dbOpenDynaset)
 
      Source = record_fiche_prospect.Fields(0).Value
      Secteur_Activite = record_fiche_prospect.Fields(1).Value
      Profil = record_fiche_prospect.Fields(2).Value
      Adresse = record_fiche_prospect.Fields(3).Value
      num_voie = record_fiche_prospect.Fields(4).Value
      Voie = record_fiche_prospect.Fields(5).Value
      libelle_voie = record_fiche_prospect.Fields(6).Value
      CP = record_fiche_prospect.Fields(7).Value
      prenom = record_fiche_prospect.Fields(8).Value
      Nom = record_fiche_prospect.Fields(9).Value
      Tel = record_fiche_prospect.Fields(10).Value
      Mail = record_fiche_prospect.Fields(11).Value
      Fonction = record_fiche_prospect.Fields(12).Value
      naf = record_fiche_prospect.Fields(13).Value
      siret = record_fiche_prospect.Fields(14).Value

22/03/2019, 14h15
Ric500

passage variable dans un select
OK,

Pour simplifier tu pourrais t'intéresser aux fonctions de domaine avec une syntaxe ci-après beaucoup plus simple:

maVariable (ou monChamp) = DLookup("champ","Table","Condition")

ici, çà donnerait:
Code:

1 2 leLibelle=DLookUp("libelle","t_ref_secssact","pk_secact_code=" & v_pk_secact)
22/03/2019, 14h22
tee_grandbois

1 pièce(s) jointe(s)
bonjour,
- que ce passe-t-il lorsque tu compiles ton code ? (c'est d'ailleurs, plutôt une vérification de la syntaxe qu'une vraie compilation)

Pièce jointe 460210

- il est conseillé de toujours mettre Me. devant les contrôles du formulaire:
Code:

1 2 Me.v_pk_secact = CLng(fk_secact_code.Column(1)) Me.Texte90 = v_pk_secact
- pourquoi n'y a t-il pas code après cette ligne ?

Code:

Set req_liste_secssact = req.OpenRecordset("SELECT libelle, pk_secssact_code FROM t_ref_secssact WHERE pk_secact_code=" & v_pk_secact, dbOpenDynaset)
22/03/2019, 14h29
gudule1er

il ne se passe rien avec la compilation

le v_secact_code n'est pas un champ dans mon formulaire, elle ce trouve dans un Dim

il n'y a rien dérrière puisque j'ai une erreur "trop peu de paramètre 1 attendu... ;)

je vais essayer le code plus haut...
22/03/2019, 14h44
gudule1er

alors j'ai essayé ça

Code:

liste_secssact = DLookup("libelle", "t_ref_secssact", "pk_secact_code=" & v_pk_secact)

marche pas non plus, erreur d'execution 2471

j'ai essayer aussi en remplaçant & v_pk_secact par Me.Texte90 et j'ai la même erreur...

je continue de bidouiller...

Voir 40 message(s) de cette discussion en une page