Discussion :

[Stoneblur]

Bonjour,

Je vais essayer d'être le plus clair possible. Hum

J'ai une table qui se remplit via une formulaire.
Je veux créer un autre formulaire qui me permet de rentrer des données supplémentaires dans cette même table et je voudrais disposer d'un menu déroulant pour sélectionner le bon numéro d'enregistrement.

Ce qu'il se passe et que je n'arrive pas à changer :
Après création de mon formulaire d'ajout, je peux aller jusque l'enregistrement à modifier seulement en scrollant avec la souris.
Quand je convertis le champ texte en "zone de liste déroulante", les données des autres champs ne sont plus solidaires de ma sélection.

En 2 mots, je n'arrive pas à utiliser un menu déroulant pour sélectionner l'enregistrement que je veux modifier.

Merci de votre patience.

[ypicot]

Le menu déroulant doit utiliser un contrôle indépendant.
Tu peux éventuellement le réaliser avec l'assistant de liste déroulante (au moment où l'assistant se lance, c'est le 3ème choix). Il va générer pour toi un peu de code VBA.

Yvan

[Stoneblur]

Effectivement, j'ai utilisé un contrôle indépendant et ça marche ...

voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Liste9_AfterUpdate()
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[NumeroBRT] = " & Str(Me![Liste9])
    Me.Bookmark = rs.Bookmark
 
End Sub

le pied serait qu'il change de champ dès la sélection terminée parce que access2003 permet encore de scroller et de faire défiler les différentes entrées de la base sans que mon choix dans le champ indépendant change. Ce qui pourrait provoquer une erreur d'encodage.

C'est amusant le vb mais compliqué

Merci à toi en tous les cas.

[micniv]

Bonjour,
pour garder à jour ton control indépendant, ajoute la ligne suivante à l'évt Sur activtion du form :

Code :

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

1
2
3
Private Sub Form_current()
Me.Liste9= Nz(Me.NumeroBRT)
End Sub

Ceci suppose que tu as un controle NumeroBRT qui as pour donnée source NumeroBRT.

[Stoneblur]

yesssss

merci ça marche comme je le voulais

[micniv]

Stoneblur,

Merci de cliquer Resolu pour contribuer à la gestion du forum

[Stoneblur]

C'est fait.

Et encore sorry pour le code en clair dans le forum.

Merci à l'admin