[Toutes versions] Pb Sur Suppression enregistrement courant [Résolu]

[Aladin_23]

Bonjour le forum

J' ai construit un code de suppression de donnée en fonction de l' utilisateur.
Le formulaire remonte bien toutes les données de l' utilisateur connecté, mais lorsque je demande la
suppréssion de l' enregistrement courant ce sont toutes les donnée de l' utilisateur passé dans la variable strUser qui sont supprimé.
Voici mon code

Code :

1
2
3
4
5
6
7
8
Dim Rep As Integer
 Rep = MsgBox("Souhaitez-vous supprimer l'enregistrement ?", vbYesNo)
 
If (Rep = vbYes) Then
      DoCmd.RunCommand acCmdSelectRecord
      DoCmd.RunSQL "DELETE  FROM tblPostIt WHERE LoginID = '" & strUser & "'"
      DoCmd.Close
End If

Comment dois je faire afin que ce soit l' enregistrement courant qui soit supprimé ?

Merci d' avance pour toute aide
Aladin

[loufab]

Bonjour,

Tu sélectionnes l'enregistrement courant, ensuite tu lances une requete de suppression sur tous les enregistrements lié à strUser et tu ferme le formulaire courant.

Tu mélanges 2 techniques : Sélection + suppression et Suppression par requête.

Pour la première technique :
après sélection :

Code :

docmd.RunCommand acCmdDeleteRecord

et pas de runsql

La deuxième :
pas de runcommand mais simplement

Code :

DoCmd.RunSQL "DELETE  FROM tblPostIt WHERE ID = " & me.id

ou id est le contrôle qui contient le N° unique de la fiche, en espérant que tu ais penser à mettre une clef unique (numéroAuto).

la troisième :

Code :

me.recordset.delete

Dans tous les cas n'importe quel utilisateur pourra supprimer cette fiche.
Il faut tester si c'est bien cet utilisateur qui est propriétaire de la fiche (si c'est cela que tu veux faire)

Code :

if not me.LoginID = strUser then exit sub

ou

Code :

cancel = true

tout dépend de ton événement.

Cordialement,

[Aladin_23]

Bonjour loufab, le forum
Merci loufab, avec tes conseils j' ai retraiallé le code et pu faire la suppression de l' enregistrement en faisant le test utilisateur.
Aladin