OVH Cloud OVH Cloud

code VB

2 réponses
Avatar
Patrice
bonjour,

Où est mon erreur ?

Set frm = CreateReport

Set mdl = Reports!état1.Module

lngReturn = mdl.CreateEventProc("open", "état1")
sur cette ligne ==> gestionnaire d'évènement non valide

mdl.InsertLines Nz(lngReturn, 0) + 1, vbTab &
"Prn.DefaultPrinter.Orientation = acPRORLandscape"

ClickEventProc = True

Merci

2 réponses

Avatar
Raymond [mvp]
Bonjour.

ton code me semble un peu court pour un nouvel état.
tu trouveras un modèle de code pour créer un formulaire dynamique (snapshot)
qui se rapproche de très près à la création d'un état , dans lequel il y a
une création de procédure dans le module vb.
en espérant que tu trouveras des idées.
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,

Où est mon erreur ?

Set frm = CreateReport

Set mdl = Reports!état1.Module

lngReturn = mdl.CreateEventProc("open", "état1")
sur cette ligne ==> gestionnaire d'évènement non valide

mdl.InsertLines Nz(lngReturn, 0) + 1, vbTab &
"Prn.DefaultPrinter.Orientation = acPRORLandscape"

ClickEventProc = True

Merci



Avatar
Patrice
merci,
Ce n'est qu'une petite partie du code.
J'arrive à créer un bouton et y adjoindre du code VB par le biais de
CreateEventProc
mais losqu'il s'agit de mettre du code VB directement sur un événement lié
au formulaire (open ou close ...) il y a l'erreur décrite ci_dessous.
Je suis aller sur le site préconisé, ca m'a paru un peu compliqué, je n'y ai
pas trouvé la synthaxe pour la fonction ci_dessus



Bonjour.

ton code me semble un peu court pour un nouvel état.
tu trouveras un modèle de code pour créer un formulaire dynamique (snapshot)
qui se rapproche de très près à la création d'un état , dans lequel il y a
une création de procédure dans le module vb.
en espérant que tu trouveras des idées.
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,

Où est mon erreur ?

Set frm = CreateReport

Set mdl = Reports!état1.Module

lngReturn = mdl.CreateEventProc("open", "état1")
sur cette ligne ==> gestionnaire d'évènement non valide

mdl.InsertLines Nz(lngReturn, 0) + 1, vbTab &
"Prn.DefaultPrinter.Orientation = acPRORLandscape"

ClickEventProc = True

Merci