Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access insérer du code vba en création dynamique

insérer du code vba en création dynamique

2 réponses
Avatar
doudou
bonjour,

Voil=E0 je voudrait ins=E9rer du code vba en cr=E9ation dynamique

quand je fait un create control. je voudrait pourvoir=20
ins=E9rer du code dans une prc=E9dure =E9v=E9nementielle grace =E0=20
du code vba.


Ps: Pour info j'ai chet=E9 ACCESSRECOVERY 2.2 au prix de 399
$ ce qui ma permit de r=E9cup=E9rer ma base .
Signaler un problème avec ce contenu

2 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
Raymond [mvp]
RE.

en création de formulaire et de controle , il faut faire:

Function ClickEventProc() As Boolean
Dim frm As Form
Dim ctl As Control
Dim mdl As Module
Dim lngReturn As Long
On Error GoTo Error_ClickEventProc
Set frm = CreateForm
Set ctl = CreateControl(frm.Name, acCommandButton _
, , , , 1000, 1000)
ctl.Caption = "ceci est un bouton"
ctl.Name = "commande30"
Set mdl = frm.Module
lngReturn = mdl.CreateEventProc("Click", ctl.Name)
mdl.InsertLines lngReturn + 1, vbTab & _
"MsgBox ""Je suis raymond.""" _
& vbCrLf & vbTab & "' ceci est une procédure"
ClickEventProc = True
Exit Function

Error_ClickEventProc:
MsgBox Err & " :" & Err.Description
ClickEventProc = False
End Function

en modif de formulaire et création de controle, je ne me rappelle plus.
quand tu auras terminé ta fonction aux petits oignons, tu pourras me la
passer pour mon site ?
le prix de ACCESSRECOVERY est cher mais rien à côté du prix d'une base
perdue.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"doudou" a écrit dans le message de
news:1e48601c45538$2d7246d0$
bonjour,

Voilà je voudrait insérer du code vba en création dynamique

quand je fait un create control. je voudrait pourvoir
insérer du code dans une prcédure événementielle grace à
du code vba.


Ps: Pour info j'ai cheté ACCESSRECOVERY 2.2 au prix de 399
$ ce qui ma permit de récupérer ma base .
Avatar
Doudou
Ok je fait ma fonction puis je te la passerait avec un grand plaisir.
bon week end

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

en création de formulaire et de controle , il faut faire:

Function ClickEventProc() As Boolean
Dim frm As Form
Dim ctl As Control
Dim mdl As Module
Dim lngReturn As Long
On Error GoTo Error_ClickEventProc
Set frm = CreateForm
Set ctl = CreateControl(frm.Name, acCommandButton _
, , , , 1000, 1000)
ctl.Caption = "ceci est un bouton"
ctl.Name = "commande30"
Set mdl = frm.Module
lngReturn = mdl.CreateEventProc("Click", ctl.Name)
mdl.InsertLines lngReturn + 1, vbTab & _
"MsgBox ""Je suis raymond.""" _
& vbCrLf & vbTab & "' ceci est une procédure"
ClickEventProc = True
Exit Function

Error_ClickEventProc:
MsgBox Err & " :" & Err.Description
ClickEventProc = False
End Function

en modif de formulaire et création de controle, je ne me rappelle plus.
quand tu auras terminé ta fonction aux petits oignons, tu pourras me la
passer pour mon site ?
le prix de ACCESSRECOVERY est cher mais rien à côté du prix d'une base
perdue.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"doudou" a écrit dans le message de
news:1e48601c45538$2d7246d0$
bonjour,

Voilà je voudrait insérer du code vba en création dynamique

quand je fait un create control. je voudrait pourvoir
insérer du code dans une prcédure événementielle grace à
du code vba.


Ps: Pour info j'ai cheté ACCESSRECOVERY 2.2 au prix de 399
$ ce qui ma permit de récupérer ma base .