Formulaire continu : alimentation champ indépendant

[lerico]

Bonjour à tous,
J'ai un formulaire continu qui me permet de mettre à jour les données d'une table.
Sur ce formulaire, dans la partie détail, j'ai un ID, un champ indépendant et un nombre (la donnée à modifier).
Mon problème est que l'ID correspond à une autre table qui contient son libellé. Et je voudrais afficher ce libellé dans le champ indépendant.
Quand je rajoute cette table dans la source du formulaire par le lien de l'ID, je ne peux plus saisir ou modifier les données.
J'ai essayé de mettre un recordset dans l'ouverture du formulaire mais il met uniquement le libellé du première ID trouvé, sur chaque ligne de détail.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Form_Current()
Dim oSql As DAO.Recordset
Dim IDR, LIB As Variant
Dim Ctl As Control
 
For Each Ctl In Me.Controls
    IDR = Me.ID.Value
 
    Set oSql = CurrentDb.OpenRecordset("SELECT LIBELLE FROM Types WHERE CP_ID=" & IDR & "")
 
    Set LIB = oSql.Fields("LIBELLE")
 
    Me.LIB = LIB
Next Ctl
 
End Sub

En espérant être clair,

Merci pour votre aide,

LeRico

[=JBO=]

Bonjour,

Envoyé par lerico

J'ai essayé de mettre un recordset dans l'ouverture du formulaire mais il met uniquement le libellé du première ID trouvé, sur chaque ligne de détail.
...
En espérant être clair

Tu fais les frais d'un défaut de conception d'Access. Un contrôle indépendant affiché dans un formulaire continu ou une feuille de données ne peut afficher que "LA MEME VALEUR" qui est visuellement reproduite à chaque ligne.

Une solution facile est d'utiliser un contrôle calculé, basé sur les champs de la ligne de données.

Dans ton cas, voici l'expression Access qui convient (pour un Access francisé) en supposant qu'il existe un contrôle nommé [IDR] dépendant du champ [IDR]:

Code expression :

=Rechdom("LIBELLE";"Types";"CP_ID=" & [IDR])

Cette expression doit être saisie dans la propriété [Source contrôle] du contrôle [LIB] qui devient ainsi un contrôle dépendant calculé (non modifiable).
_