Discussion :

[fomy]

Bonjour a tous,
j'ai le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
    Dim varI As Variant
    Dim test As String
 
    If Me.lstResults.ItemsSelected.Count = 0 Then
        MsgBox "Aucun matériel n'a été sélectionné"
    Else
        For Each varI In Me!lstResults.ItemsSelected
        DoCmd.OpenForm "test_sel-multiple_s", acNormal, , "[N°] = " & lstResults.ItemData(varI)
        Next varI
    End If

le probleme c'est qu'il faudrait temporiser la boucle for each afin qu'elle attende que le formulaire test_sel-multiple_s soit fermé et de passer à la prochaine valeur de VarI...
je peux tester si le formulaire est ouvert ou non via

Code :

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

1
2
3
4
5
6
test = CurrentProject.AllForms("test_sel-multiple_s").IsLoaded
    If test = True Then
    MsgBox "le formulaire est ouvert"
    Else
    MsgBox "le formulaire est fermé"
    End If

mais je ne sais pas emboiter l'un dans l'autre pour que la boucle for each attende le feu vert du if...
d'avance encore merci de votre aide.

[fomy]

j'ai trouvé
il suffit de remplacer

Code :

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

DoCmd.OpenForm "test_sel-multiple_s", acNormal, , "[N°] = " & lstResults.ItemData(varI)

par

Code :

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

DoCmd.OpenForm "test_sel-multiple_s", acNormal, , "[N°] = " & lstResults.ItemData(varI), , acDialog

access attend alors la fermeture du formulaire pour continuer