Version imprimable
Salut ,
alors voila mes question j'espere que vous repondrez :D
- 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?
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.
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.
merci de vos reponses :)
Salut c'est encore moi , alors j'ai fait le code pour cette fameuse suppression et il m'indique l'erreur suivante :
VB:
Code:
2
3
4
5
6
7
8
9
10
11
12
Erreur : "erreur d'execution '424'
objet requis"
cette errreur fait reference a la ligne de la requete SQL
Pouvez-vous m'aider ?
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)
Salut,
tu déclares
et tu exécutesCode:Dim DB As Database
...Code:BD.Execute = "delete from FOURNISSEUR where CodeFrs=" & suppr_frs.Column(0)
Oui euh je vous ai mis une ancienne version du code; le version actuelle est en fait cell-ci:
Private Sub Commande36_Click()
Dim DB As Database
Dim RS As DAO.Recordset
Set DB = CurrentDb()
Set RS = DB.OpenRecordset("FOURNISSEUR")
DB.Execute = "delete from FOURNISSEUR where CodeFrs=" & suppr_frs.Column(0)
MsgBox "Suppression effectuée", vbInformation
suppr_frs.Requery
End Sub
Et l'erreur est maintenant:
"erreur de compilation"
"argument non facultatif"
et il me met en gras le ".execute="
Bonjour à tous, j'ai la même erreur, est-ce que quelqu'un à une idée?
Pour ma part, il se trouve que l'enregistrement que je voudrais pouvoir supprimer se trouve dans deux table et lorsqu'on le supprime, il devrai se supprimer que dans l'une des deux.. (je ne sais pas s'il y a beucoup de chose a changer, mais il ne me semble pas..)
Merci d'avance
Ok.. c'est a cause du = après le execute