Bonjour et Merci Eric pour ce bout de code, cela fonctionne.
Je crois savoir que l'erreur venait que j'avais mis DoCmd.Minimize et la
fonction obligeait le forms à rester réduit.
Merci Eric, et à tous les autres du New Group.
Merci à tous ceux qui m'ont secouru Jérome, Michel, thierry, merci pour
votre patience et bon week end à tous.
Bernard
________________________________________________________________________
Private Sub Commande1_Click()
If CurrentProject.AllForms("Répertoire").IsLoaded Then
DoCmd.SelectObject acForm, "Répertoire"
DoCmd.Restore
End If
DoCmd.Close acForm, Me.Name
End Sub
--
Bernard FANGET Movie Room Manager
Multiplexe Cinema DECAVISION - 7 avenue de Brogny
74000 ANNECY France
Fax : 04 50 52 58 31
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
Pierre CFI [mvp]
un merci est leur seule récompense, il le mérite mais, monsieur cinéma, tu vas continuer à poser des questions j'espére :o)))
-- Pierre MVP Access *************************************** Conseils MPFA: http://www.mpfa.info/ ********************************************************* "Cinémas Décavision" a écrit dans le message de news: 4722f14c$0$5076$
Bonjour et Merci Eric pour ce bout de code, cela fonctionne.
Je crois savoir que l'erreur venait que j'avais mis DoCmd.Minimize et la fonction obligeait le forms à rester réduit.
Merci Eric, et à tous les autres du New Group. Merci à tous ceux qui m'ont secouru Jérome, Michel, thierry, merci pour votre patience et bon week end à tous.
Bernard
________________________________________________________________________ Private Sub Commande1_Click() If CurrentProject.AllForms("Répertoire").IsLoaded Then DoCmd.SelectObject acForm, "Répertoire" DoCmd.Restore End If DoCmd.Close acForm, Me.Name End Sub
-- Bernard FANGET Movie Room Manager Multiplexe Cinema DECAVISION - 7 avenue de Brogny 74000 ANNECY France Fax : 04 50 52 58 31
http://www.decavision.com/
un merci est leur seule récompense, il le mérite
mais, monsieur cinéma, tu vas continuer à poser des questions j'espére :o)))
--
Pierre
MVP Access
***************************************
Conseils MPFA: http://www.mpfa.info/
*********************************************************
"Cinémas Décavision" <pdg@decavision.fr> a écrit dans le message de news:
4722f14c$0$5076$ba4acef3@news.orange.fr...
Bonjour et Merci Eric pour ce bout de code, cela fonctionne.
Je crois savoir que l'erreur venait que j'avais mis DoCmd.Minimize et la
fonction obligeait le forms à rester réduit.
Merci Eric, et à tous les autres du New Group.
Merci à tous ceux qui m'ont secouru Jérome, Michel, thierry, merci pour
votre patience et bon week end à tous.
Bernard
________________________________________________________________________
Private Sub Commande1_Click()
If CurrentProject.AllForms("Répertoire").IsLoaded Then
DoCmd.SelectObject acForm, "Répertoire"
DoCmd.Restore
End If
DoCmd.Close acForm, Me.Name
End Sub
--
Bernard FANGET Movie Room Manager
Multiplexe Cinema DECAVISION - 7 avenue de Brogny
74000 ANNECY France
Fax : 04 50 52 58 31
un merci est leur seule récompense, il le mérite mais, monsieur cinéma, tu vas continuer à poser des questions j'espére :o)))
-- Pierre MVP Access *************************************** Conseils MPFA: http://www.mpfa.info/ ********************************************************* "Cinémas Décavision" a écrit dans le message de news: 4722f14c$0$5076$
Bonjour et Merci Eric pour ce bout de code, cela fonctionne.
Je crois savoir que l'erreur venait que j'avais mis DoCmd.Minimize et la fonction obligeait le forms à rester réduit.
Merci Eric, et à tous les autres du New Group. Merci à tous ceux qui m'ont secouru Jérome, Michel, thierry, merci pour votre patience et bon week end à tous.
Bernard
________________________________________________________________________ Private Sub Commande1_Click() If CurrentProject.AllForms("Répertoire").IsLoaded Then DoCmd.SelectObject acForm, "Répertoire" DoCmd.Restore End If DoCmd.Close acForm, Me.Name End Sub
-- Bernard FANGET Movie Room Manager Multiplexe Cinema DECAVISION - 7 avenue de Brogny 74000 ANNECY France Fax : 04 50 52 58 31
http://www.decavision.com/
Thierry (ze Titi)
Bonjour Bernard,
Merci à tous ceux qui m'ont secouru Jérome, Michel, thierry, merci pour votre patience et bon week end à tous. Merci à toi et bravo pour ta persévérance ! Ca fait toujours plaisir de
voir que pendant que certains s'évertuent à ne faire que du copier-coller des propositions que chaque contributeur fait, d'autres s'attachent à comprendre le sens de ces mêmes propositions. Et c'est très motivant pour tous ces contributeurs. Merci pour ça !
-- Cordialement, Thierry
Tout pour réussir avec Access : http://www.mpfa.info
Bonjour Bernard,
Merci à tous ceux qui m'ont secouru Jérome, Michel, thierry, merci pour
votre patience et bon week end à tous.
Merci à toi et bravo pour ta persévérance ! Ca fait toujours plaisir de
voir que pendant que certains s'évertuent à ne faire que du
copier-coller des propositions que chaque contributeur fait, d'autres
s'attachent à comprendre le sens de ces mêmes propositions. Et c'est
très motivant pour tous ces contributeurs.
Merci pour ça !
--
Cordialement,
Thierry
Tout pour réussir avec Access :
http://www.mpfa.info
Merci à tous ceux qui m'ont secouru Jérome, Michel, thierry, merci pour votre patience et bon week end à tous. Merci à toi et bravo pour ta persévérance ! Ca fait toujours plaisir de
voir que pendant que certains s'évertuent à ne faire que du copier-coller des propositions que chaque contributeur fait, d'autres s'attachent à comprendre le sens de ces mêmes propositions. Et c'est très motivant pour tous ces contributeurs. Merci pour ça !
-- Cordialement, Thierry
Tout pour réussir avec Access : http://www.mpfa.info
Cinémas Décavision
OUi je vous remercie tous et j'espère ne pas trop vous poser de questions au fur et à mesure de mes petits progrés (If Manque de temps = Contributeurs des news). J'avance quand même ... Vous etes tous super tolérant et je vous en remercie beaucoup.
Bernard
-- Bernard FANGET Movie Room Manager Multiplexe Cinema DECAVISION - 7 avenue de Brogny 74000 ANNECY France Fax : 04 50 52 58 31
http://www.decavision.com/
OUi je vous remercie tous et j'espère ne pas trop vous poser de questions au
fur et à mesure de mes petits progrés (If Manque de temps = Contributeurs
des news). J'avance quand même ...
Vous etes tous super tolérant et je vous en remercie beaucoup.
Bernard
--
Bernard FANGET Movie Room Manager
Multiplexe Cinema DECAVISION - 7 avenue de Brogny
74000 ANNECY France
Fax : 04 50 52 58 31
OUi je vous remercie tous et j'espère ne pas trop vous poser de questions au fur et à mesure de mes petits progrés (If Manque de temps = Contributeurs des news). J'avance quand même ... Vous etes tous super tolérant et je vous en remercie beaucoup.
Bernard
-- Bernard FANGET Movie Room Manager Multiplexe Cinema DECAVISION - 7 avenue de Brogny 74000 ANNECY France Fax : 04 50 52 58 31