bonjour,
voila j'ai créé un formulaire avec un bouton où sur clic => exécute un module.
voilà quelques lignes de ce module:
If DoCmd.OpenForm("DATE DEMANDE IMPRESSION", acNormal, "",
"[DATESERI]=[DATE SERIGRAPHIE?]", , acNormal) <> ok Then
DoCmd.Close acForm, "DATE DEMANDE IMPRESSION"
DoCmd.CancelEvent
Exit Function
le problème c'est que quand le module s'exécute, une boite de dialogue me
demande de saisir une date, si on veut annuler, le module continu de
s'exécuter. donc j'ai voulu mettre dans ce module: si dans la boite de
dialogue on annule, alors ça ferme le formulaire, ça annule événement et ça
arrête la macro mais la première ligne de ce module ne marche pas!!!
pouvez-vous m'aider?
merci
--
heidy
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
Gafish
heidy wrote:
bonjour,
Bonjour,
le problème c'est que quand le module s'exécute, une boite de dialogue me demande de saisir une date, si on veut annuler, le module continu de s'exécuter. donc j'ai voulu mettre dans ce module: si dans la boite de dialogue on annule, alors ça ferme le formulaire, ça annule événement et ça arrête la macro mais la première ligne de ce module ne marche pas!!! pouvez-vous m'aider?
Si j'ai bien compris, ce que tu veux c'est afficher une boîte demandant une valeur, faire ton traitement si la valeur est renseignée, et sortir si l'utilisateur clique sur annuler.
Tu peux faire comme cela :
Dim retInput retInput = InputBox("Rentrez la date", "Demande de saisie") If RetInput = "" then 'il clique sur annuler ou rien saisi DoCmd.Close Else 'ici tu mets ton traiment
End If
Arnaud -- Charte du forum : http://users.skynet.be/mpfa/ Recherche dans les archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
heidy wrote:
bonjour,
Bonjour,
le problème c'est que quand le module s'exécute, une boite de
dialogue me demande de saisir une date, si on veut annuler, le module
continu de s'exécuter. donc j'ai voulu mettre dans ce module: si dans
la boite de dialogue on annule, alors ça ferme le formulaire, ça
annule événement et ça arrête la macro mais la première ligne de ce
module ne marche pas!!! pouvez-vous m'aider?
Si j'ai bien compris, ce que tu veux c'est afficher une boîte demandant une
valeur, faire ton traitement si la valeur est renseignée, et sortir si
l'utilisateur clique sur annuler.
Tu peux faire comme cela :
Dim retInput
retInput = InputBox("Rentrez la date", "Demande de saisie")
If RetInput = "" then
'il clique sur annuler ou rien saisi
DoCmd.Close
Else
'ici tu mets ton traiment
End If
Arnaud
--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
le problème c'est que quand le module s'exécute, une boite de dialogue me demande de saisir une date, si on veut annuler, le module continu de s'exécuter. donc j'ai voulu mettre dans ce module: si dans la boite de dialogue on annule, alors ça ferme le formulaire, ça annule événement et ça arrête la macro mais la première ligne de ce module ne marche pas!!! pouvez-vous m'aider?
Si j'ai bien compris, ce que tu veux c'est afficher une boîte demandant une valeur, faire ton traitement si la valeur est renseignée, et sortir si l'utilisateur clique sur annuler.
Tu peux faire comme cela :
Dim retInput retInput = InputBox("Rentrez la date", "Demande de saisie") If RetInput = "" then 'il clique sur annuler ou rien saisi DoCmd.Close Else 'ici tu mets ton traiment
End If
Arnaud -- Charte du forum : http://users.skynet.be/mpfa/ Recherche dans les archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
heidy
bonjour Arnaud en fait la boite de dialogue, c'est dans la condition where quand j'ouvre le formulaire, et je n'arrivais pas à dire: si on annule alors fin de la fonction car il continuait d'exécuter. mais tu m'as donné l'idée avec si c'est null alors fin. donc c'est bon ça marche. merci pour ta réponse. -- heidy
heidy wrote:
bonjour,
Bonjour,
le problème c'est que quand le module s'exécute, une boite de dialogue me demande de saisir une date, si on veut annuler, le module continu de s'exécuter. donc j'ai voulu mettre dans ce module: si dans la boite de dialogue on annule, alors ça ferme le formulaire, ça annule événement et ça arrête la macro mais la première ligne de ce module ne marche pas!!! pouvez-vous m'aider?
Si j'ai bien compris, ce que tu veux c'est afficher une boîte demandant une valeur, faire ton traitement si la valeur est renseignée, et sortir si l'utilisateur clique sur annuler.
Tu peux faire comme cela :
Dim retInput retInput = InputBox("Rentrez la date", "Demande de saisie") If RetInput = "" then 'il clique sur annuler ou rien saisi DoCmd.Close Else 'ici tu mets ton traiment
End If
Arnaud -- Charte du forum : http://users.skynet.be/mpfa/ Recherche dans les archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
bonjour Arnaud
en fait la boite de dialogue, c'est dans la condition where quand j'ouvre le
formulaire, et je n'arrivais pas à dire: si on annule alors fin de la
fonction car il continuait d'exécuter. mais tu m'as donné l'idée avec si
c'est null alors fin.
donc c'est bon ça marche. merci pour ta réponse.
--
heidy
heidy wrote:
bonjour,
Bonjour,
le problème c'est que quand le module s'exécute, une boite de
dialogue me demande de saisir une date, si on veut annuler, le module
continu de s'exécuter. donc j'ai voulu mettre dans ce module: si dans
la boite de dialogue on annule, alors ça ferme le formulaire, ça
annule événement et ça arrête la macro mais la première ligne de ce
module ne marche pas!!! pouvez-vous m'aider?
Si j'ai bien compris, ce que tu veux c'est afficher une boîte demandant une
valeur, faire ton traitement si la valeur est renseignée, et sortir si
l'utilisateur clique sur annuler.
Tu peux faire comme cela :
Dim retInput
retInput = InputBox("Rentrez la date", "Demande de saisie")
If RetInput = "" then
'il clique sur annuler ou rien saisi
DoCmd.Close
Else
'ici tu mets ton traiment
End If
Arnaud
--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
bonjour Arnaud en fait la boite de dialogue, c'est dans la condition where quand j'ouvre le formulaire, et je n'arrivais pas à dire: si on annule alors fin de la fonction car il continuait d'exécuter. mais tu m'as donné l'idée avec si c'est null alors fin. donc c'est bon ça marche. merci pour ta réponse. -- heidy
heidy wrote:
bonjour,
Bonjour,
le problème c'est que quand le module s'exécute, une boite de dialogue me demande de saisir une date, si on veut annuler, le module continu de s'exécuter. donc j'ai voulu mettre dans ce module: si dans la boite de dialogue on annule, alors ça ferme le formulaire, ça annule événement et ça arrête la macro mais la première ligne de ce module ne marche pas!!! pouvez-vous m'aider?
Si j'ai bien compris, ce que tu veux c'est afficher une boîte demandant une valeur, faire ton traitement si la valeur est renseignée, et sortir si l'utilisateur clique sur annuler.
Tu peux faire comme cela :
Dim retInput retInput = InputBox("Rentrez la date", "Demande de saisie") If RetInput = "" then 'il clique sur annuler ou rien saisi DoCmd.Close Else 'ici tu mets ton traiment
End If
Arnaud -- Charte du forum : http://users.skynet.be/mpfa/ Recherche dans les archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
