[ACCESS] Probleme formulaire ajout dynamique Fermé

Question

Bonjour,

je suis entrain de faire une application sous access 2003 dans
laquelle je dois générer des textbox dans un formulaire deja
existant.

Voici le code que j'utilise pour faire cela :

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

Aussi, access me retourne ce message d'erreur lorsque je clique
sur le bouton pour générer le textbox :

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

Merci pour votre aide, c'est tres important pour moi
Bonne journée

GCH

zenon · Accepted Answer

Bonsoir, 

J'imagine que tu as vérifié dans l'aide. 
Il me semble que dans le code donné plus haut, il manque les données d'emplacement et de taille du contrôle. Je cite l'aide: 

Exemple de méthodes CreateControl et CreateReportControl

L'exemple suivant montre comment créer dans un premier temps un nouveau formulaire basé sur la table Commandes, puis utiliser la méthode CreateControl pour créer un contrôle de zone de texte et un contrôle d'étiquette liée dans le formulaire.

Sub NouveauxContrôles()
    Dim frm As Form
    Dim ctlÉtiquette As Control, ctlTexte As Control
    Dim entDonnéeX As Integer, entDonnéeY As Integer
    Dim entÉtiquetteX As Integer, entÉtiquetteY As Integer

    ' Crée un nouveau formulaire avec comme source des enregistrements la table Commandes.
    Set frm = CreateForm
    frm.RecordSource = "Commandes"
    ' Définit les valeurs de position pour les nouveaux contrôles.
    entÉtiquetteX = 100
    entÉtiquetteY = 100
    entDonnéeX = 1000
    entDonnéeY = 100
    ' Crée une zone de texte indépendante avec une taille par défaut dans la section Détail.
    Set ctlTexte = CreateControl(frm.Name, acTextBox, , "", "", _
        entDonnéeX, entDonnéeY)
    ' Crée un contrôle étiquette fils pour la zone de texte.
    Set ctlÉtiquette = CreateControl(frm.Name, acLabel, , _
         ctlTexte.Name, "Nouvelle étiquette", entÉtiquetteX, entÉtiquetteY)
    ' Restaure le formulaire.
    DoCmd.Restore
End Sub

fulgaro · Answer

je suis dans le même cas que toi es que tu as réussi a résoudre ce probleme depuis le 05/09 ou es tu encore bloqué ?

parce que si tu as réussi ça m'interesse grandement

zenon · Answer

Donne, si tu veux, le code que tu utilises. 
Je ne suis pas un spécialiste mais on peut espérer que Blux passe par là...

zenon · Answer

Je ne pense pas qu'Access reconnaisse:
afficher_zone_saisie("formulaire de saisie") 

D'autre part, si les noms de tes objets comportent des espaces, tu dois les entourer de crochets ( [] )

blux · Answer

Salut,

je passe par là...
Mais je ne suis pas spécialiste des ajouts 'à la volée'...
Cependant, je ne vois nulle part le nom du contrôle à rajouter, cela expliquerait peut-être le message d'erreur ?

Tu peux nous mettre ton code in extenso, STP ?

blux · Answer

T'as essayé avec le formulaire fermé carrément ?

[ACCESS] Probleme formulaire ajout dynamique

6 réponses

Discussions similaires