[AC-2003] Formulaire type msgbox

[willytito]

Bonjour,
Je développe avec Access 2003 sous Windows XP pro.
Je voudrais réaliser une fenêtre qui réagit comme un Msgbox.
C'est à dire, bloquer le déroulement des instructions tant que l'utilisateur n'a pas cliqué sur Ok.
Pour afficher ma fenêtre, j'utilise la commande :

Code :

docmd.open "Fenêtre"

A la suite de ce code j'ai un Msgbox, je voudrais que son contenu s'affiche dès l'instant que l'utilisateur a cliqué sur OK pas avant.

Si quelqu'un à une idée !
Merci
Willy

[Nitsuja]

Il est possible de faire un formulaire de type Dialog avec un bouton "ok".
Et tu construit du code évenementielle quand l'utilisateur clique sur ce bouton.

Mais pourquoi vouloir refaire un MsgBox ?

[willytito]

En fait, ce formulaire est basé sur une requête qui permet d'afficher une liste sous forme de tableau.
Valeurs affichées dans ce tableau (Identifiant, Libellé, ...)
Je ne sais pas comment procéder autrement.
Si tu as une autre idée, je suis preneur.
Merci
Willy

[SeaWolf601]

Hello,

ton code :

Code :

DoCmd.OpenForm "Fenêtre"

est bon.

Maintenant si tu veux que cela 'bloque' l'utilisateur comme une boite de dialogue, il faut passer ton formulaire "Fenetre" en Modal.

Dans les propriétés du formulaire

Fen indépendante = Oui
Fen Modale = Oui

Ton formulaire se comportera alors comme une boite de dialogue, tant que l'utilisateur ne l'aura pas fermé il sera bloqué dessus.

[loufab]

C'est exactement ce que fait la clause Dialog donnée par Nitsuja.

[willytito]

Salut,

Tout compte fait, j'ai remplacé mon formulaire par un msgbox.
Je n'affiche que quelques lignes et à la fin je rajoute "...".
Jusque là, tout fonctionne.

Mais j'ai un nouveau problème :
Ci-dessous mon code :

Dans l'évènement avant mise a jour du formulaire

Code :

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
 
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim Val_Message As String
 
Val_Message = RecherchePersonneDoublon
 
If Val_Message <> "" Then
    If MsgBox(Val_Message, vbOKCancel, "Information") = vbCancel Then
        Cancel = True
        Me.Undo
    End If
Else
    If ClicEnregistrePers = True Then
        GoTo Exit_Avant_MAJ
    Else
        If MsgBox("Voulez-vous enregistrer les modifications effectuées sur cette <Personne> ?", vbOKCancel, "Confirmation") = vbCancel Then
            Cancel = True
            Me.Undo
        End If
    End If
End If
 
Exit_Avant_MAJ:
    Exit Sub
 
End Sub

Sur l'évènement clic du bouton Enregistrer :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub Cmd_Enregister_Click()
On Error GoTo Err_Cmd_Enregister_Click
 
    ClicEnregistrePers = True
 
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
 
Exit_Cmd_Enregister_Click:
    ClicEnregistrePers = False
    Exit Sub
 
Err_Cmd_Enregister_Click:
 
    MsgBox Err.Description
    Resume Exit_Cmd_Enregister_Click
End Select
End Sub

Je veux intercepter la mise à jour quand on quitte la fenêtre et quand on clique sur le bouton Enregistrer.
Sur l'évènement quitter la fenêtre tout va bien.

Mais mon souci survient sur le bouton Enregistre.

Le message de la liste des personnes en doublon s'affiche bien mais quand on répond annuler (VbAnnule) le message suivant apparait :

La référence d'une expression à la propriété | n'est pas valide.

J'ai essayé de chercher où sa plante en mode débogage, mais le problème, le message n'apparaît pas dans l'objet Err.

Ça fait 2 jours que je suis dessus, je ne comprends pas !
Si quelqu'un peux m'aider ?
Merci
Willy