[AC-2010] Action après msgbox [Résolu]

[jimmy25]

Bonjour,

Une question simple à laquelle je n'ai pas trouvé la réponse sur les forums. Peut être ai-je mal cherché ?

Comment effectuer une action après une msgbox ?

J'ai un formulaire de saisie de devis, un autre pour la saisie de facture.

Lorsque l'on ouvre la saisie de facture, si le devis n'a pas été rempli au préalable, la saisie de facture est impossible :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Load()
DoCmd.MoveSize 4000, 1000, 12700, 7000
 
If IsNull(Me.zt_devis_mt.Value) Then
MsgBox "Cette intervention ne comporte pas de devis, impossible d'y enregistrer une facture", vbExclamation, "Saisie impossible"
 
DoCmd.Close
 
Me.b_annul.Enabled = True
Me.b_valid.Enabled = True
 
End If
 
End Sub

Mais le formulaire de facture ne se ferme pas.

Comment lui demander de fermer le formulaire en fonction de la réponse OK de la msgbox ?

[vodiem]

salut jimmy25 et bienvenu,

selon le type Me.zt_devis_mt.Value il est possible que la condition ne soit pas rempli.
teste avec isEmpty ou =""

pour conditionner avec le msgbox tu trouveras les informations nécessaire avec un exemple avec ton ami <F1>

[jimmy25]

Merci pour ton aide.
J'ai fait le tour de l'aide F1 avant de poser ma question sur le forum, mais je n'ai pas réussi à en exploiter les résultats.

Par contre, j'ai trouvé une réponse simple : c'est l'ordre des arguments qui ne collait pas. Une petite pause m'a inspiré :

1 Docmd.close
2 Msgbox

Et là, inutile de se demander quel est le résultat de la msgbox puisque l'action a déjà eu lieu !

[vodiem]

je te redonnes l'exemple de mon copain <F1> qui semble plus prolixe que le tien

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
 
Msg = "Do you want to continue?"
Style = vbYesNo + vbCritical + vbDefaultButton2    
Title = "MsgBox Demonstration" 
Help = "DEMO.HLP"
Ctxt = 1000
 
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
 
If Response = vbYes Then    ' User chose Yes.
    MyString = "Yes"    ' Perform some action.
Else    ' User chose No.
    MyString = "No"    ' Perform some action.
End If

des fois que tu changes d'avis...