Discussion :

[JeremyW]

Bonjour,

Je débute avec ACCESS mais je suis bien familiarisé avec le langage VBA surtout sur Excel.
Ce que je souhaiterais faire, c'est pouvoir faire une boucle sur un champ d'un formulaire pour en tester les valeurs.
Et c'est là le drame...
J'en perds mon latin, si quelqu'un aurait la gentillesse de bien vouloir m'aiguiller pour que je puisse débuter

Merci infiniment,

Jeremy

[madefemere]

Bonjour,

Peux-tu préciser ta demande :
1- boucle sur les valeurs d'un champ d'un formulaire
2- ou boucle sur tous les champs d'un enregistrement d'un formulaire.

et quel est le but ?

Cordialement.

[JeremyW]

Merci pour votre aide.

Je souhaite boucler sur les valeurs d'un champ d'un formulaire, les valeurs étant des cases à cocher (oui/non)
Si la valeur est égale à oui, j'aimerais pouvoir récupérer certaines valeurs des champs voisins.

Sous Excel, ça donnerait un truc du genre :

Code :

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

1
2
3
4
5
6
7
For i = 1 to derlign
        If range("A" & i) = "oui" then
            message = message & range("B" & i) & " " & range("C" & i) & chr(10)
        end if
    next i
 
MsgBox message

Si j'arrivais déjà à ça

Le but final étant d'intégrer la variable 'message' dans un mail

j'aimerai également pouvoir modifier un champ si la condition oui est remplie :

Code :

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

1
2
3
If range("A" & i) = "oui" then
        range("E" & i) = date du jour par exemple
end if

Merci,

Jeremy

[tee_grandbois]

bonsoir,
c'est presque comme Excel sauf qu'il faut déclarer le jeu d'enregistrements à mettre à jour. Dans le cas d'un formulaire, c'est simple: il suffit d'utiliser un clone du Recordset:

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
Dim oRS As Recordset                                'Déclaration du jeu d'enregistrements
Set oRS = Me.RecordsetClone                         'Affectation du jeu d'enregistrements avec un clone de celui du formulaire
 
If oRS.RecordCount > 0 Then
     oRS.MoveFirst
     Do Until oRS.EOF                               'Boucle sur tous les enregistrements
        If oRS("CaseAcocher") = True Then           'On teste la condition pour mise à jour
            oRS.Edit                                'On édite le champ de l'enregistrement
            oRS.Fields("ChampAMettreAJour") = Date  'Mise à jour du champ avec Date du jour
            oRS.Update                              'Validation de la mise à jour
        End If
        oRS.MoveNext                                'On passe à l'enregistrement suivant
     Loop
End If
Set oRS = Nothing

[JeremyW]

Merci pour ce début de piste, j’ai pu trouver la suite

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
Dim oRs As Recordset 
 
Set oRs = Me.RecordsetClone
 
If oRs.RecordCount > 0 Then
If oRs.EOF Then exit sub
Do Until oRs.EOF
If oRs.Fields(nom du champ) = ´Vrai ´ Then
 
End If
oRs.MoveNext
Loop
End if
 
Set oRs = Nothing

Ce code je l’ai assigné à un bouton, mais je ne peux le lancer qu’une seule fois, il me faut fermer le formulaire puis le rouvrir.
Idem, si j’ouvre le formulaire, j’y fais des modifications, celles-ci ne sont pas prises en compte.

Est-ce que vous connaissez les raisons à ces problèmes ?

Merci et bonne soirée

JeremyW

[tee_grandbois]

bonjour,

Ce code je l’ai assigné à un bouton, mais je ne peux le lancer qu’une seule fois, il me faut fermer le formulaire puis le rouvrir.
Idem, si j’ouvre le formulaire, j’y fais des modifications, celles-ci ne sont pas prises en compte.

ajoute Me.ReCalc après la boucle (l'instruction Loop) ou après les instructions de mise à jour, cela met à jour le jeu d'enregistrements du formulaire à partir du clone.
Tu peux aussi utiliser directement le Recordset, mais l'avantage du clone, c'est que le formulaire ne "flashe" pas lors de la mise à jour puisque tout est mis à jour en une seule fois après une mise à jour depuis une boucle.

[JeremyW]

Bonjour tee_grandbois,

Merci pour ton aide, j'essai de me dépatouiller.

J'ai ce code, qui s'execute au clic pour mettre à jour une liste d'actions (0 et -1 étant les valeurs des cases à cocher issues de la table)
Ce que je ne comprend pas, c'est que ça fonctionne mais ne prends jamais en compte la dernière ligne

Merci pour ton aide,

Belle soirée,

Jeremy

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
Dim oRS As Recordset                                'Déclaration du jeu d'enregistrementsSet oRS = Me.RecordsetClone                         'Affectation du jeu d'enregistrements avec un clone de celui du formulaire
 
Set oRS = Me.RecordsetClone                         'Affectation du jeu d'enregistrements avec un clone de celui du formulaire
 
 
If oRS.RecordCount > 0 Then
     oRS.MoveFirst
     Do Until oRS.EOF                                            'Boucle sur tous les enregistrements
        If oRS.Fields("SELECTION") = -1 Then           'On teste la condition pour mise à jour
            oRS.Edit                                                  'On édite le champ de l'enregistrement
            oRS.Fields("SELECTION") = 0                    'Mise à jour du champ
            oRS.Update                                              'Validation de la mise à jour
        End If
        oRS.MoveNext                                              'On passe à l'enregistrement suivant
     Loop
End If
Set oRS = Nothing

[tee_grandbois]

bonsoir,

Ce que je ne comprend pas, c'est que ça fonctionne mais ne prends jamais en compte la dernière ligne

bizarre, je ne vois pas pourquoi ...
As-tu mis l'instruction Me.Recalc à la fin ?

[JeremyW]

Bonjour,

C'est bon, je viens de comprendre.
Quand le champ est selectionné il n'est pas pris en compte.
Du coup j'ai ajouté

Code :

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

me.recalc

avant le code et ça fonctionne.

Merci pour ton aide, elle m'a permis de pouvoir débuter.

[tee_grandbois]

Quand le champ est selectionné il n'est pas pris en compte.

En effet, si un enregistrement est en cours de modification, il est verrouillé, c'est donc très bien de mettre Me.Recalc au début.