Bonjour,
J’ai un formulaire avec lequel je gère les adhérents de mon association.
Quand ils se sont inscrits une année je mets « O » dans un champs correspondant à l’année en question (A_2022) pour cette année.
J’ai créé des champs de 1980 à 2030.
Quand je désire lister les adhérents d’une année donnée je les défile dans mon formulaire en utilisant comme base de données une requête par année choisie d’où 50 requêtes différentes !!!
Serait-il possible d’avoir une requête de base dans laquelle je modifierais à la demande la valeur de « Critères » dans cette requête ?
Le principe serait en appelant la procédure d’effacer les « O » éventuels des champs A_1980 à A-2030 et de mettre un « O » dans l’année choisie.
Pour le moment j’utilise la procédure suivante sachant que je n’utilise pas encore le nom du champ strNomChamp
Merci pour vos lumières
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 Private Sub choix_annee_Change() On Error GoTo Err Dim strNewRecord As String Dim strNomChamp As String strNewRecord = "R_inscrit" + Str(choix_annee.value) strNomChamp = "A_" + Str(choix_annee.value) If annee_choisie.value < 2023 And annee_choisie.value > 1980 Then Me.RecordSource = strNewRecord Me.Modifiable838.Visible = False End If Err: MsgBox "Erreur survenue" End Sub
Cordialement
Serge VM
Partager