Discussion :

[jmde]

Bonjour,

Sur un formulaire principal frm-1 j’ai :

Un sous-formulaire sfm-1 en mode "Formulaires continus" qui contient plusieurs case à cocher et

Un autre sous-formulaire sfm-2 en Mode "Feuille de données".

A partir du sous-formulaire sfm-1, lorsque je coche une case à cocher je rajoute un enregistrement qui apparaît dans le sous-formulaire sfm-2.

Maintenant je voudrais que lorsque je supprime un enregistrement à partir du sous-formulaire sfm-2 la case à cocher correspondante se décoche.

Est-ce que vous pouvez m’aider pour réaliser cela.

Merci pour votre aide ;

Salutations.

[ClaudeLELOUP]

Bonjour JMDE,

As-tu un critère pour retrouver l'enregistrement de sfm-1 concerné par la suppression de l'enregistrement de sfm-2 ?

[jmde]

Bonjour ClaudeLELOUP,

Je pense que le code qui me permet de créer l’enregistrement à partir de la case à cocher peut t’aider pour mon problème.

Le libellé d’une des cases est de ce type :
05 – Tennis de table.

Les deux premiers chiffres ou lettres correspondent à la valeur du champ :
"Code" , le reste à la valeur du champ "Discipline" de la table

Les Etiquettes sont nommées par le non de la case suivit de la constante SufxLb
Exemple Cocher180_Étiquette

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
32
33
34
35
Sub MjaActivite()
 
'--- vérifie si le contrôle actif est bien un bouton
     If TypeOf ctl Is CheckBox Then
            Set MonLabel = Me.Controls(ctl.Name & SufxLbl)
            C_lbl = MonLabel.Caption
        If ctl.Value = -1 Then
            MonLabel.ForeColor = RGB(255, 0, 0)
        Else
            MonLabel.ForeColor = 14191499
        End If
      End If
 
'---Ouverture de la base et des tables
    Set db = CurrentDb
 
    rq = "SELECT [tbl Adhérents].* FROM [tbl Adhérents]"             
     Set rs = db.OpenRecordset(rq, dbOpenDynaset)
 
    rq1 = "SELECT [tbl Activités].* FROM [tbl Activités]" 
    Set rs1 = db.OpenRecordset(rq1, dbOpenDynaset)
 
'---Teste si la zone est décocher
    If ctl.Value = -1 Then
 
'--- Boite de dialogue par Api
     Reponse = MessageBox(Me.hwnd, "Vous allez ajouter l'enregistrement. " 
 
'--- Ajouter l'enregistrement
     rs1.AddNew
      rs1("RéfAdhérent") = Me.txtRéfAdhérent
      rs1("Code") = Left(CStr(C_lbl), 2)
      rs1("Discipline") = Mid(CStr(C_lbl), 6)
     rs1.Update
 End If

Salutations.

[ClaudeLELOUP]

Cela ne m'aide pas vraiment.
Je m'attendais à ce que tu me dises avec des mots la recette pour :
- lorsqu'on se trouve dans le formulaire sfm-2
- comment retrouver le nom du contrôle à modifier dans sfm-1

L'idée serait alors
- un bouton dans sfm-2 pour provoquer la suppression du record
- avant de supprimer dans sfm-2,
- aller modifier dans ce qu'il faut dans sfm-1
- revenir supprimer physiquement l'enregistrement dans sfm-2

[jmde]

Re,

Mon raisonnement est le suivant :

Je suis sur l’enregistrement à annuler du sous-formulaire sfm-1 en « Mode feuille de donnée »

Par la touche suppr du clavier (ou par un bouton dans frm-1) je récupère la valeur du champ « code » ( dans l’exemple 05) à supprimer.

Puis je cherche sur le sfm-2 le nom de l’Etiquette (dans l’exemple 05 – Tennis de table.) de la case à cocher, j’extrait les deux premiers chiffres que je compare à « Code » et je met à True ou False la case à cocher correspondant à l’Etiquette.

Est-ce faisable et comment ?

Salutations

[jmde]

Re,

Une petite erreur,

Lire
Je suis sur l’enregistrement à annuler du sous-formulaire sfm-2
Et
Puis je cherche sur le sfm-1

Toutes mes escuses.

Salutations

[ClaudeLELOUP]

Peut-être un début de réponse avec ceci :
Un bouton sur frm-1.
Dans l'exemple fille1 = nom du sous-form sfm-1.
Je parviens à cocher la case.
Mais j'ignore la syntaxe pour supprimer un enregistrement dans un sous-formulaire.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Commande0_Click()
Dim NomCaseACocherSfm2 As String
Dim ctl As Control
'Recherche du code
NomCaseACocherSfm2 = Me.Fille1.Form.code
'Faire ici les manipulations dans NomCaseACocherSfm2
    'pour construire le nom du champ dans sfm-2
'modifier la case à cocher
Me.Fille2.Form(NomCaseACocherSfm2) = -1
 
End Sub

nb j'ai vu ton poste précédent trop tard. Cela ne change rien au raisonnement

[jmde]

Bonsoir ClaudeLELOUP,

Merci pour ta réponse

J'ai résolu mon problème en mettant ce code sur mon sfm-2, je n'ai pas utilisé de bouton pour actionner le code, mais je selectionne la ligne à supprimer, je fais suppr avec la touche du clavier, et cela marche correctement.

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
Private Sub Form_Delete(Cancel As Integer)
 
'--- Boucle sur les controles du sous formulaire
     For Each ctl In Forms![frm Mise à jour des activités]![sfm Mise à jour des activités b].Form!.Controls
 
'--- verifie si le contrôle actif est bien un bouton
     If TypeOf ctl Is CheckBox Then
            Set MonLabel = Forms![frm Mise à jour des activités]![sfm Mise à jour des activités b].Form!.Controls(ctl.Name & SufxLbl)
            C_lbl = MonLabel.Caption
 
        If Me.cmbActivités.Value = Mid(CStr(C_lbl), 6) Then
           ctl.Value = 0
           MonLabel.ForeColor = 14191499
        End If
     End If
Next
 
End Sub

Salutations.

[ClaudeLELOUP]

Merci d'avoir renvoyé l'ascenseur.
Je retiens l'idée de ta solution très élégante
Bonne journée