Discussion :

[stsym]

Bonsoir

Dans ma base j'ai une table "CMM" qui comporte 2 champs
Un "Article" et l'autre "Qte".
Cette table contient des enregistrements avec des valeurs pour "Article" mais vide pour "Qte"

Avec le code ci-dessous je souhaitais pouvoir supprimer toutes les lignes qui ont la "qte" vide.
Mais cela ne fonctionne pas.
J'ai testé avec différentes soulutions qui elles fonctionnent.
<> ""
> 100


Je suppose qu'il a une solution.
J'avoue que même dans mes requètes standards je ne sais jamais si il faut mettre <>"" ou Est Pas Null


D'avance merci pour votre aide

Access 2010

Cordialement
StSym

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
17
18
19
20
21
22
23
24
25
26
27
Private Sub Commande5_Click()
Dim oRst As DAO.Recordset
Dim oDb As DAO.Database
Set oDb = CurrentDb
Set oRst = oDb.OpenRecordset("CMM", dbOpenTable)
 
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
' Supprime les lignes vides de la table "CMM"
 oRst.MoveFirst
 While Not oRst.EOF
 If oRst!Qte = "" Then
 oRst.Delete
 End If
 oRst.MoveNext
 Wend
 
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
' Ouverture de la latable
DoCmd.OpenTable "CMM", acViewNormal, acEdit
 
'Libération des objets
oRst.Close
oDb.Close
Set oRst = Nothing
Set oDb = Nothing
 
End Sub

[myrddin99]

bonjour,

As-tu essayé avec la fonction isnull?

Code :

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

If oRst!Qte = ""  or isnull(oRst!Qte) Then

Merci

[stsym]

Bonsoir myrddin99,

Trop fort, tout fonctionne !

Non je ne pouvais pas essayer la fonction isnull, car je ne la connaissais pas.

Merci pour la rapidité de ta réponse.
Désolé de faire travailler les bénévoles le 1er mai !

Encore merci
Cordialement
StSym

[myrddin99]

Rebonjour,

Juste pour ajouter un élément, je crois qu'il aurait été plus simple de passer par un SQL:

Code :

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

docmd.runSQL "DELETE * FROM Ccm WHERE [Qté]="" or [Qté] is null"

Au lieu de passer le recordset un enregistrement à la fois, il pourrait être efficace de le faire en une requête

Merci

[stsym]

Bonjour myrddin99

J'ai testé ta proposition mais j'ai un message d'erreur "3075".
"Erreur de syntaxe dans la chaine d'expression [Qté]=" or [Qté] is null"

Je pense que cela provient du caractere ".

Par contre si j'écris simplement

docmd.runSQL "DELETE * FROM Ccm WHERE [Qté] is null"

tout fonctionne bien

Merci encore
StSym