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:

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
J'ai essayé ça, aussi:

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