Discussion :

[Cinesra]

Bonjour tous!

Petit problème suite à la suppression d'un record/enregistrement:

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

Dans le cas où il y a une figure d'insérer dans le sous-formulaire, aucun problème pour supprimer le record.
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

[Cinesra]

Je n'avais pas enregistrer le record avant de le supprimer...

Suffisait de mettre:

Code :

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

1
2
3
Private Sub BtnSupprimer_Click()
DoCmd.RunCommand acCmdSaveRecord
'puis la suite du code...