Supprimer une ligne dans un Etat avec du VBA

Résolu/Fermé
zonteomer74 Messages postés 29 Date d'inscription mercredi 30 novembre 2016 Statut Membre Dernière intervention 3 janvier 2018 - 26 déc. 2017 à 13:43
Zonteo Messages postés 105 Date d'inscription lundi 18 décembre 2017 Statut Membre Dernière intervention 3 juin 2022 - 29 déc. 2017 à 21:01
Bonjour,
Est ce possible de supprimer une ligne dans un état access dont la zone de Texte répond à un critère donné ? Si Oui comment dois je m'y prendre ?
Exemple si la valeur d'une zone de texte est -1 toute la ligne doit être supprimée.
Merci pour votre aide.


A voir également:

1 réponse

yg_be Messages postés 22700 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 avril 2024 1 471
26 déc. 2017 à 15:32
bonjour, moi j'essaierais en rajoutant un critère dans la requête qui sert de base à l'état.
0
zonteomer74 Messages postés 29 Date d'inscription mercredi 30 novembre 2016 Statut Membre Dernière intervention 3 janvier 2018 2
26 déc. 2017 à 18:18
Ok alors quell est le code VBA ou la formule qu'il faut utiliser?
0
yg_be Messages postés 22700 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 avril 2024 1 471 > zonteomer74 Messages postés 29 Date d'inscription mercredi 30 novembre 2016 Statut Membre Dernière intervention 3 janvier 2018
26 déc. 2017 à 18:32
eb bien, supposons que tu aies un état qui soit basé sur une requête R_EVA1 dont le code SQL est
SELECT T_EVA.[N° CAND], T_EVA.[NOM ET PRÉNOMS ELEVE], T_EVA.GENRE, T_EVA.ECOLE, T_EVA.CLASSE, T_EVA.SECTEUR, T_EVA.NOM_DU_MAITRE, T_EVA.[NOM DU DIRECTEUR], T_EVA.[ANNEE SCOLAIRE], T_EVA.ETT1, T_EVA.AEM1, T_EVA.DICTEE1, T_EVA.MATH1, T_EVA.DECISION1, T_EVA.INSCRITS_G1, T_EVA.INSCRITS_F1, T_EVA.INSCRITS_T1, T_EVA.ABSENTS1, T_EVA.TOT1, T_EVA.MOY1, T_EVA.Localite, DCount("*","[R_EVA1]","[MOY1]>" & [MOY1])+1 AS Rang, T_EVA.ABST1, T_EVA.IEPP, T_EVA.TEL, T_EVA.Email, T_EVA.BP, T_EVA.[NOM DE L'IEPP], T_EVA.[DATE EVA 1], T_EVA.REGION, T_EVA.DREN, T_EVA.DDEN
FROM T_EVA;

supposons que tu décides de supprimer ceux qui ont "Refusé" dans DECISION1.
tu pourrais alors modifier le code SQL de la requête, en y ajoutant (avant le ;):
WHERE DECISION1 <> "Refusé"
0
zonteomer74 Messages postés 29 Date d'inscription mercredi 30 novembre 2016 Statut Membre Dernière intervention 3 janvier 2018 2
26 déc. 2017 à 20:53
Merci beaucoup pour tout ce que tu fais pour moi et pour toute la communauté de commentcamarche.
Je ne m'y connais pas trop en SQL mais ton effort va me donner le courage de l'étudier tout comme les relations entre les Tables access qui me fatiguent bien.
Merci une fois de plus.
0
Zonteo Messages postés 105 Date d'inscription lundi 18 décembre 2017 Statut Membre Dernière intervention 3 juin 2022 1
28 déc. 2017 à 17:15
Salut,
Vraiment génial. A partir de votre code SQL j'ai pu comprendre le fonctionnement de la condition WHERE.
Alors j'ai réussi à ne pas afficher la ou les lignes dont je n'ai pas besoin dans mon état.
Au fait ma base a évolué et il y a un nouveau champ [NON INSCRIT].et tous les enregistrements dont le champ [NON INSCRIT]<>True s'affichent.
J'ai inséré [NON INSCRIT]<>True dans la condition WHERE du bouton de commande qui permet d'ouvrir mon Etat.
Alors tous les enregistrements s'affichent sauf ceux dont le champ [NON INSCRIT]=True.
Et ça marche. Maintenant il ne reste qu'à ajouter [NON INSCRIT]<>True dans le code SQL de la requête R_EVA1 pour que ça marche.
J'ai essayé mais je n'avais bien lu votre explication. Je viens de me rendre compte que je dois mettre [NON INSCRIT]<>True juste après FROM T_EVA;
Ce qui donne à la fin du code SQL ceci:
FROM T_EVA [NON INSCRIT]<>True;
Merci beaucoup.
Tu m'as permis de comprendre un peu le code SQL dont j'avais peur mais aussi de comprendre le fonctionnement de la condition WHERE dans une macro dans un bouton de commande.
Je suis en déplacement dans une autre ville pour les soins de ma fille. Dès que je rentre je modifie le SQL puis je vous fait informe de la suite.
Merci infiniment.
0
yg_be Messages postés 22700 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 avril 2024 1 471 > Zonteo Messages postés 105 Date d'inscription lundi 18 décembre 2017 Statut Membre Dernière intervention 3 juin 2022
28 déc. 2017 à 17:33
ou un peu différent:
...  FROM T_EVA WHERE NOT [NON INSCRIT] ; 
0