Bonjour,
J'aimerais pouvoir en cliquant sur le bouton supprimer (qui permet la suppression de l'enregistrement courant) supprimer aussi les enregistrement dans les sous-formulaires!
En effet quand je supprime une inscription a une formation et que j'ai renseigne dans le sous-formulaire la session et les options choisies elle disparaissent bien a l'ecran mais des que je choisis la meme formation les enregistrement lies apparaissent a nouveau
n'y a t il pas un moyen de faire une suppression en cascade?
j'ai essaye de faire une routine qui supprime l'enregistrement que j'execute dans le code de suppression
est-ce qu'il n'y a pas plus simple?
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
25
26
27
28
29
30
31 Public Sub suppression_cascade(ByVal id As Long, ByVal ftion As String, ByVal sess As Long) Dim db As Database Dim rssupp_app As Recordset Dim rssupp_opt As Recordset Set db = CurrentDb Set rssupp_app = db.OpenRecordset("appartient") Set rssupp_opt = db.OpenRecordset("choisit") Do Until rssupp_app.EOF If ((rssupp_app![id_stag] = id) And (rssupp_app![id_session] = sess) And (rssupp_app![type] = ftion)) Then rssupp_app.Delete End If rssupp_app.MoveNext Loop End Sub Do Until rssupp_opt.EOF If ((rssupp_opt![id_stag] = id) And (rssupp_opt![id_session] = sess) And (rssupp_opt![type] = ftion)) Then rssupp_opt.Delete End If rssupp_opt.MoveNext Loop End Sub
Partager