Discussion :

[Jacques-Henri]

Bonjour,
A partir d'un bouton de commande placé sur un de mes formulaires, je désire récupérer l'enregistrement sélectionné dans ma liste déroulante et le placer dans ma table adéquate afin de mettre à jour cet enregistrement.
J'ai consulté le forum et je suis tombé sur le poste suivant :
Sur IHM - message de regliss76 le 24/09/08 à 15H08 "bouton et liste déroulante" .Je me suis gratté la tête en essayant d'ajouter "update" ou encore "insert into" mais j'aboutis à rien de cohérent.Quelqu'un pourrait-il m'aider pour compléter le code inséré dans le message cité.

Merci pour votre éclairage.

[Dolphy35]

Salut,

le code cité par DOmi2 permet de récupérer la valeur de la colonne 2 de ta liste :

Code :

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

1
2
3
4
5
Private Sub bouton_Click()
Dim Entree As String
Entree = Me.cmbEntrees.Column(1)
MsgBox Entree
End Sub

ensuite il te faut réaliser une requête UPDATE afin de mettre l'enregistrement à jour, sachant que ta requête doit être filtrée par la valeur de ta liste afin de mettre à jour le bon enregistrement.


Dolphy

[Jacques-Henri]

Bien grand merci Dolphy35 pour ton aide mais en fait sur mon form j'ai déjà placé un bouton de commande qui exécute une requête mise à jour et elle fonctionne très bien : mon enregistrement est bien mis à jour dans la table.Mais je trouve cela un peu lourd et c'est donc ce qui m'a amené à poser ma question.
Je souhaiterais plutôt réaliser cette mise à jour à l'aide de la liste déroulante. Quand je sélectionne ma ligne (et j'ai bien interprété le code proposé par DOMI2) avec la colonne choisie, j'aimerai que l'enregistrement de ma table soit automatiquement mise à jour. Je travaille avec la version ACCESS 2000.
Merci à quiconque pouvant apporter sa lumière.

[francishop]

Bonsoir,

Si tes champs de formulaires correspondent à ton besoin de mise à jour, on peut envisager :

Code :

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

1
2
3
Private Sub cbo_Client_BeforeUpdate(Cancel As Integer)
    Me.txt_AmetrreAjour = Me.cbo_Client.Column(1)
End Sub

Voir :

Code :

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

1
2
3
Private Sub txt_AmetrreAjour_DblClick(Cancel As Integer)
    Me.txt_AmetrreAjour = Me.cbo_Client.Column(1)
End Sub

Si ce n'est pas le cas et qu'il faille le faire directement dans la table, il faut avouer, à part la requête préconisée par Dolphy35?

Cordialement.

[Jacques-Henri]

Bonsoir également,
Je viens d'essayer juste à l'instant et malheureursement il n'y a pas d'effet positif. L'enregistrement de la colonne 1 n'est pas mis à jour . Je vais donc essayer de mettre à profit le conseil de Dolphy35.
Merci pour avoir passé quelques minutes sur mon petit problème Francishop