Private Sub Bouton_suppression_PJ_Click()
Dim Rep as long
Rep = Msgbox(Prompt:="Etes vous sur de vouloir supprimer la PJ", Title:="Confirmation", Buttons:=vbyesno)
if rep = vbyes then
DoCmd.RunSQL "delete from [GA_PIECEJOINTE_D] where [ID]=IDPJ"
Me.requery
end if
End Sub