Bonjour,

J'ai une base ou j'importe une table en fonction d'un fichier excel.
Dans cette table, j'ai besoin aprés importation de supprimer les 0 par des NULL.

Cela marche trés bien d'apres 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
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
'Procédure de chargement du formulaire
    Dim db As Database
    Dim rc As Recordset
 
    Set db = CurrentDb
 
    DoCmd.SetWarnings False
 
    Set rc = db.OpenRecordset("Export", dbOpenDynaset)
 
   'On se place sur le premier enregistrement
    rc.MoveFirst
 
    'Tant que l'on atteint pas la fin du recordset
        While Not rc.EOF
            'Mode édition
            rc.Edit
            'Condition de changement de donnée
            Dim lField As DAO.Field
            For Each lField In rc.Fields
                If lField.Value = "0" Then lField.Value = Null
            Next
            'Mise à jour de la table
            rc.Update
            'Passage au champ suivant
            rc.MoveNext
        Wend

Par contre je ne voudrais pas les mettres TOUS a zero. Je m'explique:
c'est une table avce des factures suivant les mois :

-------- Janvier Fevrier Mars Avril
Fact01 ---- 458 -- 0 -- 48 -- 0
Fact02 --- 74 ---- 2 -- 165 -- 0

Donc si j'importe celle ci au mois de mars , je voudrais supprimer que les zero a partir d'avril (mai, juin ...)

Comment le faire a partir de mon code ??

Merci