Discussion :

[totor92290]

Bonjour à tous,

J'ai in souci sur un formulaire contenant des cases à cochées.

je selectionne une ligne en cochant une case
A ce moment je demande la validation en ouvrant in nouveau formulaire.
Lorsque l'utilisateur clic sur KO, dans ce nouveau formulaire, je voudrais que la case cocher dans le formulaire precedent, se "décoche"
Or si je selectionne la première ligne du formulaire le code ci-dessous fonctionne
Mais lorsque je clic sur une ligne en dessous (pas la première), la case cochée ne se "décoche" pas!

Code :

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

1
2
3
4
5
6
7
Private Sub ConfirmReceivingKO_Click()
DoCmd.SetWarnings False
Forms!F001_General_Menu.ReceivedYesNo.Value = False
DoCmd.OpenQuery "Q002_Del_T0002_ToBeReceived_Confirmation_Print"
DoCmd.Close
DoCmd.SetWarnings True
End Sub

c'est quoi qui coince?

Merci

[bertiny]

Bonjour
Quelle est la structure de la table contenant la case à cocher?

[totor92290]

Bonjour Bertiny

Qu'entends-tu par structure?

ReceivedYesNo -> Yes/No
Fourn -> Short Text
Doc achat -> Short Text
ect...

[bertiny]

Essaie ceci

Code :

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

1
2
3
4
5
6
7
Private Sub ConfirmReceivingKO_Click()
DoCmd.SetWarnings False
Me.CurrentRecord.ReceivedYesNo.Value = False
DoCmd.OpenQuery "Q002_Del_T0002_ToBeReceived_Confirmation_Print"
DoCmd.Close
DoCmd.SetWarnings True
End Sub

[totor92290]

Merci Bertigny,
Malheureusement cela ne fonctionne pas
Message d'erreur sur "CurrentRecord" "Compile error: Invalid qualifier"

[bertiny]

Poste un peu ta base je jette rapidement un coup d’œil

[totor92290]

Bertigny,
J'ai trouvé ça:

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
Private Sub ConfirmReceivingKO_Click()
 
Dim db As DAO.Database
Set db = CurrentDb()
db.Execute "UPDATE T000_ToBeReceived SET T000_ToBeReceived.ReceivedYesNo= False"
Me.Requery
 
 
DoCmd.SetWarnings False
 
DoCmd.OpenQuery "Q002_Del_T0002_ToBeReceived_Confirmation_Print"
DoCmd.Close
 
DoCmd.SetWarnings True
End Sub

ça fonctionne mais je ne sais pas si c'est très académique!

[bertiny]

En fait comme on a pas l'idée de comment est conçu ton formulaire, si çà répond à ton attente alors c'est mieux.