Discussion :

[Ugolau]

Bonjour,

Débutant plus ou moins avec Access, j'ai essayé de me débrouiller jusqu'à maintenant mais là, je bloque.
Mon problème est le suivant :

J'ai 2 tables :
une table contact (T_Contact)
une table Organisme (T_Organisme). Un organisme peut être une association, une entreprise, une administration, ...

Comme un contact peut être dans plusieurs organismes et dans un organisme, on peut avoir plusieurs contacts, j'ai créé une table T_ContactOrganisme avec les clés primaires de T_Contact et T_organisme.

J'ai créé un formulaire F_contact dans lequel on renseigne les données relatives aux contacts.
Il y a un champ "Fait-il partie d'un organisme ?" avec une case à cocher.
Lorsque la case est cochée, cela active un sous-formulaire qui permet de renseigner le ou les organismes en question, par le biais d'une liste déroulante basée sur T_Organisme, pour remplir T_ContactOrganisme.
Comme il peut y avoir plusieurs organismes, le sous-formulaire est un formulaire continu, et en face de chaque enregistrement, il y a un bouton de suppression de l'enregistrement.
Tout ça marche très bien.

Mon blocage :
J'aimerais que si on décoche la case "Fait-il partie d'un organisme ?", tous les enregistrements du sous-formulaire soient supprimés (sinon, ça n'a pas de sens).
Donc, il faudrait pouvoir supprimer tous les enregistrements de la table T_ContactOrganisme pour lesquels IdContact est celui du formulaire ou pour l'enregistrement en cours.
Est-ce qu'il faut passer par une requête suppression ? par du code vba ? J'ai essayé de partir du code des boutons de suppression mais ça me dépasse un peu.

Peut-être que cette question a été abordée dans une autre discussion mais je n'ai pas réussi à trouver.
Est-ce que quelqu'un peut m'aider ?

Je vous remercie d'avance.

[f-leb]

bonsoir,

essaie avec le code suivant sur l'évènement " sur clic" du bouton :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub boutonSupprimer_Click()
If MsgBox("Confirmer la suppression", vbYesNo) = vbNo Then Exit Sub
 
CurrentDb.Execute "DELETE * FROM " & NomDuSousForm.Form.RecordSource & " WHERE IDContact = " & IDContact
 
' mettre à jour le sous-formulaire
NomDuSousForm.Form.Requery
 
End Sub

NomDuSousForm doit être remplacé par le nom du sous-formulaire

[Ugolau]

Merci f-leb

Alors, j'ai adapté le code que tu m'as conseillé par rapport à ma case à cocher :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Rattachement_Click()
Me.SF_PersonneOrganisme.Enabled = Me.Rattachement
 
If Me.Rattachement = False Then
If MsgBox("Confirmer la suppression des organismes", vbYesNo) = vbNo Then
Me.Rattachement = True
Exit Sub
Else
CurrentDb.Execute "DELETE * FROM " & SF_PersonneOrganisme.Form.RecordSource & " WHERE Personne = " & IdPersonne
 
SF_PersonneOrganisme.Form.Requery

où :
Rattachement est ma case à cocher
Et j'ai rajouté une ligne pour que si je réponds NON à la confirmation de suppression, la case reste cochée.

Et ça marche !!!

Merci beaucoup et bon week-end