Bonjour à tous,
Je tente de réinjecter les valeurs d'une requête dans un formulaire contenant que des champs indépendants pour éviter d'utiliser des variables.
Pour essayer j'ai mis ce code basique sur un bouton dans un formulaire indépendant contenant un combobox de sélection.
Voici le code du bouton :
Aucune erreur n'apparait quand je clique sur le bouton mais aucune donnée non plus... Je suppose qu'il faut redéfinir la source de chaque champ du formulaire à ouvrir avec le bouton ..., j'ai essayé en mettant à la suite du code plus haut :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Private Sub Commande8_Click() Dim MaRequete As String MaRequete = "SELECT [Devis et Factures].NumDocument,[devis et factures].datedoc FROM [Devis et Factures]" & _ " WHERE ((([Devis et Factures].NumDocument)=[Formulaires]![Formulaire3]![ListeDocuments]));" DoCmd.OpenForm "devis et factures" Forms![Devis et Factures].RecordSource = MaRequete End Sub
Mais évidement il me signale que les variables sont inconnues !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 forms![devis et facture]![numdocument].controlsource=NumDocument forms![devis et facture]![DateDoc].controlsource=DateDoc
Cela veut il dire qu'il faut déclarer la source de chaque champ comme variable avant exécution ? Comment s'y prendre pour avoir le moins de code possible ?
(Pour l'instant je me servais de variables reprises dans un formulaire pour en ouvrir un autre mais vu le nombre de champs existants dans le formulaire final ça devenait pénible, j'ai donc pensé qu'il valait mieux essayer de le remplir avec le résultat d'une requête ...)
Merci d'avance pour vos suggestions
Partager