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