Et oui 'est encore moi , je n'arrete plus.
Cette fois ci c'est une question tr=E8s pr=E9cise:
Je voudrais tester si un formulaire existe ou non dans la=20
base, alors bon j'ai essay=E9 pllusieurs trucs mais sans=20
succ=E8s tels que:
If Isnull(Forms(Docname))
If Iserror(Forms(Dcname))
A chaque il me repondait qu'il ne trouvait le formulaire=20
docname et pour cause il n'existe pas.
Y aurait -il une focntion sp=E9cifique ou si vous avez une=20
id=E9e ?
je vous en remercie d'avance
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
JAG
-----Message d'origine----- Bonjour.
Chaque fois que tu fais appel à un formulaire et que celui-ci n'existe pas
une erreur est renvoyée par access qu'il suffit de capter.
tu peux faire :
On Error GoTo PasTrouvé DoCmd.OpenForm "formulaire3" Exit Sub PasTrouvé: MsgBox "pas trouvé" End Sub
Tu peux aussi tester si le nom de ton formulaire existe dans la base en
bouclant dans l'objet currentproject.allforms. c'est plus beau mais plus
long et pas plus efficace:
Dim Frm As AccessObject For Each Frm In CurrentProject.AllForms If Frm.Name = "formulaire2" Then MsgBox "trouvé" set Frm = Nothing Exit Sub End If Next Frm MsgBox "pas trouvé" set Frm = Nothing End Sub
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"JAG" a écrit dans le message de news:0c5d01c367e4$33d1fcb0$ Et oui 'est encore moi , je n'arrete plus. Cette fois ci c'est une question très précise: Je voudrais tester si un formulaire existe ou non dans la base, alors bon j'ai essayé pllusieurs trucs mais sans succès tels que: If Isnull(Forms(Docname)) If Iserror(Forms(Dcname)) A chaque il me repondait qu'il ne trouvait le formulaire docname et pour cause il n'existe pas. Y aurait -il une focntion spécifique ou si vous avez une idée ? je vous en remercie d'avance
.
-----Message d'origine-----
Bonjour.
Chaque fois que tu fais appel à un formulaire et que
celui-ci n'existe pas
une erreur est renvoyée par access qu'il suffit de
capter.
tu peux faire :
On Error GoTo PasTrouvé
DoCmd.OpenForm "formulaire3"
Exit Sub
PasTrouvé:
MsgBox "pas trouvé"
End Sub
Tu peux aussi tester si le nom de ton formulaire existe
dans la base en
bouclant dans l'objet currentproject.allforms. c'est
plus beau mais plus
long et pas plus efficace:
Dim Frm As AccessObject
For Each Frm In CurrentProject.AllForms
If Frm.Name = "formulaire2" Then
MsgBox "trouvé"
set Frm = Nothing
Exit Sub
End If
Next Frm
MsgBox "pas trouvé"
set Frm = Nothing
End Sub
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"JAG" <yoman@hotmail.com> a écrit dans le message de
news:0c5d01c367e4$33d1fcb0$a401280a@phx.gbl...
Et oui 'est encore moi , je n'arrete plus.
Cette fois ci c'est une question très précise:
Je voudrais tester si un formulaire existe ou non dans la
base, alors bon j'ai essayé pllusieurs trucs mais sans
succès tels que:
If Isnull(Forms(Docname))
If Iserror(Forms(Dcname))
A chaque il me repondait qu'il ne trouvait le formulaire
docname et pour cause il n'existe pas.
Y aurait -il une focntion spécifique ou si vous avez une
idée ?
je vous en remercie d'avance
Chaque fois que tu fais appel à un formulaire et que celui-ci n'existe pas
une erreur est renvoyée par access qu'il suffit de capter.
tu peux faire :
On Error GoTo PasTrouvé DoCmd.OpenForm "formulaire3" Exit Sub PasTrouvé: MsgBox "pas trouvé" End Sub
Tu peux aussi tester si le nom de ton formulaire existe dans la base en
bouclant dans l'objet currentproject.allforms. c'est plus beau mais plus
long et pas plus efficace:
Dim Frm As AccessObject For Each Frm In CurrentProject.AllForms If Frm.Name = "formulaire2" Then MsgBox "trouvé" set Frm = Nothing Exit Sub End If Next Frm MsgBox "pas trouvé" set Frm = Nothing End Sub
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"JAG" a écrit dans le message de news:0c5d01c367e4$33d1fcb0$ Et oui 'est encore moi , je n'arrete plus. Cette fois ci c'est une question très précise: Je voudrais tester si un formulaire existe ou non dans la base, alors bon j'ai essayé pllusieurs trucs mais sans succès tels que: If Isnull(Forms(Docname)) If Iserror(Forms(Dcname)) A chaque il me repondait qu'il ne trouvait le formulaire docname et pour cause il n'existe pas. Y aurait -il une focntion spécifique ou si vous avez une idée ? je vous en remercie d'avance
