Discussion :

[emc_konate]

Bonjour,
je suis vraiment débutant en VBA Access, et je parts directement dans le vif du sujet :
Voila, j'ai 2 formulaires A et B: Le A contient un bouton de commande pour ouvrir le B tout en filtrant les données à afficher sur le B. RAS!
Au delà d'ouvrir le Form B et affiche les enregistrements je voudrais utilise un code VBA pour pouvoir (aprés que B ai été ouvert) modifier la valeur d'un champs X ou tous les champs, quelque soit le nombre d'enregistrement affiché par B suite au filtre.

NB : la nouvelle valeur doit être égale à Zero.
Voici ci-aprés à quoi j'avais pensé :

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
Private Sub LSH_Click()
On Error GoTo LSH_Err
Dim r As dao.RecordSet: Set r = Forms(B).RecordsetClone 
 
            DoCmd.OpenForm "B", acFormDS, "", "[ID Elève]=" & ID, , acNormal
            DoCmd.SearchForRecord acForm, "B", acFirst, "[ID Elève]=" & ID
 
Do While Not r.EOF
                For Each Field In RecordSet.Fields
                Field.Value = 0
 
                r.MoveNext
                If (Field.Value = "") Then
                Exit Do
                Next
Loop
 
Set r = Nothing

A l'avance merci pour votre aide.

[ClaudeLELOUP]

Bonjour et bienvenue chez nous,
Tu devrais plutôt envisager ceci dans l’action déclenchée par le bouton :
- exécuter une requête qui met les champs ad hoc à zéro ;
- l’ouverture du formulaire B.

P.-S. Quand tu postes du code, tu dois l'insérer dans les balises !
http://dolphy35.developpez.com/images/Balises.gif
Évite aussi de poster plusieurs fois la même demande.