Bonjour tous!
Petit problème suite à la suppression d'un record/enregistrement:
Dans le cas où il y a une figure d'insérer dans le sous-formulaire, aucun problème pour supprimer le record.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24 Private Sub BtnSupprimer_Click() If MsgBox("Etes-vous certain de vouloir supprimer cette illustration/ce fichier?", vbYesNo, "Supprimer une illustration/un fichier") = vbNo Then Cancel = True Else If Not IsNull(Me.Figure) Then 'il y a une figure insérée DoCmd.SetWarnings False Me.Image23.Picture = "" Kill CurrentProject.Path & Figure DoCmd.RunSQL "DELETE Illustrations.* FROM Illustrations WHERE ((Illustrations.[N° d'illustration])=" & Me.N° & ");" DoCmd.SetWarnings True Me.Requery Forms![LeToutEnUn]![Mes articles]![Illustrations1].Requery Forms![LeToutEnUn]![Mes articles]![Illustrations1].Form.Recordset.MoveFirst Else 'il n'y a pas de figure insérée DoCmd.SetWarnings False Me.Image23.Picture = "" DoCmd.RunSQL "DELETE Illustrations.* FROM Illustrations WHERE ((Illustrations.[N° d'illustration])=" & Me.N° & ");" DoCmd.SetWarnings True Me.Requery Forms![LeToutEnUn]![Mes articles]![Illustrations1].Requery Forms![LeToutEnUn]![Mes articles]![Illustrations1].Form.Recordset.MoveFirst End If End If End Sub
Par contre, quand je suis dans le cas "Else" (pas de figure insérée), l'enregistrement est effectivement supprimé mais j'ai le message d'erreur 3167 "L'enregistrement a été supprimé" et mon sous-formulaire n'est pas rafraichi (me.requery).
Merci d'avance pour vos idées
Partager