Discussion :

[GChevet]

Bonjour, je cherche à générer une simple textbox a l'ouverture d'un formulaire
de facon dynamique. Aussi, quoi que je fasse, il y a toujours un probleme.
Par exemple, pour les lignes suivantes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim tb As New TextBox
Me.Controls(3).CreateControl (tb)

l'aplication retourne l'erreur suivante :

Erreur d'execution 429. Un composant activex ne peut pas créer d'objet

A chaque fois que j'essai autre chose, une erreur survient. Je dois trouver
rapidement une solution et aucun tuto ou autre n'a pu me secourir.
J'espère donc trouver ici solution a mon probleme.

Pour d'avance

Guillaume

[LedZeppII]

Bonjour,

à ma connaissance c'est plutôt comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim tbCtl As TextBox
Set tbCtl = Application.CreateControl("NomFormulaire", acTextBox, acDetail)

avec le formulaire ouvert en mode 'Design'

D'autres discussions similaires ici

Bon courage

[GChevet]

Bonjour,

Merci beaucoup pour ton aide. Je commence enfin a avancer.
Aussi, je tombe sur un autre probleme qui pour toi sera tres simple :

Tu m'as indiqué d'ouvrir en mode design le formulaire et je ne comprend
pas cela. J'ai appliqué le code que tu m'as fournis et lors du lancement
de l'application, le message d'erreur suivant s'affiche :

Erreur d'execution 2147 : Les controles ne peuvent etre crees ou
supprimes qu'en mode creation.

Est ce une configuration d'access a faire de ma part ? Je n'ouvre
pas le formulaire de la bonne facon (double click dessus) ? ou autre ?

Merci encore pour l'aide que je recois

Guillaume

[cafeine]

Hello,

en effet, c'est impossible de créer un contrôle si tu n'es pas en mode conception.

[LedZeppII]

Tu ouvres le formulaire avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
DoCmd.OpenForm "NomFormulaire", acDesign

Tu exécutes le code qui crée le ou les contrôle(s)
La tu choisi de sauvegarder ou pas.
Tu ouvres le formulaire en mode normal

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
docmd.OpenForm "NomFormulaire",acNormal

Si tu n'as pas sauvé, Access demandera si il faut sauvegarder les changements à la fermeture.

A+

[GChevet]

Bonjour,

Merci beaucoup pour votre aide. Avec ca je vais reussir a finir.

Une toute derniere question serait sur le moment ou je dois ouvrir
le formulaire a modifier : puis je le faire pendant le chargement du
formulaire a modifier ou dois je le faire au travers d'un autre formulaire.

Je ne sais pas si sous access un formulaire peut se modifier lui meme.

Merci pour votre aide

Guillaume

[Tofalu]

Un formulaire ne peut pas s'ouvrir en mode création par lui même, il faut que ce soit quelque chose d'autre qui l'ouvre

[GChevet]

Oui voila je m'en suis doute mais le fait est que je ne recois toujours
l'erreur suivante :

Erreur d'exécution 29054 : Ms Office ne peut pas ajouter, modifier ou
supprimer le controle selectionne.

J'utilise le code suivant depuis un formulaire vers un autre lors d'un
clique sur un bouton :


Private Sub Commande1_Click()

DoCmd.OpenForm Form_Formulaire1.Name, acDesign
Dim tbCtl As TextBox
Set tbCtl = Application.CreateControl(Form_Formulaire1.Name, acTextBox, acDetail)
DoCmd.Close acForm, Form_Formulaire1.Name, acSaveYes
DoCmd.OpenForm Form_Formulaire1.Name, acNormal

End Sub


Décidément je ne vais pas m'en sortir.

Encore merci pour votre aide

Guillaume

[GChevet]

Quelqu'un aurait une idée sur l'origine de ce message d'erreur ?

Merci encore pour votre aide

Guillaume

[LedZeppII]

Bonsoir,

Je ne sais pas pourquoi mais ça fonctionne en écrivant ainsi:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Dim frmName As String
Dim tbCtl As TextBox
 
frmName = "Formulaire1"
 
DoCmd.OpenForm frmName, acDesign
Set tbCtl = Access.CreateControl(frmName, acTextBox, acDetail)
 
DoCmd.Close acForm, frmName, acSaveYes
DoCmd.OpenForm frmName, acNormal

A+

[GChevet]

En effet, cela fonctionne de la sorte.
J'avoue que je ne comprend pas mais cela fonctionne aussi
pour moi de la sorte.

Je remercie tout ceux qui m'ont aidé et félicite ce site

Bonne soirée

Guillaume

[wadoo]

Je viens de lire les posts et grace à vous j'ai pu faire ce que je voulais mais je n'arrive pas a créer de procedure onclick sur des boutons généré automatique avec les conseils donnés au dessus.

Comment puis faire ces procedure en créant mes boutons dynamiquement ?

D'avance merci

[FreeAccess]

Bonjour...

@ wadoo

Avant de poser une question, pense à faire quelques recherches dans la ...........souvent la réponse s'y trouve....

http://access.developpez.com/faq/?pa...reeDynCtrlCode

Bonne lecture...

[wadoo]

Je viens de relire le post que j'ai mis hier ....
je ne dis même pas bonjour ... dsl.
Sinon j'avais fait une recherche google mais pas pensé a la FAQ.
Ca doit être parce que j'étais au travail (bon ben je vais devoir arreter de travailler .... )
Encore dsl et merci beaucoup pour ta réponse