Discussion :

[gudule1er]

Bonjour,

j'ai ça comme code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Ric500]

Bonjour,

Tu peux essayer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[gudule1er]

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

merci quand même

[Ric500]

Laquelle?

Si tu mets un point d'arrêt sur cette ligne peux-tu interroger cette variable dans la console?

[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

[Ric500]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim v_pk_secact As Long

[gudule1er]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Ric500]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Sélectionner tout - Visualiser dans une fenêtre à part

Dim v_pk_secact As String

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim v_pk_secact As Long

[gudule1er]

dans le même formulaire :

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

[gudule1er]

Bonjour,



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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Sélectionner tout - Visualiser dans une fenêtre à part

Dim v_pk_secact As String

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim v_pk_secact As Long

la valeur est un ID avec auto-incrément géré par access

[Ric500]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ( ) , Du coup tu dois convertir:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim v_pk_secact As Long
 
    v_pk_secact = Clng(fk_secact_code.Column(1))

[Ric500]

D'ailleurs, je pense que tu devrais revoir tes affectations:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim v_coupe_departament As Long
v_coupe_departement = Left(Forms!f_societe.cp.Value, 2)

La fonction Left renvoie du string...

[gudule1er]

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

[gudule1er]

résulta dans mon formulaire



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 :

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

[Ric500]

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

[gudule1er]

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 :

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

[Ric500]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
leLibelle=DLookUp("libelle","t_ref_secssact","pk_secact_code=" & v_pk_secact)

[tee_grandbois]

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)



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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Set req_liste_secssact = req.OpenRecordset("SELECT libelle, pk_secssact_code  FROM t_ref_secssact WHERE pk_secact_code=" & v_pk_secact, dbOpenDynaset)

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

[gudule1er]

alors j'ai essayé ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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