Bonjour,
Je travaille sous access 2003 et je ne suis pas très expériementé en VBA. Je m'inspire très largement des conseils que je peux trouver sur ce site et j'en profite pour remercier leurs auteurs.
Voici mon problème :
J'ai un sous formulaire (liste de contacts) alimenté par une requête qui se met à jour en fonction des options du formulaire contenant.
L'un des champs de cette liste est une case à cocher qui me permet de ne sélectionner que certains contacts avant de faire un publipostage.
Lorsque je fais une sélection manuelle, tout fonctionne parfaitement...
Je souhaite maintenant créer une option (case à cocher) me permettant de tout cocher/décocher sur la liste affichée afin de gagner en efficacité.
Voici le code que j'ai rentré :
J'obtiens l'erreur suivante sur "Liste.Edit" :
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
36
37
38
39 Private Sub CocherTout_Click() 'coche ou décoche toutes les cases ' Dim Liste As Recordset Dim NbrUsers As Integer Dim vRéponse As String 'compte le nbr d'utilisateurs NbrUsers = DCount("*", "R_ContactsCourrierNonConfidentiel") If NbrUsers = 0 Then vRéponse = MsgBox("Les utilisateurs ne sont pas définis" & vbCr & "Demandez à l'administrateur de les créer.", vbOKCancel, "Liste des utilisateurs") Exit Sub End If 'faire référence à la requête Set Liste = CurrentDb.OpenRecordset("R_ContactsCourrierNonConfidentiel") 'se place en début de liste Liste.MoveFirst Donnée = Liste.Fields("Cocher") For User = 1 To NbrUsers If Me![CocherTout] = False Then Liste.Edit Liste![Cocher] = False Liste.Update Else Liste.Edit Liste![Cocher] = True Liste.Update End If Liste.MoveNext Next 'libération de la référence Liste.Close Set Liste = Nothing End Sub
Méthode ou membre de données introuvable (erreur 461)
Je m'en remets à vos compétences pour me dire à quel niveau se trouve l'erreur.
Je reste à votre disposition pour tout renseignement complémentaire.
Merci par avance pour votre aide.
Cordiales salutations
Partager