Discussion :

[b3nsouss]

Bonjour,

Voici mon problème, je suis en train de créer un petit outil sur Access pour la gestion des formations.
J'ai une base ou l'on recense les souhaits de formation.
En cliquant sur le bouton "ajouter" ou "modifier" de la première image, je suis censé arriver sur la deuxième. (PS: Il y a une zone de liste en dessous des boutons, mais je ne l'ai pas mis pour la confidentialité des personnes, elle s'appelle Liste dans le code)

A savoir que cela marchais il y a pas si longtemps. J'ai l'impression que la fenêtre s'ouvre mais je ne la vois pas. Lorsque je clique sur l'écran (après le clique sur le contrôle), un son retentit comme si c'était bloqué par cette fenêtre en question.

Avez-vous une idée de mon problème?
J'ai essayer de compacter la base, de changer le contrôle, de modifier un peu le code mais ça ne marche pas...

Image 1


Image 2


Code du bouton Ajouter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Btn_ajout_Click()
    Dim rs As DAO.Recordset
    Dim Qry As DAO.QueryDef
 
    DoCmd.OpenForm "Modification"
    DoCmd.Close acForm, "GestionPlan"
 
    Set Qry = CurrentDb.QueryDefs("MaxID")
    Set rs = Qry.OpenRecordset
    Forms![Modification].TexteNumero.Value = rs(0) + 1
    Forms![Modification].TexteDate.Value = Now
End Sub

Code du bouton modifier

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
29
30
31
32
33
34
35
36
37
Private Sub Btn_modifier_Click()
    'Liste.AddItem(liste.Selected, Liste.ListCount)
    'DoCmd.OpenForm "Patientez"
    Dim varItm As Variant
    Dim i, compteur As Long
    Dim rs As DAO.Recordset
    Dim Qry As DAO.QueryDef
 
    compteur = 0
    For i = 0 To Liste.ListCount - 1
        If Liste.Selected(i) = True Then
            compteur = compteur + 1
        End If
    Next i
 
    If Liste.ListIndex >= 0 Then
        DoCmd.OpenForm "Modification"
        For Each varItm In Liste.ItemsSelected
            Tampon.Value = Liste.ItemData(varItm)
            Set Qry = CurrentDb.QueryDefs("modifier")
            Qry.Parameters("[Formulaires]![GestionPlan]![Tampon].[Value]") = Tampon.Value
            Set rs = Qry.OpenRecordset
 
            ...
 
            Set Qry = Nothing
            Set rs = Nothing
            Liste.Selected(varItm) = False
        Next varItm
        DoCmd.Close acForm, "GestionPlan"
    Else
        MsgBox "Veuillez sélectionner une formation à modifier et reessayer.", vbExclamation + vbOKOnly, "Attention!"
        'DoCmd.Close acForm, "Patientez"
        Exit Sub
    End If
    'DoCmd.Close acForm, "Patientez"
End Sub

[loufab]

Bonjour,

Trop peu d'info, il faudrait reproduire le problème pour investiguer.

Lorsque tu traces le code il se passe quoi ?

Cordialement,

[b3nsouss]

Je t'avouerai que je ne sais pas faire ça.

J'ai essayer en laissant seulement "DoCmd.OpenForm "Modification"" dans le code des boutons "Ajouter" et "Modifier" pour juste ouvrir le formulaire et ça fait le même résultat. Le formulaire semble ouvert mais je ne le vois pas.
Même problème si je l'ouvre depuis la fenêtre de gauche directement (ou il y a tous les objets).
Le seul moyen de l'ouvrier est de faire "Mode création" sur le formulaire et ensuite de le lancer en formulaire sinon c'est le même problème.

Donc le problème se situe lors du clic sur le bouton de contrôle.

Bouton de contrôle sur un formulaire "Gestionplan" qui emmène sur un autre s'appelant "modification", même la simple ouverture ne fonctionne pas.

Je ne sais pas si cela t'aides...

Cordialement, Benoit.

[b3nsouss]

Le formulaire est en fenêtre modale. J'ai enlever ce paramètre et là ma fenêtre apparaît correctement.
Fenêtre modale <> mettre un focus sur la fenêtre?

Je ne comprend pas pourquoi ce simple paramètre change tout.

[loufab]

Effectivement le paramètre modal peut poser des problèmes :

https://fr.wikipedia.org/wiki/Fen%C3%AAtre_modale

https://support.office.com/fr-fr/art...8-3a61219c6d99

Et non mettre le focus et modal sont 2 choses différentes.