Discussion :

[PipoWIL]

Bonjour,

Voici un fomulaire basé sur une table simple.

Je souhaite que lorsque l'utilisateur clique une case TRA, toutes les case TRA pour tous les Jobs de ce même travail soient mises à jour.

En d'autres mots, dès que l'utilisateur confirme le job 8 de 'Salon', immédiatement le job 11 de Salon est lui-aussi confirmé à l'écran.

Comment puis-je faire ?

Merci

[PipoWIL]

Entretemps, j'ai trouvé ma solution.

Sur l'évènement click de TRA j'avais écrit ceci :

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
Private Sub TRA_Click()
'When user clicks on 1 check box, all the check boxes of that same TRAVAIL are updated accordingly
Dim strTravail As String
Dim strQuery As String
 
strTravail = Me.Travail
 
'Mettre à jour la table
strQuery = "UPDATE T_Travail "
strQuery = strQuery & "SET T_Travail.TRA = True "
strQuery = strQuery & "WHERE (((T_Travail.Travail)='" & strTravail & "'));"
CurrentDb.Execute strQuery
 
'Mettre à jour le formulaire
Me.Refresh
 
End Sub

Ce code me donnait un message d'erreur de conflit d'écriture parce que 'un autre utilisateur' modifiait les mêmes données.

En fait, avec ce code je mettais à jour par le formulaire et par la requête SQL, soit par deux méthodes. C'est pour cela que Access considérait 2 utilisateurs concurents.
Pour supprimer ce conflit, je confirme l'écriture dans le formulaire en rajoutant un Me.Refresh avant d'exécuter le statement SQL. Cela donne ceci :

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
Private Sub TRA_Click()
'When user clicks on 1 check box, all the check boxes of that same TRAVAIL are updated accordingly
Dim strTravail As String
Dim strQuery As String
 
strTravail = Me.Travail
 
'Mettre à jour le formulaire pour la ligne cochée
Me.Refresh
 
'Mettre à jour la table
strQuery = "UPDATE T_Travail "
strQuery = strQuery & "SET T_Travail.TRA = True "
strQuery = strQuery & "WHERE (((T_Travail.Travail)='" & strTravail & "'));"
CurrentDb.Execute strQuery
 
'De nouveau mettre à jour le formulaire pour toutes les lignes
Me.Refresh
 
End Sub