[AC-2007] Formulaire vs Msgbox [Résolu]

[Oliv'83]

Bonjour à tous,

Je voudrais remplacer une MsgBox par un formulaire afin de rendre l'interface plus attractive. Je sais bien lancer le formulaire mais je ne sais pas comment faire pour qu'Access cesse le déroulement des opérations le temps d'obtenir la réponse du formulaire.

Voici ce que j'ai fait :

derrière un bouton d'un premier formulaire j'ai mis le code suivant :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
If varTotalFacture <= 0 Then
    DoCmd.OpenForm "frm_Identification_Remboursement"
Else
End If
 
If boAutorisation = False Then
    Exit Sub
Else
    strTypeFac = "PRESTATION"
 
    DAO_RechNumFac
End If

Et derrière mon formulaire "frm_Identification_Remboursement" j'ai mis sur "Après MAJ" d'une zone de texte :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim strMotdePasse As String
 
'Verification qu'il y a bien quelque chose de tapé sinon fermeture du formulaire
If Not IsNull(Forms!Frm_Identification_Remboursement.OnClose) Then
 
    If IsNull(Me.Txt_MotdePasse) Then
        DoCmd.Close
 
    Else
        strMotdePasse = [Txt_MotdePasse]
 
        If strMotdePasse = Format(Now, "mm") Then
            boAutorisation = True
            DoCmd.Close acForm, "frm_Identification_Remboursement"
        Else
            MsgBox "vous n'avez pas accès à ce type de programme"
            boAutorisation = False
            DoCmd.Close acForm, "frm_Identification_Remboursement"
        End If
 
    End If
End If

Je voudrais qu'Access attende la réponse de l'identification pour continuer la procédure dans le premier formulaire or ce n'est pas le cas.

Merci de votre aide

Oliv'

[Vetter]

Tout d'abord applique les mêmes valeurs au propriétés du formulaire que tu veux ouvrir, que celle qui suive:



Ainsi, le formulaire s'ouvrira et tu ne pourra plus accéder au formulaire de fond.

Ensuite, lorsque t'ai changements seront effectué applique un "Refresh" (et si nécessaire un "Requery") à ton formulaire principale tout ça dans le code de ton formulaire secondaire(que tu ouvres)

[Oliv'83]

Bonjour Vetter,

merci de ton aide mais cela ne fonctionne pas.

Le premier code ouvre bien le formulaire mais il continue ensuite sans "attendre la réponse" (la valeur true ou false que prend "boAutorisation" si on a tapé le bon code ou pas).

Oliv'

[koluche]

Bonjour, mettre la propriété "Fen Modale" (onglet "autres") du formulaire à "oui" devrait résoudre le problème non??
Citation de l'aide:

Vous pouvez utiliser la propriété Modal pour spécifier si un formulaire s'ouvre en tant que fenêtre modale (modal(e) : fenêtre ou boîte de dialogue qui nécessite une intervention de l'utilisateur pour qu'un autre formulaire ou une autre boîte de dialogue puisse être activée. Les boîtes de dialogue sont souvent modales, de même que les messages.). Si c'est le cas, vous devez fermer cette fenêtre avant de pouvoir activer (activer : capacité à recevoir des entrées de la part de l'utilisateur via des actions à la souris ou au clavier, ou à l'aide de la méthode SetFocus. L'activation peut être définie par l'utilisateur ou par l'application. L'objet qui est activé (c'est-à-dire qui est sélectionné) est généralement signalé par une légende ou une barre de titre en surbrillance.) un autre objet. Type Boolean en lecture/écriture.

[Oliv'83]

Merci Pierrick de ton aide,

malheureusement mon formulaire était déjà en mode fenêtre modale (et indépendante).

Oliv'

[LedZeppII]

Bonjour,

Essaie avec acDialog dans OpenForm :

Code :

DoCmd.OpenForm "frm_Identification_Remboursement", , , , , acDialog

A+

[Oliv'83]

Salut LedZeppII

Merci de ton aide. Cela semble fonctionner .

Je vais continuer mes tests mais je clos le post et je le rouvrirai si cela se mettait à ne plus marcher.

Bonne journée

Oliv'