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