Discussion :

[PyMon]

Bonjour à tous!

J'ai un formulaire dans lequel je voudrais pouvoir effacer une ligne dans une table.

je voudrais avoir un exemple de code VBA que j'associerais à un bouton pour effacer la ligne que j'aurais choisi grace à une liste déroulante (la liste je l'ai crée.)

merci à tous

[Invité]

Bonjour

Il te suffit de faire une requête de suppression (DELETE), et de mettre dans la clause WHERE de celle-ci la donnée que tu as sélectionné dans ta lise.

Un petit article sur le SQL http://access.developpez.com/sql/

Attention : Assures-toi (sur une copie) que le critére de ta clause WHERE te donne bien un enregistrement unique, sinon tu auras la mauvaise surprise de voir plusieurs enregistrements disparaitrent (c'est pour cela qu'il faut faire des tests sur une copie )

Starec

[PyMon]

ca donne quoi ca en visual basic stp?

[Jean-Philippe André]

Bonjour,
tu trouveras ton bonheur dans la FAQ, notamment ici :
http://access.developpez.com/faq/?pa...es#SupprEnrDep

[PyMon]

dsl mais ca m'aide pas trop!!!

je vous explique:

j'ai un formulaire composé de 3 zones de texte et 1 liste déroulante.
dans ma liste déroulante, je choisis le nom d'un de mes agents.
lorsque j'ai choisit, les zones de texte se remplissent automatiquement (prénom, age, poste)

je voudrais donc lorsque j'ai choisit un agent pouvoir le supprimer de ma table à l'aide d'un bouton.

Voila, merci à tous!

[Jean-Philippe André]

Ca devrait t'aider pourtant : l'indication de Starec est la bonne piste à explorer dans ton cas.

pour lancer du SQL depuis le VBA, et notamment dans le cas d'une requête de type DELETE, tu peux utiliser

Code :

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

CurrentDb.Execute "marequetedelete"

[PyMon]

le probleme c'est que je voudrais effacer la ligne que l'ai choisi à l'aide de ma liste déroulante!

tu vois ce que je veux dire?

[Jean-Philippe André]

tout à fait, mais avec les informations dont je dispose, je ne peux écrire de requete SQL à ta place.
un exemple :

Code :

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

CurrentDb.Execute "DELETE * FROM MaTable WHERE MonChampClePrimaire=" & Me.MonControl

[Falcdyr]

Si tu choisis un agent c'est pas compliqué, tu fais:

Code :

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

CurrentDb.Execute "DELETE * from TaTable where NomAgent = ' " & Me.LeNomDeTonChampsListe & " ' "

Edit: Zut devancé

[PyMon]

ca me marque "type de données incompatible dans l'expression du critere"

[Jean-Philippe André]

Peux-tu êter un peu plus explicite stp ?
Quel est ton code utilisé ? As-tu adapté le code fourni pour ton propre code ?

[PyMon]

voici ce que j'ai mis:
CurrentDb.Execute "DELETE * from Partenaire where NumPart = ' " & Me.Partenaire & " ' "

donc ca ma mis "type de données incompatible dans l'expression du caractère

[Jean-Philippe André]

ton control Partenaire est-il bien renseigné ? vérifie que le control :
- est bien orthographié
- retourne une valeur non nulle

[PyMon]

je suis désolé mais je ne comprends pas trop ce que tu dis...je suis débutant sur Access lol

[Jean-Philippe André]

ton formulaire contient-il bien un control Partenaire ?
ton code est écrit dans l'évènement clic d'un bouton ?

[PyMon]

mon code est écrit dans l'évènement clic

et je ne sais pas si mon formulaire contient un control partenaire

[Jean-Philippe André]

d'accord, et dans quel control vas-tu chercher le NumAgent alors ?

[PyMon]

je comprends pas du tout cette histoire de control....

[Jean-Philippe André]

pardon,
un control est un élément d'interface d'un formulaire.
Dans "quoi" vas tu récupérer ton NumAgent ? Quel est le nom de l'élément ?

[PyMon]

Dans ma liste déroulante qui s'appelle "partenaire"