[Toutes versions] Suppression Pièces Jointes

[madjon6]

Bonjour,

Dans un formulaire ou je gère des pièces jointes, on a la possibilité de supprimer des PJ ou d'en ajouter, je souhaite que le bouton suppression n 'apparaisse que si la ligne n'est pas vide et donc l'ID de la PJ est alimenté.

Voici le code que je souhaite compléter :

Code :

1
2
3
4
Private Sub Bouton_suppression_PJ_Click()
DoCmd.RunSQL "delete from [GA_PIECEJOINTE_D] where [ID]=IDPJ"
 
End Sub

Merci pour votre aide

[vodiem]

salut madjon6,

Code :

1
2
3
4
5
6
7
Private Sub Form_Current()
Bouton_suppression_PJ.Visible = Not (IsEmpty(IDPJ) Or IsNull(IDPJ))
End Sub
 
Private Sub IDPJ_AfterUpdate()
Bouton_suppression_PJ.Visible = Not (IsEmpty(IDPJ) Or IsNull(IDPJ))
End Sub

Code :

1
2
3
Private Sub Bouton_suppression_PJ_Click()
DoCmd.RunSQL "delete from [GA_PIECEJOINTE_D] where [ID]=" & IDPJ
End Sub

[madjon6]

Salut Vodiem,

Merci pour ton aide mais ca n'a pas l'air de bien fonctionner, en plus que je supprime une pj qui est 2eme dans la liste ben cela supprime la premiere , et le bouton supprimer apparait même si la ligne est vide et je souhaite également qu'en cas d'appui pas erreur sur le bouton de suppression que cela ne renvoie pas un message d'erreur ce qui est le cas actuellement.

[vodiem]

pourrais tu fournir une p'tite db centré sur ton pb cela faciliterait la compréhension de ton contexte et de sa solution.
pour annuler les messages d'erreur c'est l'instruction:

Code :

On Resume Next

cela dit n'est pas recommander de passer à la trappe les erreurs et il est normalement possible de les éviter une fois le(s) pb identifié(s).

[madjon6]

Bonjour,

Voici le formulaire qui nécessite l'ajout ou la supression de pièces jointe, en sachant que là au niveau du code j'ai laissé tout ce que j'ai testé.

Merci pour votre aide

[vodiem]

ha, ha, ha...
monsieur veux faire le malin... ^^
il m'est effectivement furtivement passé à l'esprit au début que tu pouvais être en visu en formulaire continu.

j'ai fait plusieurs modifs:
> formulaire/donnée/suppression autorisé: oui
> formulaire/donnée/type de recordset: Feuille rép.dyn.(MAJ globale)
> nouveau contrôle: zone de texte 'Texte32' lié à IDPJ mais invisible avec la marge supérieur à 1 et mis par dessus l'image de suppression, reprenant l'événement clic de ce dernier. (il faut que ce soit un champ de l'enregistrement pour activer l'enregistrement sinon le bouton n'est pas lié à l'enregistrement d'où ton pb)
> modification du code de suppression :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Texte32_Click()
If IsNull(IDPJ) Then DoCmd.RunCommand acCmdSelectRecord: Exit Sub
Dim Rep As Long
DoCmd.SetWarnings False
 
Rep = MsgBox(Prompt:="Etes vous sur de vouloir supprimer la pièce jointe", Title:="Confirmation", Buttons:=vbYesNo)
If Rep = vbYes Then
    MsgBox " " & IDPJ
    DoCmd.RunCommand acCmdDeleteRecord
End If
DoCmd.RunCommand acCmdSelectRecord
End Sub

il n'est pas possible de faire disparaitre le bouton que sur un enregistrement il est unique même si visuellement il est dupliqué et il n'est pas lié à un enregistrement.
cette solution n'est pas idéale mais est simple et fonctionnelle.

mais si tu veux faire ca autrement tu peux te baser sur la contribution ici pour avoir un bouton lié à l'enregistrement et lui affecter le code approprié.

[Kenny66]

Bonjour Vodiem,

Pourquoi est ce que j'un code erreur 3197. le message dit qu'on plusieurs à vouloir modifier la base de données.

Merci pour ton aide

[vodiem]

salut Kenny66 et bienvenu,

Envoyé par Kenny66

Pourquoi est ce que j'un code erreur 3197. le message dit qu'on plusieurs à vouloir modifier la base de données.

il faut ouvrir une nouvelle discussion pour cela.
si tu n'as personne d'autre dessus une fois fermé la db essaie en supprimant le .ldb ou .laccdb associé au nom de ta db (s'il existe). sinon il peut s'agir d'un pb de codage: une nouvelle discussion s'impose.