Selectionner tout

Re bonjour,
j ai un formulaire client avec un sousformulaire produit,
qui me permet de selectionner, avec un champ select en
Y/N, certains produits pour chaque client. J'ai creer
deux boutons dans le sous formulaires qui me permettent
de selectionner tous les produits pour ce client ou de
les deselectionner. J ai utilise pour ca des requetes de
modif et utiliser le code suivant:
mon probleme est qu a chaque fois que j utilise le bouton
j ai un message qui me dit que je ne peut pas
utiliser "applyFilter action" ici. Et quand je presse ok,
mon code fonctionne.
Merci de votre aide

Private Sub Command53_Click()
On Error GoTo Err_Command53_Click

Dim stDocName As String

stDocName = "UpQrySelectAllServiceByCustomer"
DoCmd.OpenQuery stDocName, acNormal, acEdit
DoCmd.Requery

Exit_Command53_Click:
Exit Sub

Err_Command53_Click:
MsgBox Err.Description
Resume Exit_Command53_Click

End Sub

-----Message d'origine-----
Bonjour.

je pense qu'il serait préférable de passer par le
recordset du

sous-formulaire pour ne pas avoir le problème d'un
filtre éventuel placé par

l'opérateur.
si le bouton est dans le sous-formulaire:
Dim Rs As DAO.Recordset
Set Rs = Me.Recordset
If Rs.BOF Then Exit Sub
Do Until Rs.EOF
Rs.Edit
Rs!OuiNon = True
Rs.Update
Rs.MoveNext
Loop
Set Rs = Nothing

si le bouton est dans le formulaire principal:

Dim Rs As DAO.Recordset
Set Rs = Me.[sous-formulaire].Form.Recordset
If Rs.BOF Then Exit Sub
Do Until Rs.EOF
Rs.Edit
Rs!OuiNon = True
Rs.Update
Rs.MoveNext
Loop
Set Rs = Nothing

il faudra rajouter une ligne On Error ..... pour gérer
les erreurs.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Ghislain" <anonymous@discussions.microsoft.com> a écrit
dans le message de

news: 5d8e01c4c7e3$42fda800$a301280a@phx.gbl...

Re bonjour,
j ai un formulaire client avec un sousformulaire
produit,

qui me permet de selectionner, avec un champ select en
Y/N, certains produits pour chaque client. J'ai creer
deux boutons dans le sous formulaires qui me permettent
de selectionner tous les produits pour ce client ou de
les deselectionner. J ai utilise pour ca des requetes
de

modif et utiliser le code suivant:
mon probleme est qu a chaque fois que j utilise le
bouton

j ai un message qui me dit que je ne peut pas
utiliser "applyFilter action" ici. Et quand je presse
ok,

mon code fonctionne.
Merci de votre aide

Private Sub Command53_Click()
On Error GoTo Err_Command53_Click

Dim stDocName As String

stDocName = "UpQrySelectAllServiceByCustomer"
DoCmd.OpenQuery stDocName, acNormal, acEdit
DoCmd.Requery

Exit_Command53_Click:
Exit Sub

Err_Command53_Click:
MsgBox Err.Description
Resume Exit_Command53_Click

End Sub

.