Je vous explique mon probleme :
Après avoir fait plusieurs recherches sur des sites, je suis à la recherche d'une commande VBA pour faire une recherche filtré d'autres formulaires.
Ayant déjà réalisé la commande VBA pour faire la recherche de tous les formulaires et me les placer dans une zone de liste déroulante.
Maintenant je voudrais filtrer ma recherche de formulaire par tous les formulaires qui commencent par le nom "OS".
Merci d'avance si quelqu'un peux m'aiguiller
voici mon code VBA qui se declanche par un click
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35 Sub Form_Open(Cancel As Integer) ' Déclaration des varialbes Dim MaBase As Database, Formulaire As Document Dim strListeFormulaires As String ' Initialisation de la variable récupérant la Base en cours Set MaBase = CurrentDb ' Boucle pour récupérer tous les noms des formulaires For Each Formulaire In MaBase.Containers("Forms").Documents ' Concaténation du nom du formulaire et d'un séparateur ";" strListeFormulaires = strListeFormulaires & Formulaire.Name & ";" Next ' Extraction du dernier ";" de la chaine strListeFormulaires = Left(strListeFormulaires, Len(strListeFormulaires) - 1) ' Initialisation de la liste déroulante Modifiable0.RowSourceType = "Liste Valeurs" Modifiable0.RowSource = strListeFormulaires End Sub Private Sub Modifiable0_Click() ' cboForms est le nom de la liste déroulante posée sur le formulaire DoCmd.OpenForm Modifiable0 End Sub
Partager