Discussion :

[sultan87]

Bonsoir
j'ai un sous formulaire qui affiche une table issue d'une requète
ma table est "Adhérents_Circonscription_Relance"
elle est créé à partir de la table "Adhérents_Circonscription"
voici le code vba utilisé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
    DoCmd.RunSQL "SELECT Adhérents_Circonscription.* INTO Adhérents_Circonscription_Relance FROM Adhérents_Circonscription WHERE (((Adhérents_Circonscription.[ANNEE DERNIERE ADHESION])<=2020) AND ((Adhérents_Circonscription.[ADRESSE MAIL]) Is Not Null));"
    Me.SF_Liste_Adhérents_Relance.Form.RecordSource = "Adhérents_Circonscription_Relance"

une première exécution se fait sans problème
si je l'exécute une deuxième fois en changeant par exemple 2020 par 2021 j'ai ce message d'erreur

pouvez vous m'aider, j'ai tout essayé en vain
Pierre

[nico84]

Bonjour,

à priori ça sent le truc mal pensé au départ... Pourquoi créer une table temporaire qui est une copie d'une partie de Adhérents_Circonscription et qui donc crée un maximum d'informations en double ?

On peut avoir le même résultat avec simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.RecordSource = "SELECT * FROM Adhérents_Circonscription WHERE [ANNEE DERNIERE ADHESION]<=2020 AND not [ADRESSE MAIL] Is Null"

[sultan87]

Bonsoir
je crois avoir trouvé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
    Me.SF_Liste_Adhérents_Relance.Form.RecordSource = ""
    DoCmd.DeleteObject acTable, "Adhérents_Circonscription_Relance"
 
    strSql = "SELECT Adhérents_Circonscription.* INTO Adhérents_Circonscription_Relance "
    strSql = strSql & " FROM Adhérents_Circonscription "
    strSql = strSql & " WHERE (((Adhérents_Circonscription.[ANNEE DERNIERE ADHESION])<=2021) AND ((Adhérents_Circonscription.[ADRESSE MAIL]) Is Not Null));"
    DoCmd.RunSQL strSql

pierre