Discussion :

[Tsuna78]

Bonjour,

Je suis face à un problème qui va vous sembler sans aucun doute idiot mais que je n'arrive pas à résoudre.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    Set SupprLignes = CurrentDb.OpenRecordset(Table, [dbOpenTable])
 
    SupprLignes.MoveFirst
 
    While Not SupprLignes.EOF
            'SupprLignes.Delete
            If SupprLignes.Fields("Champ2").Value = Null Then SupprLignes.Delete
            SupprLignes.MoveNext
    Wend
 
    SupprLignes.Close                                   'Fermeture du recordset
    Set SupprLignes = Nothing

Je cherche à supprimer les lignes où champ2 ne contient rien. Seulement quand je mets = Null (comme ici) ça ne me supprime rien et si je mets Is Null, ça me supprime toutes les lignes. Mais Je n'arrive pas à supprimer juste les lignes dont le champ2 est nul. Je pense que c'est un souci de syntaxe

Merci par avance de votre aide

[Lou Pitchoun]

Salut,

En passant par une requête suppression, c'est plus simple

Code :

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

DoCmd.RunSQL "DELETE Champ FROM Table WHERE (((Champ) Is Null));"

[seb92400]

Hello...

Et si tu remplaces = Null par = ""

Ou bien tu peux également écrire les deux :

Code :

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

If SupprLignes.Fields("Champ2").Value = Null OR SupprLignes.Fields("Champ2").Value = ""

Par contre, pour IsNull, je ne vois pas pourquoi il te supprime toutes les lignes... Je vais réfléchir...

[Tsuna78]

Kikof : En fait je souhaiterai supprimer l'enregistrement entier où le Champ2 est nul, pas juste le champ

noawsen : Je ne comprends pas, ça ne marche pas non plus avec "" :/

[seb92400]

Je ne sais pas encore tout sur les recordset, mais ne faut-il pas utiliser l'instruction Update afin de mettre à jour l'enregistrement ?

[Tsuna78]

Déja essayé de cette façon avant de poster :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Set SupprLignes = CurrentDb.OpenRecordset(Table, [dbOpenTable])
 
    SupprLignes.MoveFirst
 
    While Not SupprLignes.EOF
            'SupprLignes.Delete
            If SupprLignes.Fields("Champ2").Value = Null Or SupprLignes.Fields("Champ2").Value = "" Then SupprLignes.Delete
            SupprLignes.Update
            SupprLignes.MoveNext
    Wend
 
    SupprLignes.Close                                   'Fermeture du recordset
    Set SupprLignes = Nothing

Mais toujours le même souci

[Lou Pitchoun]

Kikof : En fait je souhaiterai supprimer l'enregistrement entier où le Champ2 est nul, pas juste le champ

Euh... une requête suppression ne supprime pas un champ mais un enregistrement. As tu essayé avant de dire ça ?

[Tsuna78]

Kikof : Très honnetement non, je n'ai pas essayé, j'étais persuadé que le DELETE supprimait juste un champ vu la syntaxe DELETE champ FROM Table WHERE champ is Null

Je viens d'essayer, ça ne supprime rien par contre :/

Y a t'il normalement juste besoin de cette ligne dans le code VB pour supprimer ces lignes ??

[Lou Pitchoun]

En fait, la syntaxe ici dit "Supprime les enregistrements de la table Table pour lesquels le champ Champ est nul"

j'ai essayé avant de te proposer la solution. Donc ça fonctionne.

Fais une copie de ta table sur laquelle tu veux supprimer tes données, crées ta requête en mode création. Et fait un essai sur cette table pour voir ce que ça dit.

[Tsuna78]

Je viens d'y arriver par les RecordSet.

Toutefois, ta méthode m'intéresse Kikof car ça me semble effectivement bien plus propre.

Dans ma table, Champ2 est un nom de champ. Je souhaite supprimer la ligne entière (la table comprend 40 champs)

Le souci que j'ai est le suivant : Quand je suis en mode création SQL, si je fais un : DELETE Champ2 FROM nomTable WHERE Champ2 Is Null, il ne met aucun enregistrement à jour. De même si je le fais en graphique, la requête suivante est générée :

Code :

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

1
2
3
4
 
DELETE [nomTable].Champ2
FROM [nomTable]
WHERE (("Champ2" Is Null));

Dans ce cas là aussi, il me dit qu'aucun enregistrement ne va être modifié si je l'exécute.

[Lou Pitchoun]

Champ2 est de quel type ??

[Tsuna78]

Champ2 est de type numérique

[cafeine]

Hello,

sinon il y a un autre moyen de répérer les Null

Code SQL :

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

1
2
DELETE * FROM [nomTable]
WHERE [nomTable]!Champ2 & "" = "";

[soltani1]

Bonjour,

Kikof t'a montré la syntaxe,

Code :

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

DELETE Champ FROM Table WHERE Champ Is Null

Tu n’as pas une erreur de syntaxe par hasard ?

A+

[Tsuna78]

Peut être le souci vient-il du nom de ma table car je ne vois pas la différence entre ce que je fais et ce que vous me dites. Je m'explique :

Je viens de mettre la requête suivante :

Code :

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

1
2
 
DoCmd.RunSQL ("DELETE * FROM [Téléphonie_" & Date_traitée & "] WHERE ([Téléphonie_" & Date_traitée & "]!Champ2 & "" = "";")

Et il n'y a pas de suppression non plus des lignes vides. Peut être ai-je une erreur de syntaxe au niveau du nom de la table ??

[pc75]

Bonjour,

La syntaxe pour un delete est :

Code :

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

1
2
 
"DELETE FROM [Téléphonie_" & Date_traitée & "] WHERE ([Téléphonie_" & Date_traitée & "]!Champ2 & "" = "";")

[Tsuna78]

Ca roule, merci