Félicitations !
+
0
points
En savoir plus
Actualités
Tests & Guides
Bons Plans
Forum
Premium
Rechercher sur le site
Connexion
Si votre email correspond à un compte, vous recevrez un lien de réinitialisation.
Réinitialiser le mot de passe
Retour connexion
Actualités
Tests & Guides
Bons Plans
GTA 6
iPhone 17
Copilot
Switch 2
Temu
ChatGPT
Tesla
Génération NT
Entraide
Applications
Microsoft Office
Access
Code d'un formulaire
Code d'un formulaire
1 réponse
Jean-Claude Meuterlos
04/12/2003 à 11:50
Bonjour,
j'aimerais pouvoir modifier le code d'un formulaire (l'événement
before_insert) d'une base Bd1 à partir d'une autre base Bd2.
quelq'un a-t-il une solution ?
merci d'avance
Partager
Facebook
Twitter
Reddit
Whatsapp
Email
Signaler
Signaler un problème avec ce contenu
Envoyer
1 réponse
Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Supprimer
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Envoyer
Xavier HUE
Signaler
04/12/2003 à 15:47
Bonjour Jean-Claude,
Directement inspiré d'une réponse de Raymond un peu plus
bas (Ouverture base via VBA). Merci Raymond :-)
Sub LireModuleDeClasseFormulaire()
Dim APP As Access.Application
Dim frm As Form
Dim mdl As Module
Set APP = New Access.Application
APP.OpenCurrentDatabase ("db2.mdb")
APP.DoCmd.OpenForm "FrmDansBaseExterne", acPreview
Set frm = APP.Forms("FrmDansBaseExterne")
Set mdl = frm.Module
'A partir de là, c'est à toit de jouer!
Debug.Print mdl.Lines(1, 1) 'Affiche la première ligne
'etc
Set mdl = Nothing
APP.DoCmd.Close acForm, "FrmDansBaseExterne",
acSaveYes 'ou acsaveprompt
Set frm = Nothing
APP.CloseCurrentDatabase
APP.Quit
Set APP = Nothing
End Sub
Pour éditer le module il faut passer par la propriété
Lines de l'objet Module.
Vois l'aide sur Lines.
Ce n'est plus que du traitement de chaine alpha.
Ca t'aide?
Cordialement.
Bonjour Jean-Claude,
Directement inspiré d'une réponse de Raymond un peu plus
bas (Ouverture base via VBA). Merci Raymond :-)
Sub LireModuleDeClasseFormulaire()
Dim APP As Access.Application
Dim frm As Form
Dim mdl As Module
Set APP = New Access.Application
APP.OpenCurrentDatabase ("db2.mdb")
APP.DoCmd.OpenForm "FrmDansBaseExterne", acPreview
Set frm = APP.Forms("FrmDansBaseExterne")
Set mdl = frm.Module
'A partir de là, c'est à toit de jouer!
Debug.Print mdl.Lines(1, 1) 'Affiche la première ligne
'etc
Set mdl = Nothing
APP.DoCmd.Close acForm, "FrmDansBaseExterne",
acSaveYes 'ou acsaveprompt
Set frm = Nothing
APP.CloseCurrentDatabase
APP.Quit
Set APP = Nothing
End Sub
Pour éditer le module il faut passer par la propriété
Lines de l'objet Module.
Vois l'aide sur Lines.
Ce n'est plus que du traitement de chaine alpha.
Ca t'aide?
Cordialement.
Vous avez filtré cet utilisateur ! Consultez son message
Bonjour Jean-Claude,
Directement inspiré d'une réponse de Raymond un peu plus
bas (Ouverture base via VBA). Merci Raymond :-)
Sub LireModuleDeClasseFormulaire()
Dim APP As Access.Application
Dim frm As Form
Dim mdl As Module
Set APP = New Access.Application
APP.OpenCurrentDatabase ("db2.mdb")
APP.DoCmd.OpenForm "FrmDansBaseExterne", acPreview
Set frm = APP.Forms("FrmDansBaseExterne")
Set mdl = frm.Module
'A partir de là, c'est à toit de jouer!
Debug.Print mdl.Lines(1, 1) 'Affiche la première ligne
'etc
Set mdl = Nothing
APP.DoCmd.Close acForm, "FrmDansBaseExterne",
acSaveYes 'ou acsaveprompt
Set frm = Nothing
APP.CloseCurrentDatabase
APP.Quit
Set APP = Nothing
End Sub
Pour éditer le module il faut passer par la propriété
Lines de l'objet Module.
Vois l'aide sur Lines.
Ce n'est plus que du traitement de chaine alpha.
Ca t'aide?
Cordialement.
