Discussion :

[othmanepf]

Bonjour,
J'ai une boucle VBA qui me permet d'afficher un formulaire, cependant, quand je la lance, elle ne m'affiche que le dernier point. La boucle est lancée grâce à un bouton sur un autre formulaire.

Mon code :

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
Private Sub Finprev_Click()
    Dim Max As Integer
    Dim Ligne As String
 
    Ligne = Forms![F_Prev]![lstligne]
    Max = Forms![F_Prev]![lstmachine].ListCount - 1   'nombre d'enregistrements
 
    If MsgBox("Avez-vous terminé le préventif de la " & Ligne & "?", vbYesNo, vbExclamation) = vbYes Then
 For i = 0 To Max
 
 
    Forms![F_Prev]![lstmachine] = Forms![F_Prev]![lstmachine].ItemData(i)
 
    DoCmd.OpenForm "Sélection", acNormal
 
 
 
 Next i
    End If
End Sub

Le formulaire que j'essaye d'afficher est "Sélection" mais il ne s'affiche que pour le dernier rang de la boucle, je veux que grâce à un bouton de ce formulaire, le fermer et passer à la suite de la boucle.

Je vous remercie d'avance pour votre aide

Othmane

[Invité]

Bonjour

Bien que je ne vois pas où tu veux en venir, essayes d'ouvrir ton formulaire en mode modal, c'est un des paramètres de l'OpenForm.

Mais sans garantie.

Philippe

[othmanepf]

Ah merci, c'est bon j'ai fait ça et il fallait juste rajouter une condition : ne pas ouvrir le formulaire s'il est déjà ouvert.