Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Fermeture de formulaire via vbyesnocancel

Fermeture de formulaire via vbyesnocancel

9 réponses
Avatar
Manova
Bonjour,

J'ai un contrôle sur un formulaire et j'aimerais qu'il ferme le formulaire
actif après en avoir ouvert un autre. Le tout se fait via un msgbox vbyesno.

Voci ce que cela donne.


-----------------------------------------------------
Private Sub macommande(Cancel As Integer)
Dim Reponse As Integer
Reponse = MsgBox("Vous venez de saisir une date de fin !" & vbCrLf &
vbCrLf & " Désirez vous fermer la demande ?", vbQuestion + vbYesNo,
"Fermer une demande.")
If Reponse = vbYes Then
DoCmd.OpenForm "F_autreformulaire"
'docmd.close -----> ça ne fonctionne pas !
Else
MsgBox "N'oubliez pas de fermer votre demande plus tard !"
End If
End Sub
-----------------------------------------------------


Merci de votre aide !

Manova
Signaler un problème avec ce contenu

9 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
Pierre CFI [mvp]
bonjour
inverse ces lignes

docmd.close -----> ça ne fonctionne pas !
DoCmd.OpenForm "F_autreformulaire"


--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Manova" a écrit dans le message de news: HfVxb.24042$
Bonjour,

J'ai un contrôle sur un formulaire et j'aimerais qu'il ferme le formulaire
actif après en avoir ouvert un autre. Le tout se fait via un msgbox vbyesno.

Voci ce que cela donne.


-----------------------------------------------------
Private Sub macommande(Cancel As Integer)
Dim Reponse As Integer
Reponse = MsgBox("Vous venez de saisir une date de fin !" & vbCrLf &
vbCrLf & " Désirez vous fermer la demande ?", vbQuestion + vbYesNo,
"Fermer une demande.")
If Reponse = vbYes Then
DoCmd.OpenForm "F_autreformulaire"
'docmd.close -----> ça ne fonctionne pas !
Else
MsgBox "N'oubliez pas de fermer votre demande plus tard !"
End If
End Sub
-----------------------------------------------------


Merci de votre aide !

Manova




Avatar
Archives
Bonjour,

Je pense qu'il faut utiliser la ligne: DoCmd.close acForm, Me.name

Avec ces arguments, celà devrait fonctionner


"Manova" a écrit dans le message de news:
HfVxb.24042$
Bonjour,

J'ai un contrôle sur un formulaire et j'aimerais qu'il ferme le formulaire
actif après en avoir ouvert un autre. Le tout se fait via un msgbox
vbyesno.


Voci ce que cela donne.


-----------------------------------------------------
Private Sub macommande(Cancel As Integer)
Dim Reponse As Integer
Reponse = MsgBox("Vous venez de saisir une date de fin !" & vbCrLf &
vbCrLf & " Désirez vous fermer la demande ?", vbQuestion + vbYesNo,
"Fermer une demande.")
If Reponse = vbYes Then
DoCmd.OpenForm "F_autreformulaire"
'docmd.close -----> ça ne fonctionne pas !
Else
MsgBox "N'oubliez pas de fermer votre demande plus tard !"
End If
End Sub
-----------------------------------------------------


Merci de votre aide !

Manova




Avatar
Manova
Lorsque j'inverse ces lignes j'ai une erreur d'exécution 2585.


"Pierre CFI [mvp]" a écrit dans le message de
news:
bonjour
inverse ces lignes

docmd.close -----> ça ne fonctionne pas !
DoCmd.OpenForm "F_autreformulaire"


--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Manova" a écrit dans le message de news:
HfVxb.24042$

Bonjour,

J'ai un contrôle sur un formulaire et j'aimerais qu'il ferme le
formulaire


actif après en avoir ouvert un autre. Le tout se fait via un msgbox
vbyesno.



Voci ce que cela donne.


-----------------------------------------------------
Private Sub macommande(Cancel As Integer)
Dim Reponse As Integer
Reponse = MsgBox("Vous venez de saisir une date de fin !" & vbCrLf &
vbCrLf & " Désirez vous fermer la demande ?", vbQuestion + vbYesNo,
"Fermer une demande.")
If Reponse = vbYes Then
DoCmd.OpenForm "F_autreformulaire"
'docmd.close -----> ça ne fonctionne pas !
Else
MsgBox "N'oubliez pas de fermer votre demande plus tard !"
End If
End Sub
-----------------------------------------------------


Merci de votre aide !

Manova








Avatar
Raymond [mvp]
Bonsoir.

il faut se rappeler que l'instruction docmd agit uniquement sur l'objet
actif, c'est-à-dire que si tu n'indiques pas d'objet dans l'instruction
c'est l'objet actif qui est concerné.
dans ton cas tu fermes le formulaire que tu viens d'ouvrir.
si tu inverses l'événement form_load se déclenche immédiatement et tu peux
ne pas avoir le temps d'ouvrir le formulaire.
il faut faire:
DoCmd.OpenForm ..............
DoCmd.Close acForm, Me.Name

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"Manova" a écrit dans le message de
news:Dk1yb.25384$
"Manova" a écrit dans le message de news:
HfVxb.24042$

Bonjour,

J'ai un contrôle sur un formulaire et j'aimerais qu'il ferme le
formulaire


actif après en avoir ouvert un autre. Le tout se fait via un msgbox
vbyesno.



Voci ce que cela donne.


-----------------------------------------------------
Private Sub macommande(Cancel As Integer)
Dim Reponse As Integer
Reponse = MsgBox("Vous venez de saisir une date de fin !" & vbCrLf
&



vbCrLf & " Désirez vous fermer la demande ?", vbQuestion + vbYesNo,
"Fermer une demande.")
If Reponse = vbYes Then
DoCmd.OpenForm "F_autreformulaire"
'docmd.close -----> ça ne fonctionne pas !
Else
MsgBox "N'oubliez pas de fermer votre demande plus tard !"
End If
End Sub
-----------------------------------------------------






Avatar
Manova
J'obtiens la même erreur avec cette méthode (erreur 2585)...

Avez-vous une autre idée ?

Manova.


"Raymond [mvp]" a écrit dans le message de
news:
Bonsoir.

il faut se rappeler que l'instruction docmd agit uniquement sur l'objet
actif, c'est-à-dire que si tu n'indiques pas d'objet dans l'instruction
c'est l'objet actif qui est concerné.
dans ton cas tu fermes le formulaire que tu viens d'ouvrir.
si tu inverses l'événement form_load se déclenche immédiatement et tu peux
ne pas avoir le temps d'ouvrir le formulaire.
il faut faire:
DoCmd.OpenForm ..............
DoCmd.Close acForm, Me.Name

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"Manova" a écrit dans le message de
news:Dk1yb.25384$
"Manova" a écrit dans le message de news:
HfVxb.24042$

Bonjour,

J'ai un contrôle sur un formulaire et j'aimerais qu'il ferme le
formulaire


actif après en avoir ouvert un autre. Le tout se fait via un msgbox
vbyesno.



Voci ce que cela donne.


-----------------------------------------------------
Private Sub macommande(Cancel As Integer)
Dim Reponse As Integer
Reponse = MsgBox("Vous venez de saisir une date de fin !" &
vbCrLf




&
vbCrLf & " Désirez vous fermer la demande ?", vbQuestion +
vbYesNo,




"Fermer une demande.")
If Reponse = vbYes Then
DoCmd.OpenForm "F_autreformulaire"
'docmd.close -----> ça ne fonctionne pas !
Else
MsgBox "N'oubliez pas de fermer votre demande plus tard !"
End If
End Sub
-----------------------------------------------------










Avatar
Raymond [mvp]
Bonjour.

Tu es sûr que c'est sur le close que l'erreur arrive ? quel est le message
exact affiché ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"Manova" a écrit dans le message de
news:U_8yb.28997$
J'obtiens la même erreur avec cette méthode (erreur 2585)...

Avez-vous une autre idée ?

Manova.


"Raymond [mvp]" a écrit dans le message de
news:
Bonsoir.

il faut se rappeler que l'instruction docmd agit uniquement sur l'objet
actif, c'est-à-dire que si tu n'indiques pas d'objet dans l'instruction
c'est l'objet actif qui est concerné.
dans ton cas tu fermes le formulaire que tu viens d'ouvrir.
si tu inverses l'événement form_load se déclenche immédiatement et tu
peux


ne pas avoir le temps d'ouvrir le formulaire.
il faut faire:
DoCmd.OpenForm ..............
DoCmd.Close acForm, Me.Name

--
@+
Raymond Access MVP




Avatar
Manova
Voici l'erreur que j'obtiens :

Erreur d'exécution '2585':

Impossible d'exécuter cette action pendant le traitement d'un événement de
formulaire ou d'état.

L'erreur se produit sur la ligne suivante : DoCmd.Close acForm, Me.Name
(Voir le code ci-dessous).

Au moment où cela se produit, je suis sur un formulaire F_Conclusion. Je
voudrais qu'il se ferme et qu'il ouvre le formulaire F_modification, car
autrement j'ai un autre message si je modifie le formulaire de modification
lorsque celui de conclusion est ouvert. Le message en est un de CONFLIT
D'ÉCRITURE.

Merci pour votre aide.

Manova.

Code utilisé :

Private Sub Calendrier_Exit(Cancel As Integer)
Dim intReponse As Integer
intReponse = MsgBox("Vous venez de saisir une date de fin !" & vbCrLf &
vbCrLf & " Désirez vous fermer la demande ?", vbQuestion + vbYesNo,
"Fermer une demande de service.")
If intReponse = vbNo Then
MsgBox "N'oubliez pas de fermer votre demande plus tard !"
Else
DoCmd.OpenForm "F_Modification"
DoCmd.Close acForm, Me.Name
'DoCmd.Close acForm, "F_Conclusion" (J'ai essayé cette ligne, mais
sans succès)
End If
End Sub


"Raymond [mvp]" a écrit dans le message de
news:
Bonjour.

Tu es sûr que c'est sur le close que l'erreur arrive ? quel est le message
exact affiché ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"Manova" a écrit dans le message de
news:U_8yb.28997$
J'obtiens la même erreur avec cette méthode (erreur 2585)...

Avez-vous une autre idée ?

Manova.


"Raymond [mvp]" a écrit dans le message de
news:
Bonsoir.

il faut se rappeler que l'instruction docmd agit uniquement sur
l'objet



actif, c'est-à-dire que si tu n'indiques pas d'objet dans
l'instruction



c'est l'objet actif qui est concerné.
dans ton cas tu fermes le formulaire que tu viens d'ouvrir.
si tu inverses l'événement form_load se déclenche immédiatement et tu
peux


ne pas avoir le temps d'ouvrir le formulaire.
il faut faire:
DoCmd.OpenForm ..............
DoCmd.Close acForm, Me.Name

--
@+
Raymond Access MVP








Avatar
Raymond [mvp]
essaie de redonner la main à access
DoCmd.Close acForm, Me.Name
DoEvents

DoCmd.OpenForm "F_Modification"


je pense que les deux formulaires ont le même recordsource ? non ?
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"Manova" a écrit dans le message de
news:sfpyb.1602$
Voici l'erreur que j'obtiens :

Erreur d'exécution '2585':

Impossible d'exécuter cette action pendant le traitement d'un événement de
formulaire ou d'état.

L'erreur se produit sur la ligne suivante : DoCmd.Close acForm, Me.Name
(Voir le code ci-dessous).

Au moment où cela se produit, je suis sur un formulaire F_Conclusion. Je
voudrais qu'il se ferme et qu'il ouvre le formulaire F_modification, car
autrement j'ai un autre message si je modifie le formulaire de
modification

lorsque celui de conclusion est ouvert. Le message en est un de CONFLIT
D'ÉCRITURE.

Merci pour votre aide.

Manova.

Code utilisé :

Private Sub Calendrier_Exit(Cancel As Integer)
Dim intReponse As Integer
intReponse = MsgBox("Vous venez de saisir une date de fin !" & vbCrLf
&

vbCrLf & " Désirez vous fermer la demande ?", vbQuestion + vbYesNo,
"Fermer une demande de service.")
If intReponse = vbNo Then
MsgBox "N'oubliez pas de fermer votre demande plus tard !"
Else
DoCmd.OpenForm "F_Modification"
DoCmd.Close acForm, Me.Name
'DoCmd.Close acForm, "F_Conclusion" (J'ai essayé cette ligne, mais
sans succès)
End If
End Sub


"Raymond [mvp]" a écrit dans le message de
news:
Bonjour.

Tu es sûr que c'est sur le close que l'erreur arrive ? quel est le
message


exact affiché ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"Manova" a écrit dans le message de
news:U_8yb.28997$
J'obtiens la même erreur avec cette méthode (erreur 2585)...

Avez-vous une autre idée ?

Manova.


"Raymond [mvp]" a écrit dans le message
de



news:
Bonsoir.

il faut se rappeler que l'instruction docmd agit uniquement sur
l'objet



actif, c'est-à-dire que si tu n'indiques pas d'objet dans
l'instruction



c'est l'objet actif qui est concerné.
dans ton cas tu fermes le formulaire que tu viens d'ouvrir.
si tu inverses l'événement form_load se déclenche immédiatement et
tu




peux
ne pas avoir le temps d'ouvrir le formulaire.
il faut faire:
DoCmd.OpenForm ..............
DoCmd.Close acForm, Me.Name

--
@+
Raymond Access MVP












Avatar
Manova
En effet, on ne peut rien vous cacher, car ils ont effectivement le même
recordsource.

Merci, le code que vous m'avez donné fonctionne à merveille.

@+

Manova.


"Raymond [mvp]" a écrit dans le message de
news:
essaie de redonner la main à access
DoCmd.Close acForm, Me.Name
DoEvents

DoCmd.OpenForm "F_Modification"


je pense que les deux formulaires ont le même recordsource ? non ?
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"Manova" a écrit dans le message de
news:sfpyb.1602$
Voici l'erreur que j'obtiens :

Erreur d'exécution '2585':

Impossible d'exécuter cette action pendant le traitement d'un événement
de


formulaire ou d'état.

L'erreur se produit sur la ligne suivante : DoCmd.Close acForm, Me.Name
(Voir le code ci-dessous).

Au moment où cela se produit, je suis sur un formulaire F_Conclusion. Je
voudrais qu'il se ferme et qu'il ouvre le formulaire F_modification, car
autrement j'ai un autre message si je modifie le formulaire de
modification

lorsque celui de conclusion est ouvert. Le message en est un de CONFLIT
D'ÉCRITURE.

Merci pour votre aide.

Manova.

Code utilisé :

Private Sub Calendrier_Exit(Cancel As Integer)
Dim intReponse As Integer
intReponse = MsgBox("Vous venez de saisir une date de fin !" &
vbCrLf


&
vbCrLf & " Désirez vous fermer la demande ?", vbQuestion + vbYesNo,
"Fermer une demande de service.")
If intReponse = vbNo Then
MsgBox "N'oubliez pas de fermer votre demande plus tard !"
Else
DoCmd.OpenForm "F_Modification"
DoCmd.Close acForm, Me.Name
'DoCmd.Close acForm, "F_Conclusion" (J'ai essayé cette ligne,
mais


sans succès)
End If
End Sub


"Raymond [mvp]" a écrit dans le message de
news:
Bonjour.

Tu es sûr que c'est sur le close que l'erreur arrive ? quel est le
message


exact affiché ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"Manova" a écrit dans le message de
news:U_8yb.28997$
J'obtiens la même erreur avec cette méthode (erreur 2585)...

Avez-vous une autre idée ?

Manova.


"Raymond [mvp]" a écrit dans le message
de



news:
Bonsoir.

il faut se rappeler que l'instruction docmd agit uniquement sur
l'objet



actif, c'est-à-dire que si tu n'indiques pas d'objet dans
l'instruction



c'est l'objet actif qui est concerné.
dans ton cas tu fermes le formulaire que tu viens d'ouvrir.
si tu inverses l'événement form_load se déclenche immédiatement et
tu




peux
ne pas avoir le temps d'ouvrir le formulaire.
il faut faire:
DoCmd.OpenForm ..............
DoCmd.Close acForm, Me.Name

--
@+
Raymond Access MVP