Bonjour à tous,
Mon projet: Je souhaite faire une appli pour gérer les devis et factures : Dans un premier temps, je souhaite faire quelque chose de "simple" : créer des devis et pouvoir les transformer en facture. Plus tard, je me pencherais sur d'autres "gadgets" envoie de relance automatique...
Ce que j'ai fais pour le moment: j'ai créé mes tables et liaisons. J'ai aussi fait mon premier formulaire pour la création des comptes clients.
Là où je bloque : Dans mon formulaire de création de devis, je voudrais pouvoir aller chercher mes articles à vendre via des Combobox et comme je ne sais pas combien j'aurais de lignes de facturations (une à 50), je souhaiterais faire un bouton "ajouter" qui me créera une nouvelle Combobox avec pour contenu ma table article.
J'ai donc essayé avec un bouton avec en procédure sur click:
J'ai essayé ça, aussi:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Private Sub Commande0_Click() Dim List(1 To 100) As Control DoCmd.OpenForm "Formulaire1", acDesign Set List(1) = CreateControl("Formulaire1", acComboBox, acDetail) List(1).RowSource = "SELECT Produits.[Code Produit] FROM Produits" 'List(1).Visible = False End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Private Sub Commande0_Click() Call Form_Load End Sub
Avec dans un module à part:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Sub Form_Load() Dim List(1 To 100) As Control DoCmd.OpenForm "Formulaire1", acDesign Set List(1) = CreateControl("Formulaire1", acComboBox, acDetail) List(1).RowSource = "SELECT Produits.[Code Produit] FROM Produits" 'List(1).Visible = False End Sub
Message d'erreur: '29054'
"Access ne peut pas ajouter, renommer ou supprimer le ou les contrôles séléctionnés."
PS: le code Form_Load se lance et me créé ma combobox quand je le lance depuis le module...
Merci d'avance pour votre aide,
Didou95
Partager