Discussion :

[Jhofman]

bonjour


J'ai une série de formulaires

d'abord 2 menus avec des boutons qui appellent des formulaires

dans FormMenu0

Code :

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

1
2
 
DoCmd.OpenForm "FormMenu1"

et
dans FormMenu1 j'appelle une recherche multicritère avec un liste de résultats

Code :

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

1
2
3
4
5
 
DoCmd.OpenForm _
                                        "frmRechercheCAC", acNormal, "", _
                                        "", _
                                        acFormEdit, acDialog, "CAC"

et dans le liste par double-click sur une ligne j'appelle un quatrième formulaire de saisie

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
21
22
23
24
25
26
27
28
 
Private Sub lstResults_DblClick(Cancel As Integer)
 
If Me.lstResults.ItemsSelected.Count = 0 Then
        MsgBox "Aucune ligne n'a été sélectionnée"
Else
    For Each varI In Me!lstResults.ItemsSelected
        idf = Me!lstResults.ItemData(varI)
        If IsNull(idf) Then
                DoCmd.OpenForm "Fo_Fiche_CAC", acNormal, , ""
                Me.FilterOn = False
                MsgBox " pas de id"
        Else
            typeFiche = lstResults.Column(1)
 
            DoCmd.OpenForm "Fo_Fiche_CAC", acNormal, , "[F98-IDFiche] = " & idf & "", acFormEdit, acDialog, typeFiche & "-Analyse"
        End If
    Next varI
  End If
  Me.Undo
'DoCmd.Close acForm, "frmSousDevisTemp", acSaveYes
  'RefreshQuery
 DoCmd.Close , Me.Name, acSaveYes
  ' DoCmd.Close , Me.Name, acSaveYes
 
 
 
End Sub

et c'est là que cela se complique

quand je ferme le dernier écran il reste actif en arrière plan idem pour le troisième jusqu'à ce que je ferme le second !

need help

[titi95]

Bonour

A première vue, ton

Code :

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

DoCmd.OpenForm "Fo_Fiche_CAC"

est dans une boucle, donc il peut être exécuté plusieurs fois.
Voulu ? Formulaire ouvert x fois ?

titi95

[Pittouti]

bonjour,

étant donner que je ne suis pas expert dans la codification VBA, je me demande pourquoi vous n'utilisez pas les macros ?

il y a touuuuut, et tu peux faire mes merveilles !!