Je cré un formulaire par le biais de VB, sur ce formulaire, je cré un bouton
sur lequel j'insère du code sur l'événement "Click" tjs par VB avec le code
suivant :
Dim ctl As Control, mdl As Module
Dim lngReturn As Long
Set ctl = CreateControl(frm.Name, acCommandButton, , , , 5000, H + 1000,
1300, 800)
ctl.Caption = "Sortie"
Set mdl = frm.Module
lngReturn = mdl.CreateEventProc("Click", ctl.Name)
mdl.InsertLines Nz(lngReturn, 0) + 1, vbTab & "DoCmd.close"
mdl.InsertLines Nz(lngReturn, 0) + 2, vbTab & "DoCmd.SelectObject
acForm, ""graphique"""
mdl.InsertLines Nz(lngReturn, 0) + 3, vbTab & "DoCmd.Restore"
ClickEventProc = True
Cette première partie (ci-dessus) fonctionne trés bien .
Par contre losque je veux insèrer le code (ci_dessous) sur l'évènement
fermeture du formulaire, J'ai un message d'erreur qui me dit : Gestionnaire
d'évènement non valide ! (Il bloque sur "CreateEventProc")
Quelle est mon erreur ?
Merci de votre aide.
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
Raymond [mvp]
Bonjour.
tu trouveras un modèle de création de formulaire instantané avec une procédure Form_load sur la page : http://officesystem.access.free.fr/vba/formsnapshot.htm
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Patrice" a écrit dans le message de news:
Bonjour,
Je cré un formulaire par le biais de VB, sur ce formulaire, je cré un bouton sur lequel j'insère du code sur l'événement "Click" tjs par VB avec le code suivant :
Dim ctl As Control, mdl As Module Dim lngReturn As Long Set ctl = CreateControl(frm.Name, acCommandButton, , , , 5000, H + 1000, 1300, 800) ctl.Caption = "Sortie" Set mdl = frm.Module lngReturn = mdl.CreateEventProc("Click", ctl.Name) mdl.InsertLines Nz(lngReturn, 0) + 1, vbTab & "DoCmd.close" mdl.InsertLines Nz(lngReturn, 0) + 2, vbTab & "DoCmd.SelectObject acForm, ""graphique""" mdl.InsertLines Nz(lngReturn, 0) + 3, vbTab & "DoCmd.Restore" ClickEventProc = True
Cette première partie (ci-dessus) fonctionne trés bien .
Par contre losque je veux insèrer le code (ci_dessous) sur l'évènement fermeture du formulaire, J'ai un message d'erreur qui me dit : Gestionnaire d'évènement non valide ! (Il bloque sur "CreateEventProc") Quelle est mon erreur ? Merci de votre aide.
tu trouveras un modèle de création de formulaire instantané avec une
procédure Form_load sur la page :
http://officesystem.access.free.fr/vba/formsnapshot.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Patrice" <Patrice@discussions.microsoft.com> a écrit dans le message de
news: C61A331D-2B99-44EC-950D-AB3DCCBFC2CD@microsoft.com...
Bonjour,
Je cré un formulaire par le biais de VB, sur ce formulaire, je cré un
bouton
sur lequel j'insère du code sur l'événement "Click" tjs par VB avec le
code
suivant :
Dim ctl As Control, mdl As Module
Dim lngReturn As Long
Set ctl = CreateControl(frm.Name, acCommandButton, , , , 5000, H +
1000,
1300, 800)
ctl.Caption = "Sortie"
Set mdl = frm.Module
lngReturn = mdl.CreateEventProc("Click", ctl.Name)
mdl.InsertLines Nz(lngReturn, 0) + 1, vbTab & "DoCmd.close"
mdl.InsertLines Nz(lngReturn, 0) + 2, vbTab & "DoCmd.SelectObject
acForm, ""graphique"""
mdl.InsertLines Nz(lngReturn, 0) + 3, vbTab & "DoCmd.Restore"
ClickEventProc = True
Cette première partie (ci-dessus) fonctionne trés bien .
Par contre losque je veux insèrer le code (ci_dessous) sur l'évènement
fermeture du formulaire, J'ai un message d'erreur qui me dit :
Gestionnaire
d'évènement non valide ! (Il bloque sur "CreateEventProc")
Quelle est mon erreur ?
Merci de votre aide.
tu trouveras un modèle de création de formulaire instantané avec une procédure Form_load sur la page : http://officesystem.access.free.fr/vba/formsnapshot.htm
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Patrice" a écrit dans le message de news:
Bonjour,
Je cré un formulaire par le biais de VB, sur ce formulaire, je cré un bouton sur lequel j'insère du code sur l'événement "Click" tjs par VB avec le code suivant :
Dim ctl As Control, mdl As Module Dim lngReturn As Long Set ctl = CreateControl(frm.Name, acCommandButton, , , , 5000, H + 1000, 1300, 800) ctl.Caption = "Sortie" Set mdl = frm.Module lngReturn = mdl.CreateEventProc("Click", ctl.Name) mdl.InsertLines Nz(lngReturn, 0) + 1, vbTab & "DoCmd.close" mdl.InsertLines Nz(lngReturn, 0) + 2, vbTab & "DoCmd.SelectObject acForm, ""graphique""" mdl.InsertLines Nz(lngReturn, 0) + 3, vbTab & "DoCmd.Restore" ClickEventProc = True
Cette première partie (ci-dessus) fonctionne trés bien .
Par contre losque je veux insèrer le code (ci_dessous) sur l'évènement fermeture du formulaire, J'ai un message d'erreur qui me dit : Gestionnaire d'évènement non valide ! (Il bloque sur "CreateEventProc") Quelle est mon erreur ? Merci de votre aide.
J'en profite pour vous dire combien ce site est précieux.
Il m'a déjà fait gagner des nombreuses heures et surtout m'a apporté des solutions que je ne trouvais pas.
Encore un grand merci à toute l'équipe
Bonjour.
tu trouveras un modèle de création de formulaire instantané avec une procédure Form_load sur la page : http://officesystem.access.free.fr/vba/formsnapshot.htm
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Patrice" a écrit dans le message de news:
Bonjour,
Je cré un formulaire par le biais de VB, sur ce formulaire, je cré un bouton sur lequel j'insère du code sur l'événement "Click" tjs par VB avec le code suivant :
Dim ctl As Control, mdl As Module Dim lngReturn As Long Set ctl = CreateControl(frm.Name, acCommandButton, , , , 5000, H + 1000, 1300, 800) ctl.Caption = "Sortie" Set mdl = frm.Module lngReturn = mdl.CreateEventProc("Click", ctl.Name) mdl.InsertLines Nz(lngReturn, 0) + 1, vbTab & "DoCmd.close" mdl.InsertLines Nz(lngReturn, 0) + 2, vbTab & "DoCmd.SelectObject acForm, ""graphique""" mdl.InsertLines Nz(lngReturn, 0) + 3, vbTab & "DoCmd.Restore" ClickEventProc = True
Cette première partie (ci-dessus) fonctionne trés bien .
Par contre losque je veux insèrer le code (ci_dessous) sur l'évènement fermeture du formulaire, J'ai un message d'erreur qui me dit : Gestionnaire d'évènement non valide ! (Il bloque sur "CreateEventProc") Quelle est mon erreur ? Merci de votre aide.
J'en profite pour vous dire combien ce site est précieux.
Il m'a déjà fait gagner des nombreuses heures et surtout m'a apporté des
solutions que je ne trouvais pas.
Encore un grand merci à toute l'équipe
Bonjour.
tu trouveras un modèle de création de formulaire instantané avec une
procédure Form_load sur la page :
http://officesystem.access.free.fr/vba/formsnapshot.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Patrice" <Patrice@discussions.microsoft.com> a écrit dans le message de
news: C61A331D-2B99-44EC-950D-AB3DCCBFC2CD@microsoft.com...
Bonjour,
Je cré un formulaire par le biais de VB, sur ce formulaire, je cré un
bouton
sur lequel j'insère du code sur l'événement "Click" tjs par VB avec le
code
suivant :
Dim ctl As Control, mdl As Module
Dim lngReturn As Long
Set ctl = CreateControl(frm.Name, acCommandButton, , , , 5000, H +
1000,
1300, 800)
ctl.Caption = "Sortie"
Set mdl = frm.Module
lngReturn = mdl.CreateEventProc("Click", ctl.Name)
mdl.InsertLines Nz(lngReturn, 0) + 1, vbTab & "DoCmd.close"
mdl.InsertLines Nz(lngReturn, 0) + 2, vbTab & "DoCmd.SelectObject
acForm, ""graphique"""
mdl.InsertLines Nz(lngReturn, 0) + 3, vbTab & "DoCmd.Restore"
ClickEventProc = True
Cette première partie (ci-dessus) fonctionne trés bien .
Par contre losque je veux insèrer le code (ci_dessous) sur l'évènement
fermeture du formulaire, J'ai un message d'erreur qui me dit :
Gestionnaire
d'évènement non valide ! (Il bloque sur "CreateEventProc")
Quelle est mon erreur ?
Merci de votre aide.
J'en profite pour vous dire combien ce site est précieux.
Il m'a déjà fait gagner des nombreuses heures et surtout m'a apporté des solutions que je ne trouvais pas.
Encore un grand merci à toute l'équipe
Bonjour.
tu trouveras un modèle de création de formulaire instantané avec une procédure Form_load sur la page : http://officesystem.access.free.fr/vba/formsnapshot.htm
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Patrice" a écrit dans le message de news:
Bonjour,
Je cré un formulaire par le biais de VB, sur ce formulaire, je cré un bouton sur lequel j'insère du code sur l'événement "Click" tjs par VB avec le code suivant :
Dim ctl As Control, mdl As Module Dim lngReturn As Long Set ctl = CreateControl(frm.Name, acCommandButton, , , , 5000, H + 1000, 1300, 800) ctl.Caption = "Sortie" Set mdl = frm.Module lngReturn = mdl.CreateEventProc("Click", ctl.Name) mdl.InsertLines Nz(lngReturn, 0) + 1, vbTab & "DoCmd.close" mdl.InsertLines Nz(lngReturn, 0) + 2, vbTab & "DoCmd.SelectObject acForm, ""graphique""" mdl.InsertLines Nz(lngReturn, 0) + 3, vbTab & "DoCmd.Restore" ClickEventProc = True
Cette première partie (ci-dessus) fonctionne trés bien .
Par contre losque je veux insèrer le code (ci_dessous) sur l'évènement fermeture du formulaire, J'ai un message d'erreur qui me dit : Gestionnaire d'évènement non valide ! (Il bloque sur "CreateEventProc") Quelle est mon erreur ? Merci de votre aide.
