Discussion :

[Bourni]

Bonjour à tous,

Voici mon problème, j'ai un formulaire principal (FDossiers)et un
sous-formulaire (FClients). Dans mon formulaire principal (FDossiers) j'ai un
champs "Fermeture" qui est un chamsp de type Oui/Non et qui par défaut est à
Non, lorsque je le mets à Oui je voudrais que dans mon sous-formulaire
(FClients) mon champs "Actif" (qui est de type Oui/Non aussi) se met à
"Non", mon problème est que dans mon sous-formulaire (FClients) lorsque j'ai
plusieurs "Clients" il fait la mise à jour seulement sur mon premier client !


Voici la méthode que j'ai utilisé :

Private Sub Fermeture_AfterUpdate()
Dim Rep As Integer

Rep = MsgBox("ATTENTION! Désirez-vous vraiment mettre l'entreprise en
FERMETURE ? Si oui, vous modifierez les données de tous les contacts de
l'entreprise !", vbQuestion + vbYesNo)
If Rep <> 6 Then SendKeys "{Esc}": Exit Sub
End If

If ([Fermeture]) = -1 Then
Me!FDossiersClient![Actif] = 0
End If
End sub

Merci à l'avance pour la réponse !

[Heureux-oli]

Tu dois utiliser un update query avec les critères de ton formulaire principal et mettre à jour le champ oui/non de tous les enregistrements qui correspondent aux critères.

[Bourni]

Tu dois utiliser un update query avec les critères de ton formulaire principal et mettre à jour le champ oui/non de tous les enregistrements qui correspondent aux critères.

Le problème est que je ne veux pas que se soit tous mes dossiers, mais seulement les clients du dossier du formulaire principal.

Merci !

[Heureux-oli]

C'est le cas, seuls les enregistrements concernés seront mis à jour.

Si tu utilises le critère de ton formulaire principal sur le query, tu ne sortira que les enregistrement qui sont sur ton sous-formulaire.

Si tu ne mets pas de critères, alors tu les modifie tous.

[Bourni]

C'est le cas, seuls les enregistrements concernés seront mis à jour.

Si tu utilises le critère de ton formulaire principal sur le query, tu ne sortira que les enregistrement qui sont sur ton sous-formulaire.

Si tu ne mets pas de critères, alors tu les modifie tous.

J'ai de la difficulté, est-ce que si j'utilise :
MonSQL=UPDATE Dossiers LEFT JOIN DossiersClient ON Dossiers.[N° dossier] = DossiersClient.[N° dossier] SET DossiersClient.[Actif] = No
WHERE (((Dossiers.[N° dossier])=ici je met quoi?));

Je suis désolée mais je crois que j'ai de la difficulté à comprendre ta solution, je débute en VBA

Car la solution je l'ai essayé et comme tu m'as mentionné si je ne met pas de critère tous mes champs "Actif" se modifie c'est le critère pour sélectionner l'enregistrement en cours que j'ai de la difficutlé. Est-ce que tu peux me dire si c'est OK :

Private Sub Fermeture_AfterUpdate()
Dim REP As Integer
Dim MonSQL As String
Dim MaBase As Database
'Dim MonDossier As Recordset

If ([Fermeture]) = -1 Then
REP = MsgBox("ATTENTION! Désirez-vous vraiment mettre l'entreprise en FERMETURE ? Si oui, vous modifierez les données de tous les contacts de l'entreprise !", vbQuestion + vbYesNo)
If REP <> 6 Then SendKeys "{Esc}": Exit Sub
End If


If ([Fermeture]) = -1 Then

MonSQL = "UPDATE Dossiers LEFT JOIN DossiersClient ON Dossiers.[N° dossier] = DossiersClient.[N° dossier] SET DossiersClient.[Actif] = No" _
& "WHERE (((Dossiers.[N° dossier])=ici je met quoi?));

Set MaBase = CurrentDb
MaBase.Execute MonSQL
MaBase.Close
End If

End Sub

Merci encore, je suis en apprentissage et c'est pas toujours facile !