Discussion :

[erox44]

Salut ,
alors voila mes question j'espere que vous repondrez

- comment faire pour utiliser des donées d'une zone d'affichage( avec requete )?
-> en fait dans une liste je recupere les infos de ma BDD et je souhaiterais que lorsque le selectionne une ligne et que je clique sur un bouton ca me supprime cette ligne dans la base.


-Comment recuperer, a partir d'une liste deroulante contenant un nom et un prenom, le code correspondant?

[bonilla]

Dans création de formulaire ,quand tu fais créer un bouton de commande ,t'as dans la liste des choix , un bouton : Supprimer un enregistrement .

Ce bouton doit etre placé dans un formulaire.

[Mig21]

Bonjour,

S'il s'agit bien d'une zone de liste à choix unique, tu ajoutes dans la requete de remplissage de la liste, la clef de la table en indiquant dans la propriété largeur, 0 cm pour ne pas l'afficher.

Pour récupérer les valeurs de la ligne selectionné, il faut utiliser la propriété column(numero de colonne)
ex : liste = code; nom; prénom

obtenir le code => MaListe.Column(0)
obtenir le nom => MaListe.Column(1)
obtenir le prenom => MaListe.Column(2)

Esperant avoir répondu.

[erox44]

merci de vos reponses

[erox44]

Salut c'est encore moi , alors j'ai fait le code pour cette fameuse suppression et il m'indique l'erreur suivante :

VB:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Commande36_Click()
Dim DB As Database
Dim RS As DAO.Recordset
Set DB = CurrentDb()
Set RS = DB.OpenRecordset("FOURNISSEUR")
 
BD.Execute = "delete from FOURNISSEUR where CodeFrs=" & suppr_frs.Column(0)
MsgBox "Suppression effectuée", vbInformation
 
suppr_frs.Requery
 
End Sub

Erreur : "erreur d'execution '424'
objet requis"
cette errreur fait reference a la ligne de la requete SQL

Pouvez-vous m'aider ?

[Mig21]

Cela ne viens pas de ton suppr_frs.Column(0) puisque si je remplace le db.execute que je ne connais pas par un docmd.runsql que je connais mieux, ca marche.

N'oublie pas de verifier qu'une ligne est bien selectionnée avant de lancer une suppression (avec MaListe.ListIndex>-1)