Discussion :

[Pithonnette]

Bonjour,

Alors, j'ai fouillé le forum tout l'aprèm et tout le monde fait des choses complexes alors que moi, je cherche un truc simple à faire je pense et j'y arrive pas.

J'ai une table "MaTable" avec disons trois champs [Chp1], [Chp2] et [Chp3]. J'ai fait un formulaire pour la création des données, qui remplissent mes champs.

Et j'ai un formulaire qui permet de chercher un enregistrement par le [Chp1] et visualiser les autres champs, et je veux aussi pouvoir supprimer des lignes ou enregistrements de ma table.
Après avoir dans mon formulaire la sélection d'un enregistrement, je voudrais ajouter un bouton qui permette de supprimer ce dernier par un des champs dont la valeur se trouve dans une zone de texte (Txt1).

Il faut que je passe par une requête SQL du type "DELETE * FROM MaTable WHERE Chp1 = Txt1.Value ;
Mais c'est le reste qui me pose problème, après le nombre de poste que j'ai vu, je suis perdue !!!

Voilà, j'espère avoir été assez claire.
Merci d'avance

[Siguillaume]

Bonsoir,
tu devras exécuter ta requête dans un code VBA. Celui associé au click du bouton.

[Pithonnette]

Oui, c'est en effet ce que je voulais faire, mais je ne comprend pas ce qu'il faut mettre dans le VBA pour la suppression. Faut-il que je passe par un recordset ?
J'ai essayé de créer le bouton "supprimer un enregistrement" avec l'assistant, mais je n'arrive pas à modifier le code comme je veux.
J'ai trouvé ce code :

Code :

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

1
2
3
4
5
6
7
8
    * Dim SQL, Connect
    * SET Connect = Server.CreateObject("ADODB.Connection")
    * Connect.OPEN "DBQ=" & Server.MapPath("/basededonner.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
    *
    * 'Chaîne de connexion à la base
    * SQL= "DELETE FROM Table where ID=1;"
    * 'On va supprimer l'élément ayant le ID 1
    * Connect.Execute(SQL)

Est ce ça que je dois utiliser ?

Merci
Bonne journée

[Pithonnette]

Hop trouvé ... C'est fou ce que la nuit porte conseil et éclaire les esprits !!

J'ai fait ça tout bêtement :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Commande27_Click()
 
DoCmd.RunSQL "DELETE * FROM Photos WHERE Nom_Photo = """ & Txt_Nom.Value & """ ;"
 
Me.Refresh
 
 
End Sub

Par contre ça me met un #Supprimé dans ma table. Mais si je la ferme et la réouvre, il disparait !!!
Il me semble avoir vu qqch là dessus sur le forum ... vais regarder ... et complèterait mon post si je trouve !!

[_MattU_]

Il te suffit d'utiliser une macro d'actualisation pour enlever le #supprimé

[Pithonnette]

Ok, merci beaucoup ...