Discussion :

[Serge VM]

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

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

Merci pour vos lumières
Cordialement
Serge VM