Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access difficulté de fonctionnement pour mon évennement

difficulté de fonctionnement pour mon évennement

3 réponses
Avatar
URIANE
Bonjour,
Dans un formulaire sur minuterie j'ai mis le code suivant :
Private Sub Form_Timer()
Dim stDocName As String
Dim response As String
Do Until response = "oui" Or response = "non"

response = InputBox("Voulez-vous continuer")

If response = "oui" Then
stDocName = "ouvrir_fermer.archivage"
DoCmd.RunMacro stDocName
If response = "non" Then
DoCmd.Close acForm, "frm_majnotaETT"
End If
End If
Loop
End Sub
Si je réponds "oui" le code fonctionne, si je réponds "non" alors que le
document devrait se fermer, il ne se ferme pas et me repose toujours la
question, je pense que je fais une erreur mais ou ?
Par avance merci à qui me répondra.
Cordialement
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
URIANE

A la réponse Non, vous devez ajouter :
Me.TimerInterval=0

Merci, mais je souhaiterais également avoir "annulé" pour fermer sans rien
faire si je le désire comment puis-je procéder, j'ai mis en place ta
solution simplifiée. Merci


Avatar
Michel_D
Bonjour,

Regarde l'aide sur Msgbox

retour = MsgBox("Voulez-vous continuer ?", vbQuestion + vbYesNoCancel, "Continuer")

et les valeurs possibles de la variable retour sont :

vbYes, vbNo, vbCancel


"URIANE" a écrit dans le message de news:%

A la réponse Non, vous devez ajouter :
Me.TimerInterval=0

Merci, mais je souhaiterais également avoir "annulé" pour fermer sans rien
faire si je le désire comment puis-je procéder, j'ai mis en place ta
solution simplifiée. Merci






Avatar
Argyronet
Eh bien il suffit de compléter les boutons :
Private Sub Form_Timer()
Dim intReponse As Integer

intReponse = MsgBox("Voulez-vous continuer ?", vbQuestion +
vbYesNoCancel, "Continuer")
Select Case intReponse
Case vbYes
DoCmd.RunMacro "ouvrir_fermer.archivage"
Case vbNo
Me.TimerInterval = 0
DoCmd.Close acForm, "frm_majnotaETT"
Case Else
'A vous de compléter
MsgBox "Vous avez annulé mais là, je ne sais pas ce qu'il faut
faire ;O)" & vbCrlf & "Je considère donc que l'on continu d'afficher...", ,
"Annulation"
End Select
End Sub

Mais je ne sais pas ce que Annuler doit faire, là, je vous laisse la main.
--
Argy
http://argyronet.developpez.com/
Créez des programmes avec Microsoft Access 2007 (ISBN 2742982442 )
Empaquetage avec Runtime 2007 :
http://argyronet.developpez.com/office/access/runtime/2007/



Bonjour,

A la réponse Non, vous devez ajouter :
Me.TimerInterval=0

Et simplifier le code aussi :
Private Sub Form_Timer()
If MsgBox("Voulez-vous continuer ?", vbQuestion + vbYesNo, "Continuer")
= vbYes Then
DoCmd.RunMacro "ouvrir_fermer.archivage"
Else
Me.TimerInterval = 0
DoCmd.Close acForm, "frm_majnotaETT"
End If
End Sub

--
Argy
http://argyronet.developpez.com/
Créez des programmes avec Microsoft Access 2007 (ISBN 2742982442 )
Empaquetage avec Runtime 2007 :
http://argyronet.developpez.com/office/access/runtime/2007/



Bonjour,
Dans un formulaire sur minuterie j'ai mis le code suivant :
Private Sub Form_Timer()
Dim stDocName As String
Dim response As String
Do Until response = "oui" Or response = "non"

response = InputBox("Voulez-vous continuer")

If response = "oui" Then
stDocName = "ouvrir_fermer.archivage"
DoCmd.RunMacro stDocName
If response = "non" Then
DoCmd.Close acForm, "frm_majnotaETT"
End If
End If
Loop
End Sub
Si je réponds "oui" le code fonctionne, si je réponds "non" alors que le
document devrait se fermer, il ne se ferme pas et me repose toujours la
question, je pense que je fais une erreur mais ou ?
Par avance merci à qui me répondra.
Cordialement