Discussion :

[pimpoye47]

Bonjour à tous,

J'ai une liste de machines dans une table que je filtre par une requête et affiche dans un formulaire, dans cette liste de machine, j'ai une case à cocher (Selection) pour sélectionner les machines que je veux transférer dane une autre table pour éditer des ordres. Mon problème est que, à l'ouverture de mon formulaire d'affichage des machines, je souhaiterai que la case à cocher de toutes les lignes soient décochées, et là je bloque. J'ai pensé à faire une boucle Do Loop Until, mais je n'arrive pas à dépasser le première ligne.
Voici que ce j'ai fait pour l'instant :

Code :

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

1
2
3
4
5
Private Sub Form_Load()
Do
Selection = False
Loop Until (10)
End Sub

Merci d'avance de votre aide

[tee_grandbois]

Bonsoir,
il faut 'travailler' sur le RecordSet du formulaire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Load()
Dim oRs As DAO.Recordset
Set oRs = Me.RecordsetClone
If Not oRs.EOF And Not oRs.BOF Then
    While Not oRs.EOF
        oRs.Edit
        oRs.Fields("Selection") = False
        oRs.Update
        oRs.MoveNext
    Wend
End If
Set oRs = Nothing
End Sub

[pimpoye47]

Merci tee_grandbois, je vais tester ça de suite

[pimpoye47]

Super!!! ça marche impec, un grand merci Tee_grandbois